Buenas, ando complicado con este error.. el tema es que desde vb6 leo un archivo Excel, le saco los datos que necesito y luego quiero actualizarle unos campos... pero me sale el susodicho error...
aca esta la conexion, se utiliza al excel como una tabla
Código:
With cnn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & Trim(sFichero) & "; ReadOnly=False;"
cnn.Open
End With
este es la sensencia donde salta el error
Código:
Dim cmd As New ADODB.Command, sModif As String
sModif = "UPDATE [datos$A1:BH150] SET [F16]=" & (rs(16).Value + 1) & ""
sModif = sModif & " ,[f17]=" & (cbMes.ListIndex + 1) & ""
sModif = sModif & " ,[f18]=" & Int(tbCamp.Text) & ""
sModif = sModif & " ,[f19]=" & (rs(16).Value) + 1 & ""
sModif = sModif & " ,[f20]='" & (chRegistrador(g).Caption) & "'"
sModif = sModif & " ,[f21]=#" & Format(tbFecha(0).Text, "dd/mm/yyyy") & "#"
sModif = sModif & " ,[f22]=#" & Format(tbFecha(1).Text, "dd/mm/yyyy") & "#"
sModif = sModif & " ,[f30]='" & (tbNombre(g).Text) & "'"
sModif = sModif & " WHERE [f0] ='" & (sTexto2) & "'"
MsgBox (sModif)
cmd.CommandType = adCmdText
cmd.CommandText = sModif
cmd.ActiveConnection = cnn
cmd.Execute 'aca salta el error
.
y el error que salta es el
Error 2147217904 (80040e10) .... Se esperaba : 9