ForNext
Only Do What Only You Can Do
20. トランザクションを取り消す
VBScript
JScript
Perl
PHP
Python
Ruby
PowerShell
Scala
F#
C
C++
C++Builder
更新日 : 2006.07.15
void __fastcall TForm1::Button20Click(TObject *Sender) { //データベースを開く (排他モード = false, 読み込み専用 = false) Variant de = Variant::CreateObject("DAO.DBEngine.36"); Variant db = de.Exec(Function("OpenDatabase") << "e:\\test.mdb" << false << false); //クエリー文字列を編集 AnsiString sql = "UPDATE " "M_商品 " "SET " "商品名 = '" + Edit2->Text + "'," "ふりがな = '" + Edit3->Text + "' " "WHERE 商品CD = " + Edit1->Text; //トランザクションを開始 de.Exec(Procedure("BeginTrans")); //クエリーを実行 db.Exec(Procedure("Execute") << sql); //トランザクションの取消 de.Exec(Procedure("RollBack")); //データベースを閉じる db.Exec(Procedure("Close")); }
VC++
C#
Java
Objective-C
D
VB
更新日 : 2006.07.15
Private Sub Command20_Click() 'データベースを開く (排他モード = False, 読み込み専用 = False) Dim db As Database Set db = DBEngine.OpenDatabase("e:\test.mdb", False, False) 'クエリー文字列を編集 Dim Sql As String Sql = "UPDATE M_商品 " Sql = Sql & "SET " Sql = Sql & "商品名 = '" & Text2.Text & "'," Sql = Sql & "ふりがな = '" & Text3.Text & "' " Sql = Sql & "WHERE 商品CD = " & Text1.Text 'トランザクションを開始 DBEngine.BeginTrans 'クエリーを実行 db.Execute Sql 'トランザクションを取消 DBEngine.Rollback 'データベースを閉じる db.Close End Sub
VB.NET
Delphi
更新日 : 2006.07.15
procedure TForm1.Button20Click(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 := 'UPDATE ' + 'M_商品 ' + 'SET ' + '商品名 = ''' + Edit2.Text + ''',' + 'ふりがな = ''' + Edit3.Text + ''' ' + 'WHERE 商品CD = ' + Edit1.Text; //トランザクションを開始 de.BeginTrans; //クエリーを実行 db.Execute(sql); //トランザクションの取消 de.RollBack; //データベースを閉じる db.Close; end;