Delphi Personal で ADO

選択クエリー (Command.Execute)

procedure TForm1.Button24Click(Sender: TObject);

var

    cnn:Variant;//Connection

    cmd:Variant;//Command

    rs :Variant;//Recordset

    sql:string; //Recordset

begin

    //表示用コントロールをクリア

    ListBox1.Items.Clear;

    ListBox2.Items.Clear;
    cnn := CreateOleObject('ADODB.Connection');
    //Edit3 に mdbファイル名を入力

    cnn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';';

    cnn.Open;
    //Edit4 に テーブル名を入力

    sql := 'SELECT * FROM ' + Edit4.Text;

    cmd := CreateOleObject('ADODB.Command');

    cmd.ActiveConnection := cnn;

    cmd.CommandText      := sql;
    rs  := cmd.Execute;

    while not rs.EOF do

    begin

        //表示用コントロールに項目内容をセット

        ListBox1.Items.Add(rs.Fields[0].Value);

        ListBox2.Items.Add(rs.Fields[1].Value);
        rs.MoveNext;

    end;

    rs.Close;
    cnn.Close;

end;