URGENTE!!! URGENTE!!! VISUAL+SQL
Publicado por Carlos (4 intervenciones) el 27/01/2006 16:32:15
Hola a Todos
Tengo una apliacion hecha en visual basic con una base de datos en SQL, dicha aplicacion captura los datos de una central a traves de un puerto serial, este programa fue realizado por un pasante hace algunos anos.
Luego de Migrar de Windows 2000 a 2003 este programa dejo de funcionar
E tratado de ponerlo a funcionar pero se queda en la rutina que hace el insert en la base de datos:
strSQL = "INSERT INTO DATOS VALUES(" & Contador & ",'" & _
Mid(Linea, 2, 2) & "/" & Mid(Linea, 5, 2) & "/" & Mid(Linea, 8, 2) & "','" & _
Mid(Linea, 11, 7) & "','" & _
Mid(Linea, 19, 1) & "','" & _
Mid(Linea, 21, 6) & "','" & _
Mid(Linea, 28, 6) & "','" & _
Mid(Linea, 35, 19) & "','"
Tmp = Mid(Linea, 55, 4)
Tmp = Replace(Tmp, "'", ":")
strSQL = strSQL & Tmp & "','"
Tmp = Mid(Linea, 60, 8)
Tmp = Replace(Tmp, "'", ":")
strSQL = strSQL & Tmp & "','" & _
Mid(Linea, 69, 10) & "','" & _
Mid(Linea, 80, 2) & "')"
conexion.Execute strSQL
Contador = Contador + 1
Ya cree el Obdc, revise los nombres de los campos de la base de datos para ver si existian inconsistencias pero no observo nada raro
Quisiera su valiosa ayuda es URGENTE!!!!!
Muchas Gracias...
Tengo una apliacion hecha en visual basic con una base de datos en SQL, dicha aplicacion captura los datos de una central a traves de un puerto serial, este programa fue realizado por un pasante hace algunos anos.
Luego de Migrar de Windows 2000 a 2003 este programa dejo de funcionar
E tratado de ponerlo a funcionar pero se queda en la rutina que hace el insert en la base de datos:
strSQL = "INSERT INTO DATOS VALUES(" & Contador & ",'" & _
Mid(Linea, 2, 2) & "/" & Mid(Linea, 5, 2) & "/" & Mid(Linea, 8, 2) & "','" & _
Mid(Linea, 11, 7) & "','" & _
Mid(Linea, 19, 1) & "','" & _
Mid(Linea, 21, 6) & "','" & _
Mid(Linea, 28, 6) & "','" & _
Mid(Linea, 35, 19) & "','"
Tmp = Mid(Linea, 55, 4)
Tmp = Replace(Tmp, "'", ":")
strSQL = strSQL & Tmp & "','"
Tmp = Mid(Linea, 60, 8)
Tmp = Replace(Tmp, "'", ":")
strSQL = strSQL & Tmp & "','" & _
Mid(Linea, 69, 10) & "','" & _
Mid(Linea, 80, 2) & "')"
conexion.Execute strSQL
Contador = Contador + 1
Ya cree el Obdc, revise los nombres de los campos de la base de datos para ver si existian inconsistencias pero no observo nada raro
Quisiera su valiosa ayuda es URGENTE!!!!!
Muchas Gracias...
Valora esta pregunta


0