C++Builder Personal で DAO

テキストファイルを読む（１行目もデータ）

void __fastcall TForm1::Button22Click(TObject *Sender)

{

    //表示用コントロールをクリア

    ListBox1->Items->Clear();

    ListBox2->Items->Clear();
    Variant de = Variant::CreateObject("DAO.DBEngine.36");
    //Edit3 に テキストファイルのパスを入力

    Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<<false<<false<<"Text;HDR=no");
    //Edit4 に テキストファイル名を入力

    const int dbOpenTable = 1;

    Variant rs = db.Exec(Function("OpenRecordset")<<Edit4->Text<<dbOpenTable);
    while (!rs.Exec(PropertyGet("EOF")))

    {

        //表示用コントロールに項目内容をセット

        Variant fd = rs.Exec(PropertyGet("Fields")<<0);

        ListBox1->Items->Add(fd.Exec(PropertyGet("Value")));
        fd = rs.Exec(PropertyGet("Fields")<<1);

        ListBox2->Items->Add(fd.Exec(PropertyGet("Value")));
        rs.Exec(Function("MoveNext"));

    }
    rs.Exec(Procedure("Close"));

    db.Exec(Procedure("Close"));

}