Category: Database
Title: Create a table including an AutoInc field (ADO/MSSQL)
Date added: 15.03.2006
Hits: 7525
uses AdoDB;
var
q: TAdoQuery;
db: TAdoConnection;
begin
q := TADOQuery.Create(nil);
q.Connection := db;
q.Close;
q.SQL.Clear;
q.SQL.Add('Create Table TABLENAME (ID COUNTER PRIMARY KEY, MYTEXT1 String, MYTEXT2 String);');
q.Prepared := True;
try
q.ExecSQL;
except
end;
q.Free;
end;