home > OLE オートメーション > ADO >

ForNext

Only Do What Only You Can Do

17. 追加クエリー (Connection.Execute)

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

更新日 : 2005.12.13
void __fastcall TForm1::Button26Click(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, Edit6 に フィールド名を入力
    //Edit1, Edit2 に 値を入力
    AnsiString sql =  "INSERT INTO " + Edit4->Text + " "
                   +  "(" + Edit5->Text + ", "  + Edit6->Text + ") "
                   +  "VALUES "
                   +  "(" + Edit1->Text + ", '" + Edit2->Text + "')";

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

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

更新日 : 2005.12.13
procedure TForm1.Button25Click(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, Edit6 に フィールド名を入力
    //Edit1, Edit2 に 値を入力
    sql := 'INSERT INTO ' + Edit4.Text + ' (' + Edit5.Text + ', ' + Edit6.Text + ') '
        +  'VALUES (' + Edit1.Text + ', ''' + Edit2.Text + ''')';

    cnn.Execute(sql);

    cnn.Close;
end;

Ada

PL/SQL

T-SQL

関数型

inserted by FC2 system