Minggu, 21 September 2008

MEMBUAT DATABASE PARADOX LEWAT PROGRAM DELPHI

Jika anda membuat program database yang memakai database paradox maka biasanya anda akan membuat databasenya secara manual yaitu dengan menggunakan database desktop (bawaan Delphi) atau yang lainnya.
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.

Tidak ada komentar: