Mega Code Archive

 

Categories / Delphi / ADO Database

 

Create tables detial-master in sql server 2000 with code

procedure TForm1.Button1Click(Sender: TObject); begin ADOCommand1.CommandText := 'Create Table MasterTable ' + '(FieldName Primary Key);'; ADOCommand1.Execute; ADOCommand1.CommandText := 'Create Table Detailtable ' + '(Fieldname Primary Key Refrenced Mastertable(Fieldname));'; ADOCommand1.Execute; end;