How to create a Paradox table with an AutoInc field at runtime (Views: 27)
Problem/Question/Abstract: How do I create a Paradox table with an Auto Increment type field programmatically? I'm using TTable.CreateTable, but TFieldType doesn't include this type. Answer: Use a TQuery and SQL CREATE TABLE statement. For example: procedure TForm1.Button1Click(Sender: TObject); begin with Query1 do begin DatabaseName := 'DBDemos'; with SQL do begin Clear; Add('CREATE TABLE "PDoxTbl.db" (ID AUTOINC,'); Add('Name CHAR(255),'); Add('PRIMARY KEY(ID))'); ExecSQL; Clear; Add('CREATE INDEX ByName ON "PDoxTbl.db" (Name)'); ExecSQL; end; end; end; |