Error: Type mismatch in expression

[gusanita]

Hola!!!

El siguiente es mi código:

Código Delphi [-]
DataModuleBD.Query.SQL.Clear;
DataModuleBD.Query.SQL.Add('Select ALU_NOM, ALU_SEM, ALU_ESP');
DataModuleBD.Query.SQL.Add('From ":BDBECAS_BAJDEF: DATPERAL"');
DataModuleBD.Query.SQL.Add('Where ALU_CTRL = ' + validancontrol.Text);
DataModuleBD.Query.SQL.Add(';');
DataModuleBD.Query.Open;

Y cuando termina de leer la aultima linea me manda el error!!! (Type mismatch in expression).
El tipo de campo de ALU_CTRL es varchar.

Gracias por su atención!!!

[roman]

Si ALU_CTRL es de tipo texto, sustituye validancontrol.Text por QuotedStr(validancontrol.Text).

Por otra parte fíjate que el error es acerca de tipos de datos, por tanto sería recomendable que nos índicaras de qué tipos de datos son tus campos.

EDITO:

¡Ah!, veo que ya agregaste esa información

// Saludos

[gusanita]

Hola!!!

Para que es el QuotedStr(validancontrol.Text)???

Gracias por atender!!!!

[roman]

Suponte que validancontrol tiene el texto HU74832. Si examinas la sentencia SQL verás que queda así:

Código SQL [-]
Select ALU_NOM, ALU_SEM, ALU_ESP
From ":BDBECAS_BAJDEF: DATPERAL"
Where ALU_CTRL = HU74832

Lo cual es incorrecto por que faltan las comillas alrededor de HU74832. QuotedStr te pone esas comillas. Podrías hacerlo tú misma:

Código Delphi [-]
DataModuleBD.Query.SQL.Add('Where ALU_CTRL = "' + validancontrol.Text + '"');

pero termina siendo bastante ilegible tantas comillas. De hecho, lo mejor siempre que uses consultas donde el valor de un campo varíe, es usar parámetros:

Código Delphi [-]
DataModuleBD.Query.SQL.Clear;
DataModuleBD.Query.SQL.Add('Select ALU_NOM, ALU_SEM, ALU_ESP');
DataModuleBD.Query.SQL.Add('From ":BDBECAS_BAJDEF: DATPERAL"');
DataModuleBD.Query.SQL.Add('Where ALU_CTRL = :ctrl');
DataModuleBD.Query.SQL.Add(';');
DataModuleBD.Query.Open;

y sustituir el parámetro al momento de ejecutar la consulta:

Código Delphi [-]
DataModuleBD.Query.ParamByName('ctrl').AsString := validancontrol.Text;

Al usar AsString, ya le estás indicando que el parámetro es texto y se agregarán las comillas automáticamente. El uso de parámetros te deja un código mucho más prolijo y manejable.

// Saludos

[gusanita]

Hola!!!

y sustituir el parámetro al momento de ejecutar la consulta:

Código Delphi [-]
DataModuleBD.Query.ParamByName('ctrl').AsString := validancontrol.Text;

Disculpa pero, te refieres a colocar esta instruccion antes de la siguiente???

Código Delphi [-]
DataModuleBD.Query.Open;

Gracias nuevamente por tu pronta atención!!!!

[roman]

Empezado por gusanita

Disculpa pero, te refieres a colocar esta instruccion antes de la siguiente???

Sí

// Saludos

[gusanita]

Mi código quedó de la siguiente manera:

Código Delphi [-]
DataModuleBD.Query.SQL.Clear;
DataModuleBD.Query.SQL.Add('Select ALU_NOM, ALU_SEM, ALU_ESP');
DataModuleBD.Query.SQL.Add('From ":BDBECAS_BAJDEF: DATPERAL"');
DataModuleBD.Query.SQL.Add('Where ALU_CTRL = :ctrl');
DataModuleBD.Query.SQL.Add(';');
DataModuleBD.Query.ParamByName('ctrl').AsString := validancontrol.Text;
DataModuleBD.Query.Open;

Pero aun me sigue marcando el mismo error!!!

Nuevamente Muchas Gracias!!!

[roman]

¡Pues no veo nada extraño! Excepto dos cosas:

1. En 'From ":BDBECAS_BAJDEF: DATPERAL yo quitaría el espacio después de los segundos :

2. Supongo que es innecesario el ; al final de la consulta.

En Paradox, el punto 1 marca un error pero distinto al que mencionas. El punto 2 no genera problemas pero no sé qué base de datos uses y quizá sí afecte.

// Saludos