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

ForNext

Only Do What Only You Can Do

16. 追加クエリー

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

更新日 : 2006.07.15
void __fastcall TForm1::Button16Click(TObject *Sender)
{
    //データベースを開く (排他モード = false, 読み込み専用 = false)
    Variant de = Variant::CreateObject("DAO.DBEngine.36");
    Variant db = de.Exec(Function("OpenDatabase") << "e:\\test.mdb" << false << false);

    //クエリー文字列を編集
    AnsiString sql  =
        "INSERT INTO "
        "M_商品"
        "("
        "商品CD,"
        "商品名,"
        "ふりがな"
        ")"
        "VALUES"
        "("
        + Edit1->Text + ","
        "'" + Edit2->Text + "',"
        "'" + Edit3->Text + "'"
        ")";

    //クエリーを実行
    db.Exec(Procedure("Execute") << sql);

    //データベースを閉じる
    db.Exec(Procedure("Close"));
}

VC++

C#

Java

Objective-C

D

VB

更新日 : 2006.07.15
Private Sub Command16_Click()
    'データベースを開く (排他モード = False, 読み込み専用 = False)
    Dim db As Database
    Set db = DBEngine.OpenDatabase("e:\test.mdb", False, False)

    'クエリー文字列を編集
    Dim Sql As String
    Sql = "INSERT INTO M_商品"
    Sql = Sql & "("
    Sql = Sql & "商品CD,"
    Sql = Sql & "商品名,"
    Sql = Sql & "ふりがな"
    Sql = Sql & ")"
    Sql = Sql & "VALUES"
    Sql = Sql & "("
    Sql = Sql & Text1.Text & ","
    Sql = Sql & "'" & Text2.Text & "',"
    Sql = Sql & "'" & Text3.Text & "'"
    Sql = Sql & ")"

    'クエリーを実行
    db.Execute Sql

    'データベースを閉じる
    db.Close
End Sub

VB.NET

Delphi

更新日 : 2006.07.15
procedure TForm1.Button16Click(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 := 'INSERT INTO '
        +  'M_商品'
        +  '('
        +  '商品CD,'
        +  '商品名,'
        +  'ふりがな'
        +  ')'
        +  'VALUES'
        +  '('
        +  Edit1.Text + ','
        +  '''' + Edit2.Text + ''','
        +  '''' + Edit3.Text + ''''
        +  ')';

    //クエリーを実行
    db.Execute(sql);

    //データベースを閉じる
    db.Close;
end;

Ada

PL/SQL

T-SQL

関数型

inserted by FC2 system