problema busqueda SQL

[mjjj]

Hola amigos.... espero me puedan ayudar con un problema de busqueda con select

les cuento... necesito hacer una busqueda con respecto a 2 campos (OT y Sub)... ot es tipo long integer y sub alpha (asignadas en mi tabla paradox)
ahora bien... la busqueda se realiza con un boton desde un form que tiene el siguiente codigo

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add ('Select *');
Query1.SQL.Add ('FROM Load.db');
Query1.SQL.Add ('WHERE OT = ' + Edit1.Text);
Query1.SQL.Add ('AND Sub =' + Edit2.text);
Query1.Open;

... creo entedender porque ocurre el problema... si es que lo escribo directamente en la propiedad SQL del query, necesito escribir la busqueda del campo Sub entre comillas ('') ya que es de tipo alpha.... digo esto porque si lo hago directamente al SQL del query, con parametros fijos si funciona....

entonces, aqui es donde necesito de su ayuda... de alguna ideo o codigo para poder agregar al SQL una sentencia que contenga comillas ('')... si es que realmete ese el problema

desde ya les agradezco su ayuda y tiempo

gracias

[ContraVeneno]

Código Delphi [-]
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add ('Select *');
Query1.SQL.Add ('FROM Load.db');
Query1.SQL.Add ('WHERE OT = ' + Edit1.Text);
Query1.SQL.Add ('AND Sub =' + quotedstr(Edit2.text));
Query1.Open;

tambien podrías utilizar parámetros...

[[Caral]]

Hola mjjj
En la sentencia sql, me parece que el campo OT es integer y lo quieres presentar de un edit que es string.
El campo alpha no se que es?
Para mi :

Código Delphi [-]
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text:= 'Select * FROM Load.db '+
                 'WHERE OT = ' +IntToStr(Edit1.Text)+ 'AND Sub =' + quotedstr(Edit2.text);
Query1.Open;

Para que usar tanto add?
Saludos

[mjjj]

muchas gracias contraveneno... exactamente lo que necesita.... funciona perfecto

saludos

[ContraVeneno]

Al usar una instrucción Add por cada línea SQL, en case de que exista un error, el manejador de bases de datos te dirá "error en la línea X" con lo que podras ir a esa línea y corregir el error. Cuando utilizas "SQL.Text" en caso de haber un error, el mensaje siempre será "error en la línea 1" con lo que se hace un poquito complicado ver donde esta el error.

No hay necesidad de:
IntToStr(Edit1.Text)

Ya que la propiedad Text del Edit es de tipo string.

[[Caral]]

Hola ContraVeneno
Curioso>

ot es tipo long integer

Y ot esta en el edit1.text.
Bueno me parece extraño nada mas.
Con respecto a usar add, si uno tiene cualquier sentencia en el sql del query dara error, muchas veces es practico tener la sentencia en este.
Bueno solo opino.
Saludos

[ContraVeneno]

De hecho, usar Query.SQL.Add es lo mismo que usar Query.SQL.Text. Si agregas tu sentencia SQL por medio de .Add(), igual puedes usar por ejemplo:

showmessage(SQL.Text);

y verás la instrucción... en una sola línea, pero igual la puedes ver.

Como te menciono, la diferencia es que al usar .Add , la sentencia quedará dividida en el número de líneas que lo hayas puesto. En cambio al usar .Text todo quedará en una sola línea.

Las ventajas para mi que utilizo SQL Server y utilizo mucho el profiler (que es una herramienta para monitorear las activadades de la base de datos) es que puedo ver la sentencia SQL bien organizada. Si utilizara .Text, me aparecería toda la consulta en una sola línea la cuál es dificil de leer.