SQLのフィールド挿入の際の変数の代入法について (ID:49182)

名前

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

本文

igyさん

いつもありがとうございます。

サイトの内容を元に作ってみましたが、

モジュール  'SqliteTest2.exe'のアドレス00651769でアドレス00000000
に対する読み取り違反がおきました。  と出ます。

どこが悪いのでしょうか？

---------------------------------
procedure TForm1.Button4Click(Sender: TObject);

begin

//念のため接続を切断してから設定

ZQuery1.Close;
  ZConnection1.Disconnect;
  ZConnection1.LoginPrompt := False;

ZConnection1.Protocol := 'sqlite-3';
  ZConnection1.Database := ExpandFileName('AddressBook.db3');
  ZConnection1.Connect;
  ZConnection1.Disconnect;

ZQuery1.Close;
  ZQuery1.Connection := ZConnection1;
  //TZConnectionのPrepareSQLプロパティの値をTrueにする
  ZConnection1.Properties.Clear;
  ZConnection1.Properties.Add('PrepareSQL=True');

//パラメータのチェックありにする
  ZQuery1.ParamCheck := True;

ZQuery1.SQL.Text := 'INSERT INTO AddressTBL SET [氏名] = :Name, [生年月日] = :Birth,[住所]  = :Addr;';

//クエリのパラメータの設定
  ZQuery1.ParamByName('Name').AsString   := Edit1.Text;
  ZQuery1.ParamByName('Birth').AsDateTime := StrToDateTime(Edit2.Text);
  ZQuery1.ParamByName('Addr').AsString := Edit3.Text;
  //更新クエリの実行
  ZQuery1.ExecSQL;

}

end;

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

戻る