myqsl abfrage mit Macro verbinden

[OpenOffice-CD.de]

Hier ein Code-Beispiel für eine DB-Abfrage:

Code: Alles auswählen

  
dim oDBConnection, oDBContext, oDataSource, oStatement, oResultset as Object

  sDBName = "bestellungen" ' name der datenquelle
  oDBContext=CreateUnoService("com.sun.star.sdb.DatabaseContext")
  oDataSource=oDBContext.GetByName(sDBName)
  oDBConnection=oDataSource.GetConnection("","")
  oStatement=oDBConnection.createStatement()

  oResultSet=oStatement.executeQuery ("SELECT * from bestellungen.bestellungen")
  while oResultSet.next()
	' zeigt das zweite feld in der tabelle an
    msgbox oResultSet.getString(2)
  wend

  ' ein update statement würde wie folgt ausschauen
  ' oStatement.executeUpdate ("update bestellungen.bestellungen set GedrucktFlag='1'")

Zugriff auf ein Formularfeld (Typ Textfeld - daher die Eigenschaft .text - da muss man immer suchen, bis man die richtige Eigenschaft findet )

Code: Alles auswählen

	oForm=THISCOMPONENT.DrawPage.Forms.getByName("Standard")
	bezahlttext = oForm.getByName("bezahltext")
	msgbox bezahlttext.text

MAC