Problema con forms y zeos
 

Saludos Compañeros, de nuevo recurro a ustedes para que me ayuden en un nuevo problema que se me presenta sucede lo siguiente, tengo un formulario donde contiene los siguientes componentes:

1 - speedbutton
2 - ZQuery

y en el otro form contiene los edits corresponidientes al ZQuery, en el speedbutton tengo el siguiente codigo:

Código Delphi [-]
procedure TFTramiteMod.SpeedButton21Click(Sender: TObject);
begin
if (DBEdit1.Text = '') OR (DBEdit1.Text = '0') then
 begin
  MessageDlg('¡No se encuentra el número de registro!',mtError,[mbOK],0);
 end
 else
 begin
    FModPed:=TFModPed.Create(self);
    ZModPed.SQL.Add(' where no="'+DBEdit1.Text+'"');
    ZModPed.open;
    FModPed.ZDpto.Open;
    FModPed.Show;
 end;
end;

clickeo el boton el codigo funciona perfecto, aqui viene el problema, cierro el form que llame con el boton, no? y si vuel vo a presionar el mismo boton que hace un momento me funciono me tira esos errores:

primero me sale:

si presiono a ignorar me sale ese otro error:

no entiendo por que me sucede si al primer intento me funciona pero luego si lo presiono de nuevo me tira ese error:confused::confused::confused:.

saludos...

Hola,

La consulta SQL debería quedar tal que así:

Código SQL [-]
where no = 'valor'

Y creo tal vez también funcionaría sin comillas simples, pero, el problema está en que usas comillas dobles. Vamos, eso creo... :)

Quizás con la función "Format" (SysUtils.pas) pudieras arreglarlo... para empezar...

Código Delphi [-]
ZModPed.SQL.Add(Format(' where no = ''%s''',[DBEdit1.Text]));

Gracias dec por tu pronta respuesta pero de las dos formas que me sugeriste me da el mismo error al presionar el boton de nuevo:

Hola,

Pues es que el mismo mensaje de error está declarando dónde está el problema: en el "where" de la consulta SQL. Y es un problema de "sintáxis". Antes era por usar comillas dobles (creo estar seguro, pero, vamos, pueden corregirme) y ahora es por no usar comillas simples... eso, o estoy completamente equivocado. :)

En definitiva tienes que conformar la consulta SQL de forma que quede así:

Código SQL [-]
... where no = '123'

Y no:

Código SQL [-]
... where no = 123

Ni tampoco:

Código SQL [-]
... where no = "123"

eso es bastante raro dec, si es problema de xintaxis de sql no me deberia funcionar en el primer intento para luego no me funcione. digo eso creo yo, segun mi impresion que de alguna manera luego de presionar el boton la sintaxis where esté repetida dos veces, esa es la impresion que me da.

saludos...

Hola,

... Pues tal vez tengas que "limpiar" antes el componente...

Código Delphi [-]
ZModPed.SQL.Clear();
{...}

Tienes una muyt buena impresion de lo que sucede

En realidad con eso funciona pero como tienes precargadas la sentencia sql si le da el clear se va a borrar toda la instruccion. la unica opcion q veo es cargar la setencia completa cada vez que presione el boton, usar parametros o usar banderas

Hey, Muchas Gracias DEC y EDUARCOL por su ayuda, era algo tan simple, el codigo me quedo asi:

Código Delphi [-]
procedure TFTramiteMod.SpeedButton21Click(Sender: TObject);
begin
if (DBEdit1.Text = '') OR (DBEdit1.Text = '0') then
 begin
  MessageDlg('¡No se encuentra el número de registro!',mtError,[mbOK],0);
 end
 else
 begin
    FModPed:=TFModPed.Create(self);
    ZModPed.SQL.Clear;
    ZModPed.SQL.Add('select * from reg_pedidos');
    ZModPed.SQL.Add(Format(' where no = ''%s''',[DBEdit1.Text]));
    ZModPed.open;
    FModPed.ZDpto.Open;
    ShowMessage(ZModPed.SQL.Text);
    FModPed.Show;
 end;
end;

Nuevamente les doy las gracias, Saludos..