Ver Mensaje Individual
  #2  
Antiguo 10-06-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Con tu permiso modifico el código, creo que falta QuotedStr para encerrar el valor de buscarArticulo.text entre comillas simples. ¿O será que en access son comillas dobles ¿?

Código Delphi [-]
const sqlArticulos = 'Select * from tb_Articulos where %s = %s'
 if (key = #13) then
    begin
      With dm.QBusArticulo do
        begin
          Close;
//          SQL.Clear; En realidad no hace falta, ya que al establecer la propiedad Text
//                        Se hace un Clear internamente.

          if rgBusArticulo.ItemIndex = 1 then
              SQL.Text := Format(sqlArticulos, ['idArtEan',
                                                  QuotedStr(frmBusArticulo.edtBusArticulos.Text)])
          else
              SQL.Text := Format(sqlArticulos, ['Nombre',
                                                  QuotedStr(frmBusArticulo.edtBusArticulos.Text)]);

         Open;
        end;
    end;

En este caso, estoy suponiendo que idArtEan y Nombre son campos de tipo carácter (string, varchar, etc). Si idArtEan es un campo de tipo entero, no hace falta el QuotedStr.

Si QuotedStr no te funciona, prueba a encerrarlo con comillas dobles.

Si no es mucha molestia me gustaría que comentaras la solución (si se resuelve... claro )

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita