Foros Club Delphi - Incompatibilidad de Tipos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Incompatibilidad de Tipos (https://www.clubdelphi.com/foros/showthread.php?t=34315)

Incompatibilidad de Tipos

Hola!!!, como estan???

Necesito hacer una cosulta de dos tablas, pero mi problema es que los campos que necesito comparar son de diferentes tipos.

Tengo la Tabla A con el Campo a y este es de tipo numerico.

Tengo la Tabla B con el Campo b y este es de tipo caracter.

Y en mi consulta necesito comparrar estos dos campos, para obtener el resultado que requiero, pero como ustedes saben marca error de incompatibilidad de tipos.

Ustedes saben si puedo hacer un cambio de tipos dentro del Query??

Espero puedan ayudarme y Gracias por su atencion!!

Normalmente, las bases aceptarán un CAST, por ejemplo

Código SQL [-]select bla, bla from ahí mero
where cast(campoA as char(10)) = campoB

// Saludos

Hola Graicas por atender!!

Bueno hice la prueba y quedo asi:

Código Delphi [-]ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('Select D.ALU_CTRL, D.ALU_ESP, C.ESP_CLV, C.ESP_CARRERA');
ADOQuery.SQL.Add('From DATPERAL as D, CARRERAS as C');
ADOQuery.SQL.Add('Where cast(D.ALU_ESP as char (2)) = C.ESP_CLV');
ADOQuery.SQL.Add(';');
ADOQuery.Open;

Me manda un mensaje de Error no especificado !!!

Mi Base de Datos esta en Access

El campo D.ALU_ESP es de tipo Numerico Doble

El campo C.ESP_CLV es de Tipo Texto

Tal vez el error esta en el código, pero lo pongo para que lo cheque!!

Gracias por su atencion!!!

Intenta con

Código SQL [-]where str(D.ALU_ESP) = str(C.ESP_CLV)

// Saludos

Que bien!!!

Intente como me sugeriste y quedó de la siguiente manera:

Código Delphi [-]ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('Select D.ALU_CTRL, D.ALU_ESP, C.ESP_CLV, C.ESP_CARRERA');
ADOQuery.SQL.Add('From DATPERAL as D, CARRERAS AS C');
ADOQuery.SQL.Add('Where str (D.ALU_ESP) = str (C.ESP_CLV)');
ADOQuery.SQL.Add(';');
ADOQuery.Open;

Y funciona muy bien!!!

Muchas Gracias!!! :D

Como le hago si lo que yo quiero es comparar 2 fechas, el tipo de dato en sql server es datetime y yo quiero comparar este campo con una fecha q yo le paso como parametro...gracias

Pues con un simple "=". Las fechas internamente se almacenan como números, así que no deberías tener problema.
Otra cosa es que quieras comparar sólo la fecha y no incluir la hora. No utilizo sql server, pero seguro que puedes truncar datos.

Así si quieres que esté entre un margen de fechas.

Código SQL [-]WHERE TRUNC(DS.FECHA) BETWEEN :FECINI AND :FECFIN

O si quieres que sea igual a una fecha.

Código SQL [-]WHERE TRUNC(DS.FECHA) = :FECINI

Comparar 2 fechas

Mira cuando yo le pongo de esta manera me funciona perfectamente:
qry_reporte.SQL.Add('SELECT visit.BranchName,visit.category,visit.StartTime,visit.EndTime,visit.RegDate from visit where RegDate = '' 03/01/2003 '' ');
Pero lo que yo quiero es en lugar de ponerle directamente la fecha pasarle como un parametro de tal manera que quede mas o menos asi:
qry_reporte.SQL.Add('SELECT visit.BranchName,visit.category,visit.StartTime,visit.EndTime,visit.RegDate from visit where RegDate = '' ' + dia + ' '' ');
Pero en este caso no me corre el programa porque dice que los tipos String y TDate no son compatibles.
El tipo de dato del parametro dia en delphi es de tipo TDate y el campo RegDate en sqlserver es de tipo DateTime, cual crees q es mi problema..
Ojo, ya probe con TRUNC y tampoco corre el programa...

Antes de nada te rogaría que usases las etiquetas, sino leer el código puede ser muy engorroso.

Cita:

Empezado por JuanPa1

Mira cuando yo le pongo de esta manera me funciona perfectamente:

Código Delphi [-]qry_reporte.SQL.Add('SELECT visit.BranchName,visit.category,visit.StartTime,visit.EndTime,visit.RegDate
from visit 
where RegDate = '' 03/01/2003 '' ');

Pero lo que yo quiero es en lugar de ponerle directamente la fecha pasarle como un parametro de tal manera que quede mas o menos asi:

Código Delphi [-]qry_reporte.SQL.Add('SELECT visit.BranchName,visit.category,visit.StartTime,visit.EndTime,visit.RegDate
from visit 
where RegDate = '' ' + dia + ' '' ');

Pero en este caso no me corre el programa porque dice que los tipos String y TDate no son compatibles.
El tipo de dato del parametro dia en delphi es de tipo TDate y el campo RegDate en sqlserver es de tipo DateTime, cual crees q es mi problema..
Ojo, ya probe con TRUNC y tampoco corre el programa...

Para pasárselo así tendrías que formatear la fecha:

Código Delphi [-]qry_reporte.SQL.Add('SELECT visit.BranchName,visit.category,visit.StartTime,visit.EndTime,visit.RegDate
from visit 
where RegDate = '' ' + formatdatetime('dd/mm/yy', dia) + ' '' ');

O si lo haces como te dije en el mensaje anterior sólo tienes que pasarle la fecha como parámetro.

Código Delphi [-]qry_reporte.ParamByName('fecini').AsDateTime := dia.Date;

Cita:

Empezado por JuanPa1

Mira cuando yo le pongo de esta manera me funciona perfectamente:

Código Delphi [-]qry_reporte.SQL.Add('SELECT visit.BranchName,visit.category,visit.StartTime,visit.EndTime,visit.RegDate from visit where RegDate = '' 03/01/2003 '' ');

¿Seguro?, de qué mes te la los resultados, ¿de enero o de marzo? :D (corre la consulta y despues responde ;))

Saludos

Comparar 2 fechas

Luego de darle tanta vuelta al asunto e inclusive formatear la fecha con FormatDateTime no me seguia funcionando, finalmente opte por probar esto:
declaro dia del tipo String y le asigno de esta manera:
Dia:='03/01/2003';
luego la sentencia sql me quedo asi:
qry_reporte.SQL.Add('SELECT visit.BranchName,visit.category,visit.RegDate from visit where RegDate = '' ' + dia + ' '' ');
Me funciona perfectamente y asi he logrado resolver mi problema.
Vale decir que yo estoy utilizando el componente TAdoQry.
Gracias de todas maneras por tu ayuda, hasta la proxima..