Consulta con el operador AND

[aanil]

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.

[droguerman]

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   ');

[aanil]

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

[roman]

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

[aanil]

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.