ForNext
Only Do What Only You Can Do
12. 削除する
VBScript
JScript
Perl
PHP
Python
Ruby
PowerShell
Scala
F#
C
C++
C++Builder
更新日 : 2005.12.13
void __fastcall TForm1::Button13Click(TObject *Sender) { const int adOpenDynamic = 2; const int adOpenForwardOnly = 0; const int adOpenKeyset = 1; const int adOpenStatic = 3; const int adOpenUnspecified = -1; const int adLockBatchOptimistic = 4; const int adLockOptimistic = 3; const int adLockPessimistic = 2; const int adLockReadOnly = 1; const int adLockUnspecified = -1; 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")); //Edit4 に テーブル名を入力 //Edit5, Edit6 に フィールド名を入力 //Edit1 に Key値を入力 AnsiString sql = "SELECT * FROM " + Edit4->Text + " " + "WHERE " + Edit5->Text + " = " + Edit1->Text; //Edit4 に テーブル名を入力 Variant rs = Variant::CreateObject("ADODB.Recordset"); rs.Exec(PropertySet("Source")<<sql); rs.Exec(PropertySet("Activeconnection")<<cn); rs.Exec(PropertySet("CursorType")<<adOpenDynamic); rs.Exec(PropertySet("LockType")<<adLockOptimistic); rs.Exec(Procedure("Open")); rs.Exec(Procedure("Delete")); rs.Exec(Procedure("Close")); cn.Exec(Procedure("Close")); }
VC++
C#
Java
Objective-C
D
VB
VB.NET
Delphi
更新日 : 2005.12.13
procedure TForm1.Button13Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset sql:string; const adOpenDynamic: Integer = 2; adOpenForwardOnly: Integer = 0; adOpenKeyset: Integer = 1; adOpenStatic: Integer = 3; adOpenUnspecified: Integer = -1; adLockBatchOptimistic: Integer = 4; adLockOptimistic: Integer = 3; adLockPessimistic: Integer = 2; adLockReadOnly: Integer = 1; adLockUnspecified: Integer = -1; begin cn := CreateOleObject('ADODB.Connection'); //Edit3 に mdbファイル名を入力 cn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';'; cn.Open; //Edit4 に テーブル名を入力 //Edit5, Edit6 に フィールド名を入力 //Edit1 に 値を入力 sql := 'SELECT ' + Edit6.Text + ' FROM ' + Edit4.Text + ' WHERE ' + Edit5.Text + ' = ' + Edit1.Text; rs := CreateOleObject('ADODB.Recordset'); rs.Source := sql; rs.Activeconnection := cn; rs.CursorType := adOpenDynamic; rs.LockType := adLockOptimistic; rs.Open; rs.Delete; rs.Close; cn.Close; end;