delphi中不断出现“条件表达式中的数据类型不匹配”错误

z4bn682m 于 2021-08-01 发布在 Java

关注(0)|答案(2)|浏览(515)

每当此代码运行时，我都会得到上面的错误。代码应该将一条记录插入一个表中，然后从另一个表中删除记录。

for I := iMax - K to iMax do
begin
  Inc(a);
  with dmMenu.qryMcDonalds do
  begin
    SQL.Text :=
      'SELECT ID, ItemID, ItemPrice, ItemCategory FROM tblCheckout WHERE ID = ' + IntToStr(I);
    Open;
    sItemID := Fields[1].AsString;
    rItemPrice := Fields[2].AsFloat;
    sItemCategory := Fields[3].AsString;

    ShowMessage(IntToStr(I));
     // I get the error here
    SQL.Text :=
      'INSERT INTO tblOrderItems (OrderItemID, OrderID, ItemID, ItemCategory, ItemPrice) VALUES ("' + sOrderID + '_' + IntToStr(a) + '"' + ', "' + sOrderID + '", "' + sItemID + '", "' + sItemCategory + '", "' + FloatToStrF(rItemPrice, ffCurrency, 10, 2) + '")';
    ExecSQL;

    SQL.Text := 'DELETE FROM tblCheckout WHERE ID = ' + IntToStr(I); 
    ExecSQL;
  end; // with SQL 
end; // for I

编辑：我想问题出在“插入”部分。除最后一列外，所有列都是短文本，itemprice是一种货币。我也在使用access

sql error-handling delphi delphi-2010

来源：https://stackoverflow.com/questions/62676115/i-keep-getting-data-type-mismatch-in-criteria-expression-error-in-delphi

2条答案

按热度按时间

xa9qqrwz1#

请在主窗体上仅使用以下项启动新项目：
配置为连接到数据库的tadoconnection；
配置为使用tadoconnection的tadoquery
一种tdatasource和tdbgrid，配置为显示tadoquery的内容。
然后，将以下代码添加到表单中

const
    sSelect = 'select * from tblOrderItems';
    sInsert = 'insert into tblOrderItems(OrderItemID, OrderID, ItemID, ItemCategory, ItemPrice) '#13#10
    +  'values(:OrderItemID, :OrderID, :ItemID, :ItemCategory, :ItemPrice)';

    sOrderItemID = '0999';
    sOrderID = '1999';
    sItemID = '2999';
    sItemCategory = 'Bolt';
    fItemPrice = 5.99;

  procedure TForm2.FormCreate(Sender: TObject);
  begin

    AdoQuery1.SQL.Text := sInsert;
    AdoQuery1.Prepared := True;

    AdoQuery1.Parameters.ParamByName('OrderItemID').Value:= sOrderItemID;
    AdoQuery1.Parameters.ParamByName('OrderID').Value := sOrderID;
    AdoQuery1.Parameters.ParamByName('ItemID').Value := sItemID;
    AdoQuery1.Parameters.ParamByName('ItemCategory').Value := sItemCategory;
    AdoQuery1.Parameters.ParamByName('ItemPrice').Value := fItemPrice;

    AdoQuery1.ExecSQL;

    AdoQuery1.SQL.Text  := sSelect;
    AdoQuery1.Open;
  end;

在编译和运行程序之前，请检查并更改常量的值，以便它们不会与表中已有的任何行冲突。
常量sinsert在 Values 列表中的项：orderitemid、：orderid等是占位符，adoquery将这些占位符转换为参数，您可以在运行时提供这些参数的值，如后面的块中所示 AdoQuery1.Parameters.ParamByName(... 您应该始终以这种方式构造sql语句，而不是像代码试图做的那样通过连接字符串。它不容易出错，因为如果您使用diy代码，很容易陷入语法混乱，而且它还确保您的查询不容易受到sql注入攻击，如果您给用户编辑sql的机会，这种情况就会发生。
如果您使用的是firedac fdquery，则 Params （一种fd数据类型）而不是thn参数，但它们的工作方式基本相同-请参阅联机帮助。
以后，请更加小心地确保包含重要的细节，特别是发生错误的确切行（可以使用调试器单步检查代码），以及使用的确切db访问组件。另外，还要尝试获取正确的详细信息，例如列是“短文本”类型还是自动编号。
对于需要调试的问题，比如这个问题，您还应该提供一个完整的、最小的、可复制的示例，而不仅仅是一段代码。很多时候，当你准备mre的时候，你会意识到问题所在，所以它对你和我们都有帮助。

赞(0）回复(0）举报 2021-08-01

dtcbnfnu2#

我敢打赌问题是在不兼容的浮点格式。使用参数来避免它。

赞(0）回复(0）举报 2021-08-01