ADOでSQLServerにINSERTするには (ID:34641)

名前

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

本文

Delphi7を使っています。
SQLServerに入力したデータを登録するようにしたいのですが、登録のボタンをクリックすると
パラメータ'コード'が見つかりません
というエラーが出ます。
どこがおかしいのか教えてください。

procedure TForm1.Button1Click(Sender: TObject);
//登録(続けて登録)処理
begin
  if Edit1.Text = '' then//必須入力項目確認
  ShowMessage('名前が入力されていません')
  else
    begin
      if Edit8.Text = '' then//必須入力項目確認
      ShowMessage('カナが入力されていません')
      else
        begin
          if Application.MessageBox('登録してよろしいですか？','登録確認',MB_YESNO) <> IDYES then//登録確認
          //登録処理
          ADOQuery1.SQL.Text := 'INSERT INTO TBL_アドレス帳 VALUES (:コード,:カナ名,:名前,:グループ,:住所１,:住所２,:電話番号,:メールアドレス)';
          ADOQuery1.Parameters.ParamByName('コード').Value := Edit7.Text;
          ADOQuery1.Parameters.ParamByName('カナ名').Value := Edit8.Text;
          ADOQuery1.Parameters.ParamByName('名前').Value := Edit1.Text;
          ADOQuery1.Parameters.ParamByName('グループ').Value := ComBoBox1.Text;
          ADOQuery1.Parameters.ParamByName('住所１').Value := Edit3.Text;
          ADOQuery1.Parameters.ParamByName('住所２').Value := Edit4.Text;
          ADOQuery1.Parameters.ParamByName('電話番号').Value := Edit5.Text;
          ADOQuery1.Parameters.ParamByName('メールアドレス').Value := Edit6.Text;
          ADOQuery1.ExecSQL;
          ShowMessage('登録しました');
          //初期画面に戻す
          ADOQuery2.SQL.Text := 'SELECT(CONVERT(INT,MAX(ISNULL(コード,0)) + 1))AS コード FROM TBL_アドレス帳';
          ADOQuery2.Open;
          Edit7.Text := ADOQuery2.FieldByName('コード').AsString;
          Edit1.Text := '';
          Edit8.Text := '';
          ComboBox1.Text := '01';
          Edit3.Text := '';
          Edit4.Text := '';
          Edit5.Text := '';
          Edit6.Text := '';
        end;
    end;
end;

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

戻る