Nah ini adalah cara membuat database paradox dengan menggunakan program.
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;
untuk field2 yang diatas ada 2 yaitu Name serta id, namun jika anda menginginkan yang lain misalnya ada alamat, atau yang lainnya, cukup anda menambah dengan kata add(‘alamat’), atau sesuai dengan keinginan anda.