データベース接続でのエラーについて (ID:17792)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Delphiで初めてデータベースを作っていますが、"access violation"  エラー
が出てしまいます。
データベース、トランザクション、データセット（SQLパラメータの設定）をした後、コネクト/トランザクションスタート/データセットオープンをしようとしましたがエラーで通りません。何が原因か見当がつきませんどなたかヒントをいただけないでしょうか。
よろしくお願いいたします。

プロジェクト・オプションでの順はTDataModule1を先頭にしています。

procedure TDataModule1.DataModuleCreate(Sender: TObject);
var strdbpath: string;

begin
  with DataModule1.IBDatabase1 do
    begin
    //  データベースの設定
      strdbpath:='e:\database\passctl\secudata.fdb';
      Databasename:= strdbpath;
      Params.Clear;
      Params.Add('password=masterkey');
      Params.Add('User_name=SYSDBA');
      Params.Add('Lc_ctype=SJIS_0208');
    end;
  with DataModule1.IBTransaction1 do
    begin
    //  トランザクションの設定
      Params.Clear;
      Params.SetText('consistency');
      Params.SetText('wait');
      Params.SetText('write');
    end;
  with DataModule1.IBDataSet1 do
    begin
    //  データセットの設定
      DeleteSQL.Clear;
      DeleteSQL.Add('DELETE FROM SECUDATA');
      DeleteSQL.Add(' WHERE ');
      DeleteSQL.Add('LOGONID=:ID_Text');
            ・
            ・
            ・
//  データセットのオープン
  DataModule1.IBDatabase1.Connected := true;
  DataModule1.IBTransaction1.StartTransaction;
  DataModule1.IBDataSet1.Open;
end;

←解決時は質問者本人がここをチェックしてください。

戻る