ForNext

21. 削除クエリー (Connection.Execute)

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

void __fastcall TForm1::Button28Click(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"));

    //Edit4 に テーブル名を入力
    //Edit5 に フィールド名を入力
    //Edit1 に 値を入力
    AnsiString sql =  "DELETE * FROM " + Edit4->Text + " "
                   +  "WHERE "  + Edit5->Text + " = "  + Edit1->Text;

    cn.Exec(Procedure("Execute")<<sql);
    cn.Exec(Procedure("Close"));
}

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

procedure TForm1.Button27Click(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;

    //Edit4 に テーブル名を入力
    //Edit5 に フィールド名を入力
    //Edit1 に 値を入力
    sql := 'DELETE * FROM ' + Edit4.Text + ' '
        +  'WHERE '  + Edit5.Text + ' = ' + Edit1.Text;

    cnn.Execute(sql);

    cnn.Close;
end;

Ada

PL/SQL

T-SQL