Delphi Personal で DAO
テキストファイルを読む(1行目がヘッダ)
procedure TForm1.Button21Click(Sender: TObject);
var
de:Variant;//DBEngine
db:Variant;//Database
rs:Variant;//Recordset
const
dbOpenTable:Integer = 1;
begin
//表示用コントロールをクリア
ListBox1.Items.Clear;
ListBox2.Items.Clear;de := CreateOleObject('DAO.DBEngine.36');
//Edit3 に テキストファイルのパスを入力
db := de.OpenDatabase(Edit3.Text, false, false, 'Text');//Edit4 に テキストファイル名を入力
rs := db.OpenRecordset(Edit4.Text, dbOpenTable);while not rs.EOF do
begin
//表示用コントロールに項目内容をセット
ListBox1.Items.Add(rs.Fields[0].Value);
ListBox2.Items.Add(rs.Fields[1].Value);rs.MoveNext;
end;rs.Close;
db.Close;
end;