OpenOffice.info

Code: Alles auswählen

' Passwortabfrage umgehen
sub VerbindungDatenbank
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("DBname")
DataSource.Password = "password"
If Not DataSource.IsPasswordRequired Then
Connection = DataSource.GetConnection("","")
Else
Connection = DataSource.GetConnection("user","password")
End If
end sub

Code: Alles auswählen

connection=datasource.getconnection("Benutzer","Passwort")

Code: Alles auswählen

sub SetDatabaseConnection
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("mySQLDatenbank")
If not Datasource.ispasswordrequired then
connection=datasource.getconnection("","")
else
connection=datasource.getconnection("Username","Password")
end if
statement = connection.createStatement()
Resultset = Statement.ExecuteQuery("Select ""Feld""From ""Tabelle""")
if not isnull(resultset) then
while resultset.next
j=0
wend
end if
end sub