OpenOffice.info

Sub SQLSave
	Dim DatabaseContext as Object
	Dim DataSource As Object
	Dim Connection as object
	dim InteractionHandler as Object
	dim Statement as object
	dim ResultSet as object

DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("neu")

If Not DataSource.IsPasswordRequired Then
	Connection = DataSource.GetConnection("","")
Else
	InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
	Connection = DataSource.ConnectWithCompletion(InteractionHandler)
End If

Statement = Connection.createStatement()
ResultSet = Statement.executeQuery("SELECT Name FROM Vorgang")

ResultSet.updateRow()
ResultSet.refreshRow()	
	
	
	
End Sub

Meine bisherigen Versuche sehen so aus ... funktionieren aber leider nicht!

[code]Sub SQLSave
Dim DatabaseContext as Object
Dim DataSource As Object
Dim Connection as object
dim InteractionHandler as Object
dim Statement as object
dim ResultSet as object

DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("neu")

If Not DataSource.IsPasswordRequired Then
Connection = DataSource.GetConnection("","")
Else
InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
Connection = DataSource.ConnectWithCompletion(InteractionHandler)
End If

Statement = Connection.createStatement()
ResultSet = Statement.executeQuery("SELECT Name FROM Vorgang")

ResultSet.updateRow()
ResultSet.refreshRow()



End Sub[/code]

Zu den weiteren Infos:
Datenbank MySQL, Datenquelle neu via MyODBC

Hallo,

ich suche ein Macro für OOo Beta2 Base mit dem ich die aktuellen Einträge eines Forms in eine MySQL Tabelle schreiben kann und danach die Tabelle updaten kann.
Meine bisherigen Recherchen führten mich schon auf die Befehle:
updateRow() und refreshRow()
da ich vorher aber noch nie mit Basic gearbeitet habe, weiss ich nicht wie ich diese Befehle anwenden muss.
Wenn mir jemand helfen könnte, wäre ich sehr dankbar!!
Mir würde auch ein Tutorial zu diesem Thema reichen ....

Vielen Dank

Christian