Question

执行 Command 对象丢弃错误 :

必须声明变量@ filename

i 声明参数 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);

我做错什么了?

Answer 1

据我所知, ADO 不支持 SQL 句子( SELECT、 INSERT、 UdDATE) 中命名的参数, 所以您必须使用 < code>? char 来表示参数

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

然后按照 sql 句中使用的顺序指定参数值。

ADO 2. 6 引入 < a href=" "http://msdn.microsoft.com/ en-us/library/windows/desktop/ms675840%28v=vs.85%29.aspx" rel="noreferr"\ code > NamedParameters 属性,但似乎只有存储程序才有效。

Answer 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 没有问题

Answer 3

使用参数。添加值如下

  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();

友情链接