Delphi で ADO を使う Sample?

初めに

　最近、NaruToの日記「人間になりたぁい」がある日記サイト「ダイアリーノート」にアクセス元表示機能がついた。

　それを見ているとほとんどが検索エンジンからの参照で、8割ほどが技術情報を探しての検索で、そのうち3割ほどが「Delphi ADO」という組み合わせでした。

　NaruTo はもう Delphi を触っておらず、最新の Delphi ではどうなっているか分からないですが、参考になるかと思い、ADO の recordset を使ってデータを取り出すサンプルを置いておきます。

・・・って、これで役に立つんかいな・・・。

サンプルコードの該当部分


procedure TMain_Form.FormCreate(Sender: TObject);
var
    trst    : TRecordset;
    wstr    : WideString;
begin
    tcnn := TConnection.Create(Self);
    tcnn.ConnectionString :=
            'PROVIDER=Microsoft.Jet.OLEDB.4.0;'
            + 'DATA SOURCE=F:\project\DelphiDB\Phase.mdb;';
    tcnn.Open('','','',
            Integer(adConnectUnspecified));
    trst := TRecordset.Create(Self);
    trst.DefaultInterface.Open(
            'SELECT * FROM Phase',
            tcnn.DefaultInterface,
            CursorTypeEnum(adOpenUnspecified),
            LockTypeEnum(adLockUnspecified),
            CommandTypeEnum(adCmdUnspecified));
    while not(trst.DefaultInterface.EOF) do begin
        wstr := trst.DefaultInterface
                .Fields.Item['PhaseName'].Value;
        Phase_ListBox.Items.Add(String(wstr));
        trst.DefaultInterface.MoveNext;
    end;
    trst.DefaultInterface.Close;
    trst.free;
end;

その他