5

ADOでパラメーター化されたクエリを使用しようとしています。オブジェクトを実行するとCommand、エラーがスローされます。

変数'@filename'を宣言する必要があります

私は以下@filenameを使用してパラメータを宣言しますCreateParameter/Append：

sql := 'INSERT INTO Sqm(Filename, data) VALUES(@filename, @data)';

command := CoCommand.Create;
command.Set_ActiveConnection(Connection.ConnectionObject);
command.Set_CommandText(sql);
command.Set_CommandType(adCmdText);
command.Parameters.Append(Command.CreateParameter('@filename', adLongVarWChar, adParamInput, -1, Filename));
command.Parameters.Append(Command.CreateParameter('@data', adLongVarWChar, adParamInput, -1, xml);

command.Execute({out}recordsAffected, EmptyParam, adCmdText or adExecuteNoRecords);

私は何が間違っているのですか？

4

3 に答える 3

14

私の知る限り、ADOはSQLセンテンスの名前付きパラメーター（SELECT、INSERT、UPDATE）をサポートしていないため、?charを使用してパラメーターを指定する必要があります

sql := 'INSERT INTO Sqm(Filename, data) VALUES(?, ?)';

次に、SQLセンテンスで使用されているのと同じ順序でパラメータ値を割り当てます。

ADO 2.6NamedParametersプロパティが導入されましたが、これはストアドプロシージャでのみ機能するようです。

于 2012-05-23T18:16:31.367 に答える
2

これを試して

uses ADODB, DB;
...
...
... and then in some event handler (e.g. button click),
var 
  aCommand :TADOCommand;
begin
  aCommand := TADOCommand.create(self);
  aCommand.ConnectionString := 'build the connection string or use TADOConnection and assign to Connection property instead of ConnectionString property';
  aCommand.commandText := 'INSERT INTO Sqm(Filename, data) VALUES(:filename, :data);';
  aCommand.parameters.paramByName('filename').value := 'test';
  aCommand.parameters.paramByName('data').value := 'some data';
  aCommand.execute;
  aCommand.free;
end;

TADOCommandとTADOQueryには、このように名前でパラメーターを使用していますが、問題はありません。

于 2012-05-24T09:22:59.300 に答える
0

以下に示すように、Parameters.AddWithValueを使用します

  connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Jet OLEDB:Database Password=RainbowTrout;";
  InsertQry = "Insert into Sections(Name, PartNumber, VersionNumber, Channel, Address, Status, IPAddr) "
        + "values(@SectionName, @PartNumber, @VersionNumber, @Channel, @Address, @Status, @IPAddr)";


  NewCfgConnection.ConnectionString = string.Format(connectionString, ConfigFN);
  NewCfgCommand.Connection = NewCfgConnection;
  NewCfgCommand.CommandText = InsertQry;
  NewCfgConnection.Open();

  // Clear parameter values from last record
  NewCfgCommand.Parameters.Clear();

  // Insert record into sections table - set parameters
  NewCfgCommand.Parameters.AddWithValue("@SectionName", sSectionName);
  NewCfgCommand.Parameters.AddWithValue("@PartNumber", sPartNumber);
  NewCfgCommand.Parameters.AddWithValue("@VersionNumber", sVersionNumber);
  NewCfgCommand.Parameters.AddWithValue("@Channel", iChannel);
  NewCfgCommand.Parameters.AddWithValue("@Address", iAddress);
  NewCfgCommand.Parameters.AddWithValue("@Status", iStatus);
  NewCfgCommand.Parameters.AddWithValue("@IPAddr", iIP);

  NewCfgCommand.ExecuteNonQuery();
于 2013-02-11T18:55:28.797 に答える