resulSet an eine geleerte tabelle anhängen
Verfasst: Sa, 06.12.2008 06:56
hallo zusammen
folg. code ruft ein function auf, die eine verbindung zur db herstellt und in der tabelle lbp_ent alle datensätze löscht. nun möchte ich an die leere tabelle "lbp_ent" die lbp_ent2 und Lbp_ent3 anfügen. geht das auch mit dem resultSet?
freue mich auf eine antwort.
grüße
klaus
folg. code ruft ein function auf, die eine verbindung zur db herstellt und in der tabelle lbp_ent alle datensätze löscht. nun möchte ich an die leere tabelle "lbp_ent" die lbp_ent2 und Lbp_ent3 anfügen. geht das auch mit dem resultSet?
Code: Alles auswählen
Sub test
Dim MyTab as Object
Dim DBName as string
Dim TabName as String
Dim Stmt as Object
Dim lCount as Long
Dim oResultSet
DBName="pfa23"
MyDB=FctDBVerbinden(DBName)
Stmt=MyDB.createStatement
Stmt.ResultSetConcurrency=com.sun.star.sdbc.ResultSetConcurrency.UPDATABLE
oResultSet=Stmt.executeQuery("SELECT LAYER FROM lbp_ent")
lCount=0
While (oResultSet.next)
lCount=lCount+1
oResultSet.deleteRow()
Wend
end subgrüße
klaus