Rabu, 13 Agustus 2008

CREATE PARADOX TABLE

membuat program databasenya dengan cara membuat table dengan menggunakan DATABASE DEKSTOP sehingga jika program menginginkan create table pada saat program runtime jadi tidak bisa. Saya mempunyai source DELPHI untuk create paradox table. Semoga berguna bagi semuanya. Ini adalah sebuah table yang mempunyai struktur sebagai berikut :

Nama databasenya adalah :dbdemos.

Field-fieldnya dalah Nama char(255), ID, ID AutoInc. Sourcenya sebagai berikut:

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;

Tidak ada komentar: