☆ExcelをADOで操作する。
ADOConnection1の設定です。
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' + 'Data Source=C:\master.xls;' + 'Extended Properties=EXCEL 8.0'; ADOConnection1.LoginPrompt := False;
次にADOTable1の設定です。ポイントは、TableNameでシート名を[ ]で囲うことです。これをしないと「FROM 句の構文エラーです。」と表示され、ファイルをオープンすることができません。TableNameをオブジェクトインスペクタで選択した場合には、[ ]がないので要注意です。
ADOTable1.Connection := AdoConnection1; ADOTable1.TableName := '[sheet1$]'; ADOTable1.Active := True;
これでExcelの内容がDBGridに表示されるようになりました。
ADOConnection1、ADOTable1をクローズします。
そして、実行時にファイルをオープン/クローズする処理を書きます。
procedure TForm1.FormCreate(Sender: TObject); begin ADOTable1.Open; end; procedure TForm1.FormDestroy(Sender: TObject); begin ADOTable1.Close; ADOConnection1.Close; //念のため end;
ADOでの操作では追加や編集は可能ですが、行を削除をしようとすると次のようなエラーメッセージが表示されます。
[参考にした書籍]
Marco Cantu
Delphi6プログラミングバイブル
| 固定リンク