resulSet an eine geleerte tabelle anhängen

[kannenklaus]

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: 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 sub

freue mich auf eine antwort.

grüße

klaus

[komma4]

Mit dem selben Resultset nicht, Klaus.

Erzeuge ein neues statement a'la INSERT INTO "lbp_ent" VALUES (SELECT * FROM "lbp_ent2").