20-03-2009, 19:31
Delphi
- //Örnek Adsquery için SQL
- //Noktalı virgülle ayırmalısınız...
-
-
- AdsQuery1.Close;
- AdsQuery1.SQL.Clear;
- AdsQuery1.SQL.Add('Create Table "category" ( "PartCategoryId" Integer, "PartId" Char( 50 ), "CategoryName" Char( 50 ), "CategoryOrder" Integer);');
- AdsQuery1.SQL.Add('Create Index "PARTCATEGORYIDIDX" on "category" ( "PARTCATEGORYID" );');
- AdsQuery1.SQL.Add('Create Table "lastcodes" ( "UserPostId" Integer, "CategoryId" Integer, "PostId" Integer);');
- AdsQuery1.SQL.Add('Create Table "posts" ( "PostId" Integer, "PartId" Integer, "PartCategoryId" Short, "PostDate" Char( 20 ), "Title" Char( 100 ), "PostData" Memo, "Owner" Char( 50 ), "ReplyCount" Integer, "LastReplyDate" Char( 20 ), "LastReplyUser" Char( 14 ), "Broadcast" Memo, "IsSent" Integer);');
-
- AdsQuery1.SQL.Add('Create Index "POSTIDIDX" on "posts" ( "POSTID" DESC );');
- AdsQuery1.SQL.Add('Create Index "PARTCATEGORYIDX" on "posts" ( "PARTCATEGORYID" );');
- AdsQuery1.SQL.Add('Create Index "TITLE" on "posts" ( "TITLE" );');
- AdsQuery1.SQL.Add('Create Index "REPLEYUSER" on "posts" ( "LASTREPLYUSER" );');
-
- AdsQuery1.ExecSQLScript; //ExecSQL yerine
Alıntıdır...
