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

wenn ich es statisch mache funzt es:

markieren

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:

markieren

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:

markieren

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

Hallo,

welche DB?

In MySQL geht es folgebdermassen:

markieren

Delphi-Quellcode:

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

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:

markieren

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;

Zitat:

...
welche DB?
...

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

werde jetzt mal die adoconnection probieren...

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:

markieren

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:

markieren

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:

markieren

Code:

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

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)

ok.. danke dir..

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

markieren

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..

markieren

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

markieren

Code:

'StartTag INT NOT NULL)';

wenn ich diese zeile weglasse funzt die erstellung...

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 ^^