Tipos de datos no coinciden al guardar de VB 6.0 a Mysql

[LuZbA]

Hola buen día a todos dondequiera se encuentren, esta es mi primer consulta en el foro...

Miren tengo un problemita...

Tengo una tabla en mysql llamada bitácora

CBita = Autonumérico
Nick = char
Fecha = Date
TotActiv = integer
HrEntrada = Time
HrSalida = Time
TActivo = Time
TMuerto = Time

Al mandar llamar a la bd para actualizar los datos hago lo siguiente:

Código:

Set frmAcceso.RecSQL = New ADODB.Recordset

frmAcceso.RecSQL.Open "INSERT INTO bitácora (Nick, Fecha, TotActiv, HrEntrada, HrSalida, TActivo, TMuerto) VALUES ('" & lbUsuario.Caption & "', '" & Format(DateValue(fecha), "yyyy-mm-dd") & "', '" & CInt(cont1) & "', '" & Format(TimeValue(lbHoraIngreso.Caption), "hh:mm:ss") & "', '" & Format(TimeValue(lbHoraActual.Caption), "hh:mm:ss") & "', '" & Format(TimeValue(txtActivo.Text), "hh:mm:ss") & "', '" & Format(TimeValue(txtMuerto.Text), "hh:mm:ss") & "'", frmAcceso.DB, adOpenStatic, adLockOptimistic

    frmAcceso.RecSQL.Close

Set RecSQL = Nothing

Al clickear para guardar los datos en la base me maneja que los tipos de datos no coinciden.

Lo que creo es que es por el formato de la hora y/o fecha de VB y MySQL, pero la cuestion es que no se como acoplarlas, he estado buscando el como pero pues sigo atorandome,,, ayuda por favor,,, gracias

p.d. me sale un nuevo error de "desbordamiento" al querer guardar,,, gracias

[Avellaneda]

Hola, el formato de hora no sé cómo se guarda en MySql, pero el de fecha creo que es "yyyymmdd". Pruébalo!

[LuZbA]

hola avellaneda, gracias por contestar, pero me sigue apareciendo ahora el error de desbordamiento...

si saben a que se podria deber lo agradesco...

[Avellaneda]

El error de desbordamiento se produce cuando se sobrepasa el límite admitido para un campo numérico.

Verifica esto:
CInt(cont1)

El valor de cont1 no puede ser superior a 32.767 ni inferior a -32.767 ya que lo estás convirtiendo a Integer.

Un saludo

[LuZbA]

molestando de nuevo

ahora puse esto:

Código:

Set frmAcceso.RecSQL = New ADODB.Recordset
    
frmAcceso.RecSQL.Open "INSERT INTO bitacora (Nick,Fecha,TotActiv,HrEntrada,HrSalida,TActivo,TMuerto) VALUES ('" & lbUsuario.Caption & "', '" & fecha & "', '" & frmSeleccionar.cont1 & "', '" & lbHoraIngreso.Caption & "', '" & lbHoraActual.Caption & "', '" & txtActivo.Text & "', '" & txtMuerto.Text & "')", frmAcceso.DB, adOpenStatic, adLockOptimistic

Set frmAcceso.RecSQL = Nothing

    frmAcceso.RecSQL.Close

y me dice:

Nº de error 91/ variable de tipo Objet o la variable de bloque With no está establecida

que podrá ser,,, disculpa si pueda ser muy obvio,,, pero la vdd no lo se

[David]

Iniciado por LuZbA

molestando de nuevo

ahora puse esto:

Código:

Set frmAcceso.RecSQL = New ADODB.Recordset
 
frmAcceso.RecSQL.Open "INSERT INTO bitacora (Nick,Fecha,TotActiv,HrEntrada,HrSalida,TActivo,TMuerto) VALUES ('" & lbUsuario.Caption & "', '" & fecha & "', '" & frmSeleccionar.cont1 & "', '" & lbHoraIngreso.Caption & "', '" & lbHoraActual.Caption & "', '" & txtActivo.Text & "', '" & txtMuerto.Text & "')", frmAcceso.DB, adOpenStatic, adLockOptimistic
 
Set frmAcceso.RecSQL = Nothing
 
    frmAcceso.RecSQL.Close

y me dice:

Nº de error 91/ variable de tipo Objet o la variable de bloque With no está establecida

que podrá ser,,, disculpa si pueda ser muy obvio,,, pero la vdd no lo se

Me parece que frmAcceso.RecSQL.Close debería ir antes de Set frmAcceso.RecSQL = Nothing... Así:

Código:

 
frmAcceso.RecSQL.Close
Set frmAcceso.RecSQL = Nothing