OpenOffice.info

Mit dem selben Resultset nicht, Klaus.

Erzeuge ein neues [i]statement[/i] a'la [color=#008000]INSERT INTO "lbp_ent" VALUES (SELECT * FROM "lbp_ent2")[/color].

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 sub

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?

[code]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 sub[/code]

freue mich auf eine antwort.

grüße

klaus