desbordamiento de String y no sé porqué...

[Baldur]

Hola, me está pasando que al asignar una cadena a un string, me da desbordamiento y no sé porqué:
Error '6' en tiempo de ejecución:
Desbordamiento

Código:

cadenaSQL = "SELECT * FROM Detalle_Nota WHERE DN_Linea=" & Trim("" & registro.NumLote)
                        cadenaSQL = cadenaSQL & " AND fecha = CVDate('" & Format$("" & registro.Fecha, "dd/mm/yyyy") & "')"

el registro.fecha viene dando 05052008 y registro.Numlote=1

Sabeis porqué puede ser?
Fue a raíz de añadir el AND fecha....
Porque antes solo tenía el where dn_linea y no daba ese error...

[Avellaneda]

Hola, hay algo que no entiendo, se supone que fecha es un campo de la tabla Detalle_Nota y hay otro campo con el mismo nombre en la tabla registro y además los campos Numlote (de la tabla registro) y el campo DN_Linea (de la tabla Detalle_Nota) son numéricos.

Pues si es así, prueba poniendo la consulta de esta forma:

cadenaSQL = "Select * From Detalle_Nota Where DN_Linea = registro.NumLote"
cadenaSQL = cadenaSQL & " AND Detalle_Nota.fecha = registro.fecha"

Nota: la función CVDate en VB6 está sustituida por CDate, aunque todavía existe por compatibilidad con versiones anteriores de VB y al tener los campos "fecha" con el mismo nombre, debes anteponerle el nombre de la tabla.

Un saludo

[Baldur]

Haber, es para el mantenimiento de una aplicación, y tiene ese código de CVDate, con lo que se lo puse igualmente.
Antes, únicamente era esto: cadenaSQL = "SELECT * FROM Detalle_Nota WHERE DN_Linea=" & Trim("" & registro.NumLote)
Pero ahora necesito que la consulta también filtre los resultados por esto:
"AND fecha = CVDate('" & Format$("" & registro.Fecha, "dd/mm/yyyy") & "')"

Registro no es una tabla, sinó una estructura en donde se guardan los datos que se leen de un fichero de texto.
La consulta es para comprobar que en esa fecha no exista ningún registro con un Dn_Linea igual al que se está intentando importar del fichero de texto (registro.NumLote).
Lo que pasa es que la fecha en el fichero de texto está guardada de la siguiente manera: 05052008 y en la BD de datos está así: 05/05/2008, por eso lo del format y CVDate.
Lo que no sé es porqué da el p*to desbordamiento al añadirle al string el AND...

Edito: he probado a quitar el format y dejar el cdate de la siguiente forma:
cadenaSQL = cadenaSQL & " AND NV_FSubasta =" & cdate(registro.FechaSubasta)
y me da error 13 no coinciden los tipos.
Si quito el cdate y pongo el format
cadenaSQL = cadenaSQL & " AND NV_FSubasta =" & Format(registro.FechaSubasta, "dd/mm/yyyy")
me vuelve a dar error 6 desbordamiento.
Asique supongo que el problema será del format.

[Avellaneda]

Bueno, si registro.Fecha viene en formato cadena, una solución es que la conviertas antes a Date con formato y la incluyas en la consulta

Dim LaFecha As Date
LaFecha = Mid(registro.Fecha, 1, 2) & "/" & Mid(registro.Fecha, 3, 2) & "/" & Right(registro.Fecha, 4)

...
cadenaSQL = cadenaSQL & " AND Detalle_Nota = #" & LaFecha & "#"


Nota: asumo que la BD es Access, si no es así, cambia las almohadillas por coma simple.

Un saludo

[Baldur]

si,si ya lo hice al final así, sólo que no me dió tiempo a postearlo.
Pero no puse las # en access y funcionó igual...

Saludos y Gracias!