von NTClient » Mi, 21.09.2011 19:38
Ah, langsam verstehe ich. Vielen Dank. Aber müßte es bei Dir dann nicht heißen
Code: Alles auswählen
print "Spalteninhalt " & l+1 & ": " & Result.getString( l + 1 )
oder was hat
darin zu bedeuten?
Verstehe ich das richtig, das das Ganze als Array so ausgelesen würde:
Code: Alles auswählen
Sub TagAuslesen
DBContext=createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource=DBContext.getByName("Bürodatenbank")
ConnectToDB=DataSource.GetConnection ("","")
SQLStatement=ConnectToDB.createStatement
MA = inputbox ("Mitarbeiternummer")
sql= "SELECT ""Mo"", ""Di"", ""Mi"", ""Do"", ""Fr"", ""Sa"", ""So"" FROM ""Woche"" WHERE ""Id"" = " & MA &""
Result = SQLStatement.executeQuery(sql)
lResultCols = Result.getColumns().getCount()
dim MyArray(lResultCols) as string
While Result.Next()
For i = 0 To lResultCols - 1
MyArray (i) = Result.getString( i )
Next i
WEnd
end Sub
Sieht doch gut aus, oder? Werde ich morgen mal ausprobieren...
Gruß Bernd!
Ah, langsam verstehe ich. Vielen Dank. Aber müßte es bei Dir dann nicht heißen
[code]print "Spalteninhalt " & l+1 & ": " & Result.getString( l + 1 )[/code]
oder was hat [code]oResultSet[/code] darin zu bedeuten?
Verstehe ich das richtig, das das Ganze als Array so ausgelesen würde:
[code]
Sub TagAuslesen
DBContext=createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource=DBContext.getByName("Bürodatenbank")
ConnectToDB=DataSource.GetConnection ("","")
SQLStatement=ConnectToDB.createStatement
MA = inputbox ("Mitarbeiternummer")
sql= "SELECT ""Mo"", ""Di"", ""Mi"", ""Do"", ""Fr"", ""Sa"", ""So"" FROM ""Woche"" WHERE ""Id"" = " & MA &""
Result = SQLStatement.executeQuery(sql)
lResultCols = Result.getColumns().getCount()
dim MyArray(lResultCols) as string
While Result.Next()
For i = 0 To lResultCols - 1
MyArray (i) = Result.getString( i )
Next i
WEnd
end Sub
[/code]
Sieht doch gut aus, oder? Werde ich morgen mal ausprobieren...
Gruß Bernd!