hola..
Posteo la solucion para este error en Visual Basic 6.0-> out-of-range datetime value.
contexto:
Se cuenta con una tabla en SQL 2000 con un campo Datetime,
el probelma surge al querer hacer cambios o actualizaciones a la tabla
desde visual basic.
//Datetiem almacena tanto la feha como la hora
Create Table TABLA(
fecha Datetime not null,
);
//Desde Visual Basic
Supongamos que creamos un objeto Command y nececitamos hacer un insert
como este.
Insert into TABLA values(date) //Lo probable dependiendo de la ubicacion
es que Vb mande el error comentado anteriormente
Esto se soluciona adoptando el estandar ISO para fechas en los manejadores
por lo cual se creala sig. Funcion
Public Function getFechaSQL(ByVal dtFecha As Date) As String
'El formato de fecha standar de ISO es yymmdd
Dim intAño As Integer
Dim intMes As Integer
Dim intDia As Integer
Dim strFecha As String
intDia = Day(dtFecha)
intMes = Month(dtFecha)
intAño = Year(dtFecha)
strFecha = ""
strFecha = strFecha & intAño
If intMes < 10 Then
strFecha = strFecha & "0" & intMes
Else
strFecha = strFecha & intMes
End If
If intDia < 10 Then
strFecha = strFecha & "0" & intDia
Else
strFecha = strFecha & intDia
End If
getFechaSQL = strFecha
End Function
El insert final quedaria Asi:
Insert into TABLA values(getFechaSQL(date)) // y wala ya no marcara error
Saludos..
DoloresMtz @gmail.com
Autor