“delphi”怎样判断“adoquery”查询后的结果是不是为空？

Posted 2023-03-09

参考技术A 1、使用adoquery2.IsEmpty判断是否为空\\x0d\\x0a或者使用if adoquery2.RecordCount>0 then\\x0d\\x0aif not(adoquery2.IsEmpty) then\\x0d\\x0a begin\\x0d\\x0a ShowMessage("此产品已存在");\\x0d\\x0a exit;\\x0d\\x0a end;\\x0d\\x0a2、 SQL语句中引入参数之后，在执行SQL语句之前就必须给参数赋值。如何赋值呢？这就要用到ADOQuery组件的Parameters属性。该属性是一个下标从0开始的数组：\\x0d\\x0aParameters[0]、Parameters[1]、Parameters[2]、?、\\x0d\\x0a其中的每个数组元素与ADOQuery组件的SQL语句中的参数相对应，例如要给SQL语句中的第一个参数赋值，可以执行如下语句：\\x0d\\x0a\\x0d\\x0aADOQuery1.Parameters[0].Value:=<参数值>\\x0d\\x0a\\x0d\\x0a要给SQL语句中的第二个参数赋值，可以执行如下语句：\\x0d\\x0a\\x0d\\x0aADOQuery1.Parameters[1].Value:=<参数值> \\x0d\\x0a\\x0d\\x0a以此类推 ? \\x0d\\x0a\\x0d\\x0a除了用Parameters[0].Value 、Parameters[1].Value 等来给SQL语句中的参数赋值外，还可以使用如下语句：\\x0d\\x0a\\x0d\\x0aParameters.ParamByName(<参数名>).Value:=<参数值> \\x0d\\x0a\\x0d\\x0a来给参数赋值。例如，例Parameters[0].Value:=edit1.Text;可以改为：\\x0d\\x0a\\x0d\\x0aParameters.ParamByName(‘XianShi’).Value:=edit1.Text;\\x0d\\x0a\\x0d\\x0a很明显，后一种方式比前一种更直观一些。 \\x0d\\x0a\\x0d\\x0aSQL命令中带有多个参数的情形\\x0d\\x0a\\x0d\\x0aSQL命令中可以带有多个参数，例如：某个Query组件，为它编写如下的动态SQL语句： \\x0d\\x0a\\x0d\\x0aInsert Into Customer(CustNo，Name，Country) Values(：CustNo ，：Name ，：Country) \\x0d\\x0a\\x0d\\x0a对于上述这条动态SQL语句中的三个参数，可以利用Query的Params属性为参数赋值：\\x0d\\x0a\\x0d\\x0aQuery.Params[0].AsString:=”1998” ;\\x0d\\x0a\\x0d\\x0aQuery.Params[1].AsString:=”AAA” ;\\x0d\\x0a\\x0d\\x0aQuery.Params[2].AsString:=”China”; \\x0d\\x0a\\x0d\\x0a上述语句将把“1998”赋给参数CustNo，“AAA”赋给参数Name，“China”赋给参数Country。