Mega Code Archive
Create a table including an AutoInc field (ADOMSSQL)
<![CDATA[
Title: create a table including an AutoInc field (ADO/MSSQL)?
// 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;
]]>