Hi zusammen,
ich würde gerne per VBA prüfen, ob ein eTabelle in einer Datenbank existiert. Wenn ja, soll diese gelöscht werden.
Ich habe bisher diesen Code:
connectionString = getConnect()
Set c = New ADODB.Connection
Set rs = New ADODB.Recordset
c.Open connectionString
'Set rs = c.Execute("Create set table db1.testTable, no fallback(ID INTEGER GENERATED ALWAYS AS IDENTITY (Start with 1 Increment by 1 minvalue 1 maxvalue 2147483647), Name varchar(150)) unique primary index(ID);")
On Error resume next
Set rs = c.Execute("Drop Table db1.testTable;")
Allerdings bekomme ich so trotzdem noch die Fehlermeldung, wenn die Tabelle bereits exisitert...
|