...create a table including an AutoInc field (ADO/MSSQL)?

Author: Mathias C. Berens

Category: Database

// Erzeugt eine Tabelle mit dem Namen MYTABLENAME, mit den Spalten ID,
// MYTEXT1, MYTEXT2.
// (Der Name der ID Spalte kann natürlich frei gewählt werden.)
// ID ist der Primärschlüssel der Tabelle. Er ist ein Integer, der sich
// automatisch für jede Zeile
// der Tabelle erhöht. ID wird nie doppelt vorkommen.
// MYTEXT1 und 2 sind vom Typ String.
// Ich verwende die ADOConnection um mit Jet 4.0 auf eine Access-
// datenbank (*.mdb) zuzugreifen.
// Der Syntax ist MSSQL, wenn ihr das für PHP oder so verwenden wollt,
// muss man das ein bissel umformulieren ;)

// Creates a Table called MYTABLENAME with a unique identifier called
// "ID". ID increases with every new row automatically. MYTEXT1 and 2
// are Strings. Name the colums as you want to.
// I used the ADOConnection to access a MS-Access Database (*.mdb)
// via Jet 4.0.
// The Syntax is MSSQL, you have to transform it to use it in PHP or so.



uses AdoDB;

var 
  
q: TAdoQuery; 
  db: TAdoConnection;
begin

    
// Initialize db here

    
q := TADOQuery.Create(nil);
    q.Connection := db;
    q.Close;
    q.SQL.Clear;
    q.SQL.Add('Create Table MYTABLENAME (ID COUNTER PRIMARY KEY, MYTEXT1 String, MYTEXT2 String);');
    q.Prepared := True;
    try
      
q.ExecSQL;
    except 
end
;
    q.Free;

end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base