ForNext
Only Do What Only You Can Do
23. トランザクションを取り消す
VBScript
JScript
Perl
PHP
Python
Ruby
PowerShell
Scala
F#
C
C++
C++Builder
更新日 : 2005.12.13
void __fastcall TForm1::Button19Click(TObject *Sender) { Variant cn = Variant::CreateObject("ADODB.Connection"); //Edit3 に mdbファイル名を入力 cn.Exec(PropertySet("ConnectionString")<<"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Edit3->Text + ";"); cn.Exec(Procedure("Open")); //トランザクションを開始 cn.Exec(Procedure("BeginTrans")); //Edit4 に テーブル名を入力 //Edit5, Edit6 に フィールド名を入力 //Edit1, Edit2 に 値を入力 AnsiString sql = "UPDATE " + Edit4->Text + " " + "SET " + Edit6->Text + " = '" + Edit2->Text + "' " + "WHERE " + Edit5->Text + " = " + Edit1->Text; cn.Exec(Procedure("Execute")<<sql); //トランザクションを取り消す cn.Exec(Procedure("RollBackTrans")); cn.Exec(Procedure("Close")); }
VC++
C#
Java
Objective-C
D
VB
VB.NET
Delphi
更新日 : 2005.12.13
procedure TForm1.Button19Click(Sender: TObject); var cnn :Variant;//Connection sql: string; begin cnn := CreateOleObject('ADODB.Connection'); //Edit3 に mdbファイル名を入力 cnn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';'; cnn.Open; //トランザクションを開始 cnn.BeginTrans; //Edit4 に テーブル名を入力 //Edit5, Edit6 に フィールド名を入力 //Edit1, Edit2 に 値を入力 sql := 'UPDATE ' + Edit4.Text + ' ' + 'SET ' + Edit6.Text + ' = ''' + Edit2.Text + ''' ' + 'WHERE ' + Edit5.Text + ' = ' + Edit1.Text; cnn.Execute(sql); //トランザクションの取消 cnn.RollBackTrans; cnn.Close; end;