掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Excelデータ読み込みについて (ID：149059)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ADODataSet1.CommandText := 'select * from [テスト$]'; としてください 他にも提示のコードそのままでは構文エラーとなるところがあったので、実際に動いたコードを提示します。 以下のコードではDataSourceは必要ありません。 procedure TForm1.Button1Click(Sender: TObject); var s1,s2,s3: string; begin ADODataSet1.CommandText := 'select * from [テスト$]'; ADODataSet1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source="z:\TMP.XLS";Extended Properties=Excel 8.0;Persist Security Info=True'; ADODataSet1.Close; ADODataSet1.Open; with ADODataSet1 do begin First; while not Eof do begin s1:=Fields[0].AsString; s2:=Fields[1].AsString; s3:=Fields[2].AsString; ShowMessage(s1+s2+s3); Next; end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.