Consulta con el operador AND
 

Hola a todos:

Quien pude decirme el por qué este código me produce un error?

Veamor

Código SQL [-]
procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
If radiobutton1.Checked = true then begin
with datam.ADOQuery1 do begin
close;
sql.Clear;
sql.Add('select * FROM tabla1');
sql.Add('where nombres = '+QUOTEDSTR (edit1.Text)  and centro_educ ='+QUOTEDSTR (edit2.Text));
sql.Add('order by nombres asc');
open;

If (edit1.Text ='') or (edit2.Text = '') then
Showmessage ('Debes escribir datos correctos');
end;
end;
end;



end.

Aclaro que error se produce por ahora en la linea que tiene la condición Where.

Gracias.

donde escribes:

Código SQL [-]
sql.Add('order by nombres asc');

pon:

Código SQL [-]
sql.Add('   order by nombres asc');

el espacio es necesario.
y donde escribes:

Código SQL [-]
sql.Add('select * FROM tabla1');

escribe:

Código SQL [-]
sql.Add('select * FROM tabla1   ');

Gracias por su ayuda, pero realmente el error me lo está produciendo en la línea linea que dice:

Código SQL [-]
sql.Add('where nombres = '+QUOTEDSTR(edit1.Text)  and  centro_educ = +quotedstr (edit2.Text));

Una vez yo utilicé ese fragmento de código y me funcionó, creo que lo hice bien por casualidad, ahora no se que pasa.

Gracias

Fíjate que el mismo resaltador de sintaxis te indica que algo anda mal en tu código. Debería ser algo así:

Código Delphi [-]
sql.Add('where nombres = '+QUOTEDSTR (edit1.Text) + ' and centro_educ =' + QUOTEDSTR (edit2.Text));

// Saludos

Hola de nuevo, es forma fue la que empleé en otro práctica, pero fue una pura casualidad.

Fíjate que en mi código faltó

Código SQL [-]
+ 'and  centro_educ = '+quotedstr(edit2.Text))

que es lo que producía el error.

Gracias.

Puedes cerrar este hilo.