SQL文を学ぶ - （9）を選択：その他

//長い最初の5つのレコードとして
手順 TForm1.Button1Click（送信者：TObjectを）;
 始める
  と ADODataSet1 ん 始まる 
    閉じる; 
    CommandTextを= 「SELECT TOP 5 *国から」 ; 
    オープン; エンド ;
 エンド ; //重複排除手順 TForm1.Button2Click（ SENDER：TObjectを）;
 始めると ADODataSet1 ん始まり 
    、閉じるを
    CommandTextを= 「DISTINCTROW SELECT * FROM国」 ; 
    オープン; エンド ;
 エンド ; //フィールドのリストを取得手続きを
  



   
  


TForm1.Button3Click（送信者：TObjectを）;
VAR 
  I：整数; 
  STR：文字列 ;
開始 
  STRを：= '' ;
  用 I：= 0  に - ADODataSet1.FieldDefs.Count 1  行う
  開始 
    STRを：= STR + ADODataSet1.FieldDefs [I] .nameの+ sLineBreak。エンド ; 
  ShowMessage（STR）。エンド ;