ForNext

06. クエリーを作成する

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

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

    //クエリー文字列を編集
    AnsiString sql= "SELECT 商品CD, 商品名 FROM M_商品 ORDER BY ふりがな";

    //クエリーを作成
    Variant qd = db.Exec(Function("CreateQueryDef") << "Q_商品_名前順" << sql);

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

VC++

C#

Java

Objective-C

D

VB

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

    'クエリー文字列を編集
    Dim Sql As String
    Sql = "SELECT 商品CD, 商品名 FROM M_商品 ORDER BY ふりがな"

    'クエリーを作成
    Dim qd  As QueryDef
    Set qd = db.CreateQueryDef("Q_商品_名前順", Sql)

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

VB.NET

Delphi

procedure TForm1.Button6Click(Sender: TObject);
var
    de :Variant;//DBEngine
    db :Variant;//Database
    qd :Variant;//QueryDef
    sql:String;
begin
    //データベースを開く (排他モード = true, 読み込み専用 = false)
    de := CreateOleObject('DAO.DBEngine.36');
    db := de.OpenDatabase('e:\test.mdb', true, false);

    //クエリー文字列を編集
    sql:= 'SELECT 商品CD, 商品名 FROM M_商品 ORDER BY ふりがな';

    //クエリーを作成
    qd := db.CreateQueryDef('Q_商品_名前順', sql);

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

Ada

PL/SQL

T-SQL