错误德尔福/ MySQL的/参数

好了，情况是：我有1 TComboBox称为cboTipDocIden和1个TEDIT称为txtDocIdenSolic。错误德尔福/ MySQL的/参数

cboTipDocIden的值为："1.DNI","2.RUC"。

组件TUniQuery被称为q_DetSolicitante。

SQL语句的目标是：

SELECT oper_solicitante.id_solicitante, oper_solicitante.ape_pat, oper_solicitante.ape_mat, 
     oper_solicitante.nombre, oper_solicitante.direcc_idtipcalle, oper_solicitante.direcc_nombrecalle, 
     oper_solicitante.direcc_nro, oper_solicitante.idvinculo_fk 
FROM oper_solicitante 
WHERE oper_solicitante.tipDocIden = :TipDocIden AND 
     oper_solicitante.nroDocIden = :NroDocIden

的SQL是在OnExit事件的txtDocIdenSolic，这里的代码执行：

procedure TForm1.txtDocIdenSolicExit(Sender: TObject); 
var 
    TipDocIden, NroDocIden:string; 
begin 
    if(length(txtDocIdenSolic.Text)>0) then 
    begin 
    TipDocIden:=chr(39)+copy(cboTipDocIden.Text,1,1)+chr(39); 
    NroDocIden:=chr(39)+trim(txtDocIdenSolic.Text)+chr(39); 
    q_DetSolicitante.Close; 
    q_DetSolicitante.Params[0].AsString:=TipDocIden; 
    q_DetSolicitante.Params[1].AsString:=NroDocIden; 
    q_DetSolicitante.Open; 

    if(length(q_DetSolicitante.FieldByName('id_solicitante').AsString)=0) then 
    begin 
     stbar.Panels[0].text:='Nuevo Solicitante...'; 
     txtApePat.SetFocus; 
    end 
    else 
    begin 
     stbar.Panels[0].Text:='Solicitante Reiterativo...'; 
     txtApePat.Text:=q_DetSolicitante.FieldByName('ape_pat').AsString; 
     txtApeMat.Text:=q_DetSolicitante.FieldByName('ape_mat').AsString; 
     txtNombre.Text:=q_DetSolicitante.FieldByName('nombre').AsString; 
    end; 
    end 
    else 
    msg1.Execute; 
end;

最后，表结构为：

CREATE TABLE `oper_solicitante` (
    `id_solicitante` int(11) NOT NULL, 
    `tipDocIden` char(1) NOT NULL, 
    `nroDocIden` varchar(11) NOT NULL, 
    `ape_pat` varchar(50) NOT NULL, 
    `ape_mat` varchar(50) NOT NULL, 
    `nombre` varchar(50) NOT NULL, 
    `direcc_idtipcalle` int(11) NOT NULL, 
    `direcc_nombrecalle` varchar(80) NOT NULL, 
    `direcc_nro` varchar(15) NOT NULL, 
    `idvinculo_fk` int(11) NOT NULL, 
    PRIMARY KEY (`id_solicitante`) 
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

那么，SQL返回Delphi中的零行，但是当我更改SQL的工作原理值的参数时。

感谢您的帮助。

来源

2013-01-12 Americo Torres

Bienvenido a StackOverflow。 Editétu pregunta paraañadirformato a tu sentencia CREATE TABLE y para eliminar tu firma，ya queaquínoestánpermitidas。不要犹豫不决。 – jachguate

删除参数值周围的chr(39)个字符。使用Params[].AsString允许数据库驱动程序正确引用它们，并且您正在添加（加倍）它们，从而导致查询失败。

TipDocIden:= copy(cboTipDocIden.Text,1,1); 
NroDocIden:= trim(txtDocIdenSolic.Text); 
q_DetSolicitante.Close; 
q_DetSolicitante.Params[0].AsString := TipDocIden; 
q_DetSolicitante.Params[1].AsString := NroDocIden; 
q_DetSolicitante.Open;

来源

2013-01-12 17:12:34

+1，赶上！ – jachguate

错误德尔福/ MySQL的/参数

回答

相关问题