Create a table including an AutoInc field (ADO/MSSQL)

Spread the love

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;