problemas con consulta

[UREÑA]

hola amigos buen dia

lo que pasa es que tengo una consulta pero no se me logra cumplir la condicion

Código SQL [-]
 frm_DataModule.qry_Selec_Materia.Open;
 frm_DataModule.qry_Selec_Materia.SQL.Clear;
 frm_DataModule.qry_Selec_Materia.SQL.Add('SELECT ID_MATERIA, NOMBRE FROM MATERIA');
 frm_DataModule.qry_Selec_Materia.SQL.Add('WHERES (((MATERIA.CLAVE_AA) = '+VarToStr(frm_CapAlum1.combo_Nucleo.KeyValue)+') OR (MATERIA.NUCLEO_FORMACION) ='+QuotedStr('TRONCO COMUN')+' ) ');
 frm_DataModule.qry_Selec_Materia.SQL.Text;
 frm_DataModule.qry_Selec_Materia.Close;

 while not (frm_DataModule.qry_Selec_Materia.Eof) do

creo que la cadena "tronco comun" no me la esta tomando en cuenta para que pueda entrar al while.lo he corrido y en el text me lo muestra con comillas simples y tengo entendido que un string va con doble que no?

espero y entiendan lo que les quise decir y me puedan ayudar
muchas gracias mis amigos del foro

[jhonny]

Que tal si le cambias WHERES por WHERE?

[UREÑA]

ups que pena nunca me habia sentido tan avergonzado tengo que leer mejor

oye jony ya lo cambie y no sirvio que creees que sea?
ya cheque el query y el datasource y estan bien

[jhonny]

Empezado por UREÑA

ups que pena nunca me habia sentido tan avergonzado tengo que leer mejor

Pues tranquilo, a muchos nos a sucedido varias veces .

Empezado por UREÑA

oye jony ya lo cambie y no sirvio que creees que sea?
ya cheque el query y el datasource y estan bien

Pues la verdad creí que era lo del wheres, pero ahora que lo cambias y sigue sin funcionar y que ademas no muestra ningun error, ¿No sera que rm_CapAlum1.combo_Nucleo.KeyValue te lo esta enviando como NULL?, pruebalo y nos cuentas.

[ContraVeneno]

Vamos a ver... primero abres la consulta y luego la cambias....
frm_DataModule.qry_Selec_Materia.Open;

después de que la cambias, no la vuelves a abrir....

Y luego mandas llamar a la instrucción ".Text" pero no va dentro de ningún mensaje...
frm_DataModule.qry_Selec_Materia.SQL.Text;

y luego la cierras...
frm_DataModule.qry_Selec_Materia.Close;

Yo recomendaría:

Código Delphi [-]
with  frm_DataModule.qry_Selec_Materia do begin
 if active then close; 
 SQL.Clear; 
 SQL.Add('SELECT ID_MATERIA, NOMBRE FROM MATERIA');
 SQL.Add('WHERE (MATERIA.CLAVE_AA = '+VarToStr(frm_CapAlum1.combo_Nucleo.KeyValue));
 SQL.Add('OR MATERIA.NUCLEO_FORMACION ='+QuotedStr('TRONCO COMUN')+') '); 
 Open;
 First;
 while not (Eof) do begin
  ....
  Next;
 end; //while
end; //with

[jhonny]

Empezado por ContraVeneno

Vamos a ver... primero abres la consulta y luego la cambias....

Vaya¡¡¡, ContraVeneno si que tienes razón, yo no habia notado ese "pequeñito" detalle

[UREÑA]

amigos me marca un error

le estube picando quise usar el vartostr en ves del quotedstr
pero no jala, el error es el siguiente:

conversion error from.string""

gracias y disculpen la molestia

[UREÑA]

ya pude

cambie

Código SQL [-]
frm_DataModule.qry_Selec_Materia.SQL.Add('WHERE (MATERIA.CLAVE_AA = '+VartoStr(frm_CapAlum1.combo_Nucleo.KeyValue));

por

frm_DataModule.qry_Selec_Materia.SQL.Add('WHERE (MATERIA.CLAVE_AA = '+QuotedStr(frm_CapAlum1.combo_Nucleo.KeyValue));

gracias una vez mas