ForNext
Only Do What Only You Can Do
15. 選択クエリー
VBScript
JScript
Perl
PHP
Python
Ruby
PowerShell
Scala
F#
C
C++
C++Builder
更新日 : 2006.07.15
void __fastcall TForm1::Button15Click(TObject *Sender) { //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); ListBox3->Items->Clear(); //データベースを開く (排他モード = false, 読み込み専用 = true) Variant de = Variant::CreateObject("DAO.DBEngine.36"); Variant db = de.Exec(Function("OpenDatabase") << "e:\\test.mdb" << false << true); //クエリー文字列を編集 AnsiString sql = "SELECT " "商品CD," "商品名 " "FROM " "M_商品 " "WHERE 商品CD = " + Edit1->Text; const int dbOpenForwardOnly = 8; Variant rs = db.Exec(Function("OpenRecordset") << sql << dbOpenForwardOnly); if (!rs.Exec(PropertyGet("EOF"))) { //表示用コントロールに項目内容をセット Variant fd = rs.Exec(PropertyGet("Fields") << "商品CD"); ListBox1->Items->Add(fd.Exec(PropertyGet("Value"))); fd = rs.Exec(PropertyGet("Fields") << "商品名"); if (VarIsNull(fd.Exec(PropertyGet("Value")))) ListBox2->Items->Add(""); else ListBox2->Items->Add(fd.Exec(PropertyGet("Value"))); } //テーブルを閉じる rs.Exec(Procedure("Close")); //データベースを閉じる db.Exec(Procedure("Close")); }
VC++
C#
Java
Objective-C
D
VB
更新日 : 2006.07.15
Private Sub Command15_Click() '表示用コントロールをクリア List1.Clear List2.Clear 'データベースを開く (排他モード = False, 読み込み専用 = True) Dim db As Database Set db = DBEngine.OpenDatabase("e:\test.mdb", False, True) 'クエリー文字列を編集 Dim Sql As String Sql = "SELECT " Sql = Sql & "商品CD," Sql = Sql & "商品名 " Sql = Sql & "FROM " Sql = Sql & "M_商品 " Sql = Sql & "WHERE 商品CD = " & Text1.Text 'テーブルを開く Dim rs As Recordset Set rs = db.OpenRecordset(Sql, dbOpenForwardOnly) Do Until rs.EOF '表示用コントロールに項目内容をセット List1.AddItem rs("商品CD") List2.AddItem rs("商品名") & "" rs.MoveNext Loop 'テーブルを閉じる rs.Close 'データベースを閉じる db.Close End Sub
VB.NET
Delphi
更新日 : 2006.07.15
procedure TForm1.Button15Click(Sender: TObject); var de :Variant;//DBEngine db :Variant;//Database rs :Variant;//Recordset sql:String; const dbOpenForwardOnly:Integer = 8; begin //表示用コントロールをクリア ListBox1.Items.Clear; ListBox2.Items.Clear; ListBox3.Items.Clear; //データベースを開く (排他モード = false, 読み込み専用 = true) de := CreateOleObject('DAO.DBEngine.36'); db := de.OpenDatabase('e:\test.mdb', false, true); //クエリー文字列を編集 sql := 'SELECT ' + '商品CD,' + '商品名 ' + 'FROM ' + 'M_商品 ' + 'WHERE 商品CD = ' + Edit1.Text; rs := db.OpenRecordset(sql, dbOpenForwardOnly); if not rs.EOF then begin //表示用コントロールに項目内容をセット ListBox1.Items.Add(rs.Fields['商品CD'].Value); if VarIsNull(rs.Fields['商品名'].Value) then ListBox2.Items.Add('') else ListBox2.Items.Add(rs.Fields['商品名'].Value); end; //テーブルを閉じる rs.Close; //データベースを閉じる db.Close; end;