home > OLE オートメーション > ADO >

ForNext

Only Do What Only You Can Do

05. クエリーを作成する

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

更新日 : 2005.12.13
void __fastcall TForm1::Button7Click(TObject *Sender)
{
    Variant cat = Variant::CreateObject("ADOX.Catalog");

    //Edit3 に mdbファイル名を入力
    cat.Exec(PropertySet("ActiveConnection")<<"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Edit3->Text + ";");

    //Edit4 に テーブル名を入力
    //Edit5 に フィールド名を入力
    //Edit1 に Key値を入力
    AnsiString sql = "SELECT * FROM " + Edit4->Text + "  WHERE " + Edit5->Text + " = " + Edit1->Text;

    Variant cmd = Variant::CreateObject("ADODB.Command");
    cmd.Exec(PropertySet("CommandText")<<sql);

    Variant views = cat.Exec(PropertyGet("Views"));
    views.Exec(Procedure("Append")<<"Q_TEST"<<cmd);
}

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

更新日 : 2005.12.13
procedure TForm1.Button7Click(Sender: TObject);
var
    cat: Variant;//Catalog
    cmd: Variant;//Command
    sql: string;
begin
    cat := CreateOleObject('ADOX.Catalog');

    //Edit3 に mdbファイル名を入力
    cat.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';';

    //Edit4 に テーブル名を入力
    //Edit5 に フィールド名を入力
    //Edit1 に Key値を入力
    sql :=  'SELECT * FROM ' + Edit4.Text + '  WHERE ' + Edit5.Text + ' = ' + Edit1.Text;

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

    cat.Views.Append('Q_TEST', cmd);
end;

Ada

PL/SQL

T-SQL

関数型

inserted by FC2 system