ForNext
Only Do What Only You Can Do
16. 追加クエリー
VBScript
JScript
Perl
PHP
Python
Ruby
PowerShell
Scala
F#
C
C++
C++Builder
更新日 : 2006.07.15
void __fastcall TForm1::Button16Click(TObject *Sender) { //データベースを開く (排他モード = false, 読み込み専用 = false) Variant de = Variant::CreateObject("DAO.DBEngine.36"); Variant db = de.Exec(Function("OpenDatabase") << "e:\\test.mdb" << false << false); //クエリー文字列を編集 AnsiString sql = "INSERT INTO " "M_商品" "(" "商品CD," "商品名," "ふりがな" ")" "VALUES" "(" + Edit1->Text + "," "'" + Edit2->Text + "'," "'" + Edit3->Text + "'" ")"; //クエリーを実行 db.Exec(Procedure("Execute") << sql); //データベースを閉じる db.Exec(Procedure("Close")); }
VC++
C#
Java
Objective-C
D
VB
更新日 : 2006.07.15
Private Sub Command16_Click() 'データベースを開く (排他モード = False, 読み込み専用 = False) Dim db As Database Set db = DBEngine.OpenDatabase("e:\test.mdb", False, False) 'クエリー文字列を編集 Dim Sql As String Sql = "INSERT INTO M_商品" Sql = Sql & "(" Sql = Sql & "商品CD," Sql = Sql & "商品名," Sql = Sql & "ふりがな" Sql = Sql & ")" Sql = Sql & "VALUES" Sql = Sql & "(" Sql = Sql & Text1.Text & "," Sql = Sql & "'" & Text2.Text & "'," Sql = Sql & "'" & Text3.Text & "'" Sql = Sql & ")" 'クエリーを実行 db.Execute Sql 'データベースを閉じる db.Close End Sub
VB.NET
Delphi
更新日 : 2006.07.15
procedure TForm1.Button16Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database sql:String; begin //データベースを開く (排他モード = false, 読み込み専用 = false) de := CreateOleObject('DAO.DBEngine.36'); db := de.OpenDatabase('e:\test.mdb', false, false); //クエリー文字列を編集 sql := 'INSERT INTO ' + 'M_商品' + '(' + '商品CD,' + '商品名,' + 'ふりがな' + ')' + 'VALUES' + '(' + Edit1.Text + ',' + '''' + Edit2.Text + ''',' + '''' + Edit3.Text + '''' + ')'; //クエリーを実行 db.Execute(sql); //データベースを閉じる db.Close; end;