SQL aus Excel

[Eric]

Hallo,

danke für die schnelle Antwort, ohne Abfrage "knallt" es beim 2.Lauf, denn die Tabelle ist ja schon da, dann:

Dim RCD As ADODB.Recordset oder?
und dann den Select, worauf ???
(select lib/file)

es lief durch und keine Fehlermeldung mehr, hatte :

...

'SqlStatement
SQL = "create table blabla.sql001(feld1 integer not null, feld2 varchar(15), primary key (feld1))"
'.. ausführen

on error resume next
err.clear
set rcd = cnn.execute("select blabla/sql001")
if err.number <> 0 then
SQL = "create table blabla.sql012(feld1 integer not null, feld2 varchar(15), primary key (feld1))"
'.. ausführen
cnn.Execute SQL
end if
' Verbindung schliessen
cnn.Close
End Sub


Eine sql012 gibt es leider nicht und auch keine Fehler ! Wo ist mein Fehler ?

Danke im Voraus ERIC

[Fuerchau]

Wie beim Create muss auch der Select bei qualifizierter Benennung einen Punkt verwenden "libname.tblname".

Alternativ kannst du den CREATE ja genauso abfangen. Du bekommst in der err.Description einen Fehlercode geliefert.
Das CNN-Object enthält auch genauere SQLSTATE-Codes nach einem Fehler.

[Eric]

Hallo,
vielen Dank für die Rückinfo, nur ich
komm da nicht weiter , kannst Du mir bitte mal den vollständigen Script geben ?

...

wenn "lib/sql001" vorhanden,
dann erstelle "lib/sql011", wenn "lib/sql011 vorhanden, dann EXIT

hab da hin und her probiert, über den Fehler läuft er, nur dann auch wenn "lib/sql011" vorhanden, keine Fehlermeldungen mehr.
Vielen Dank im voraus ERIC

[woki]

wenn "lib/sql001" vorhanden,
dann erstelle "lib/sql011", wenn "lib/sql011 vorhanden, dann EXIT

warum machst du es nicht so:
1. lösche "lib/sql001" wenn vorhanden
cnn.Execute "DROP TABLE IF EXISTS lib.sql001"
2. erstelle "lib/sql001" neu
cnn.Execute "CREATE TABLE lib.sql001(...)"

[Fuerchau]

"if exists" kennt die AS/400 nicht.

Ansonsten soll die Tabelle ja nur erstellt werden, wenn sie nicht da ist.
Also einfach einen CREATE ausführen, wenn der Fehler kommt, ist die Tabelle wahrscheinlich schon da.
Hierzu kann man dann per INSTR den SQL-Code aus der err.Description prüfen.