Tabelle mittels ADO-Command erstellen

[markon]

hallo.
möchte mittels ado-command eine tabelle in einer db erstellen.

wenn ich es statisch mache funzt es:

Code:

sql:= 'CREATE TABLE fp5 (' +
         'ID INT,' +
         'Anrede VARCHAR(30))';

    ADOCommand1.CommandText :=sql;
    ADOCommand1.Execute;

aber wenn ich den namen der tabelle variabel halten möchte funzt es nimmer:

Code:

   fp := 'FP' + inttostr(nr_fp);

  sql:= 'CREATE TABLE %fp (' +
         'ID INT,' +
         'Anrede VARCHAR(30))';

    ADOCommand1.CommandText :=sql;
    ADOCommand1.Execute;

es kommt die meldung "syntax-fehler in create-table-anweisung".
fp ist vom typ string.

thx

++++++++++++++++++++++++++++++
nachtrag:
sql-befelh gefunden:
er muss lauten:

Code:

  sql:= 'CREATE TABLE ' + fp + '(' +
         'ID INT,' +
         'Anrede VARCHAR(30))';

kann man die id gleich beim erstellen der tabelle mit not null und auto inkrement versehen?
wenn ja, wie muss der befehl lauten

[Gollum]

Hallo,

welche DB?

In MySQL geht es folgebdermassen:

Delphi-Quellcode:

   sql:= 'CREATE TABLE ' + fp + '(' + 
         'ID INT NOT NULL AUTO_INCREMENT,' + 
         'Anrede VARCHAR(30))';

[shmia]

1.) Parameter funktionieren nicht in DDL (Data Definition Language); dazu gehört z.B. auch CREATE TABLE
2.) Deine SQL-Anweisungen lassen sich am einfachsten direkt über die ADOConnection absetzen:

Delphi-Quellcode:

var
   sql : string;
begin
   sql := 'CREATE TABLE %s (ID INT,' + 
         'Anrede VARCHAR(30))'; 
   // mit der Format-Funktion wird %s durch Tabellennamen ersetzt
   sql := Format(sql, ['Test99']);
   ADOConnection1.Execute(sql);   // und Feuer
   //                     ^^^   
end;

[markon]

Zitat:

...
welche DB?
...

sorry.. vergessen.. nutze in diesem falle ado und als db ms-access...

werde jetzt mal die adoconnection probieren...

[markon]

Zitat von shmia:

1.) Parameter funktionieren nicht in DDL (Data Definition Language); dazu gehört z.B. auch CREATE TABLE
2.) Deine SQL-Anweisungen lassen sich am einfachsten direkt über die ADOConnection absetzen:

Delphi-Quellcode:

var
   sql : string;
begin
   sql := 'CREATE TABLE %s (ID INT,' + 
         'Anrede VARCHAR(30))'; 
   // mit der Format-Funktion wird %s durch Tabellennamen ersetzt
   sql := Format(sql, ['Test99']);
   ADOConnection1.Execute();   // und Feuer
end;

danke für deine antwort.

bei der adoconnection gibt es kein execute..?!

habe das problem folgendermasen gelöst bekommen:

Code:

  fp := 'FP' + inttostr(nr_fp);

  sql := 'CREATE TABLE %s (ID INT,' + 
         'Anrede VARCHAR(30))'; 
   // mit der Format-Funktion wird %s durch Tabellennamen ersetzt 
   sql := Format(sql, [fp]);
   //ADO_FP.Execute;   // und Feuer

    ADOCommand1.CommandText :=sql;
    ADOCommand1.Execute;

jetzt bräuchte ich nur noch die festlegung der standardwerte.. not null und so... primary key..

+++++++
nachtrag:
der sql muss lauten:

Code:

  sql := 'CREATE TABLE %s (ID INT NOT NULL IDENTITY PRIMARY KEY,' +
         'Anrede VARCHAR(30) NOT NULL)';

[shmia]

Zitat von markon:

bei der adoconnection gibt es kein execute..?!

Doch, gibt es! Es muss natürlich heisen: ADOConnection1.Execute(sql); beim 1. Posting hatte
ich das Argument weggelassen.

Zitat von markon:

jetzt bräuchte ich nur noch die festlegung der standardwerte.. not null und so... primary key..

ALTER TABLE Tabelle28 ADD CONSTRAINT PK_Tabelle28 PRIMARY KEY (IdPKFeld)

[markon]

ok.. danke dir..

es geht auch so.. gleich beim kreieren kann mans mit angeben:

Code:

  sql := 'CREATE TABLE %s (ID INT NOT NULL IDENTITY PRIMARY KEY,' + 
         'Anrede VARCHAR(30) NOT NULL)';

++++++++++++++++
nachtrag:

mist.. zu früh gefreut.
wenn ich der tabelle ein weiteres feld vom typ integer hinzufügen will, kommt wieder ne fehlermeldung..

Code:

  sql := 'CREATE TABLE %s (ID INT NOT NULL IDENTITY PRIMARY KEY,' +
         'StartZeit VARCHAR(30) NOT NULL)' +
         'StartTag INT NOT NULL)';

das problem liegt in der zeile

Code:

'StartTag INT NOT NULL)';

wenn ich diese zeile weglasse funzt die erstellung...

[clues1]

Zitat:

sql := 'CREATE TABLE %s (ID INT NOT NULL IDENTITY PRIMARY KEY,' +
'StartZeit VARCHAR(30) NOT NULL)' +
'StartTag INT NOT NULL)';
...

das problem liegt in der zeileQuellcode: markieren
'StartTag INT NOT NULL)'

Du hast da nach dem Not NULL von StartZeit ein ) dadurch kommt der Fehler. So muss es aus sehen

[code]
sql := 'CREATE TABLE %s (ID INT NOT NULL IDENTITY PRIMARY KEY,' +
'StartZeit VARCHAR(30) NOT NULL' + << Einfach nur die klammer weg
'StartTag INT NOT NULL)';
[/quote]

PS: Fehlermeldungen beziehen sich immer auf den Text vor dem Text der in der Fehlermeldung steht . Also Fehler = Fehlertext -1 ^^