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;