myqsl abfrage mit Macro verbinden

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: myqsl abfrage mit Macro verbinden

Beispiel Abfrage

von OpenOffice-CD.de » Di, 03.02.2004 11:23

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

Nach oben