ForNext
Only Do What Only You Can Do
18. 削除クエリー
VBScript
JScript
Perl
PHP
Python
Ruby
PowerShell
Scala
F#
C
C++
C++Builder
更新日 : 2006.07.15
void __fastcall TForm1::Button18Click(TObject *Sender) { //データベースを開く (排他モード = false, 読み込み専用 = false) Variant de = Variant::CreateObject("DAO.DBEngine.36"); Variant db = de.Exec(Function("OpenDatabase") << "e:\\test.mdb" << false << false); //クエリー文字列を編集 AnsiString sql = "DELETE FROM " "M_商品 " "WHERE 商品CD = " + Edit1->Text; //クエリーを実行 db.Exec(Procedure("Execute") << sql); //データベースを閉じる db.Exec(Procedure("Close")); }
VC++
C#
Java
Objective-C
D
VB
更新日 : 2006.07.15
Private Sub Command18_Click() 'データベースを開く (排他モード = False, 読み込み専用 = False) Dim db As Database Set db = DBEngine.OpenDatabase("e:\test.mdb", False, False) 'クエリー文字列を編集 Dim Sql As String Sql = "DELETE FROM M_商品 " Sql = Sql & "WHERE 商品CD = " & Text1.Text 'クエリーを実行 db.Execute Sql 'データベースを閉じる db.Close End Sub
VB.NET
Delphi
更新日 : 2006.07.15
procedure TForm1.Button18Click(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 := 'DELETE FROM ' + 'M_商品 ' + 'WHERE 商品CD = ' + Edit1.Text; //クエリーを実行 db.Execute(sql); //データベースを閉じる db.Close; end;