mysql v5 y vb6
Estoy trabajando en windows XP, con visual basic 6, mysql v5, el conector es MySQL connector/ODBC v5.
Atraves del ODBC, la coneccion a la base se realiza con exito!!
Desde mi aplicacion en vb6 me conecto a la BD, pero cuando trato de ejecutar cualquier consulta da un error y me cierra el vb6.
El error dice lo siguiente:
vb6.exe Error de acplicacion
La instruccion en "0xofa91750" hace referencia a la memoria en "0x33057504". La memoria no se puede "read".
El codigo que utilizo es el siguiente:
Public Sub SQLInsert(ByVal sql As String, ByVal strLinea As String)
Dim strNumLinea As String
Dim strCodigo As String
Dim strDescripcion As String
Dim Conn As ADODB.Connection
Dim rs As New ADODB.Recordset
On Error GoTo err
Set Conn = New ADODB.Connection
Conn.CursorLocation = adUseClient
Conn.ConnectionString = "DRIVER={MySQL Connector/ODBC v5};SERVER=localhost;DATABASE=armonizado;UID=root;PWD=password;OPTION=3;"
Conn.Open
sql = = "select * from armonizados"
Set rs = New ADODB.Recordset
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic '--->cuando se ejecuta esta funcion, me cierra el vb6 y me 'da ese erros
rs.AddNew
rs!Nro_orden_txt = CInt(strNumLinea)
rs!ind_armo = strCodigo
rs!texto_armo = strDescripcion
rs.Update
rs.Close
Conn.Close
Exit Sub
err:
MsgBox "Error al insertar!", vbOKOnly
End Sub
Agradesco cualquier ayuda que me puedas dar, ya que hace dias que estoy con esto y no logro encontrar nada ni darme cuenta de que esta mal ...
Saludos.
Atraves del ODBC, la coneccion a la base se realiza con exito!!
Desde mi aplicacion en vb6 me conecto a la BD, pero cuando trato de ejecutar cualquier consulta da un error y me cierra el vb6.
El error dice lo siguiente:
vb6.exe Error de acplicacion
La instruccion en "0xofa91750" hace referencia a la memoria en "0x33057504". La memoria no se puede "read".
El codigo que utilizo es el siguiente:
Public Sub SQLInsert(ByVal sql As String, ByVal strLinea As String)
Dim strNumLinea As String
Dim strCodigo As String
Dim strDescripcion As String
Dim Conn As ADODB.Connection
Dim rs As New ADODB.Recordset
On Error GoTo err
Set Conn = New ADODB.Connection
Conn.CursorLocation = adUseClient
Conn.ConnectionString = "DRIVER={MySQL Connector/ODBC v5};SERVER=localhost;DATABASE=armonizado;UID=root;PWD=password;OPTION=3;"
Conn.Open
sql = = "select * from armonizados"
Set rs = New ADODB.Recordset
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic '--->cuando se ejecuta esta funcion, me cierra el vb6 y me 'da ese erros
rs.AddNew
rs!Nro_orden_txt = CInt(strNumLinea)
rs!ind_armo = strCodigo
rs!texto_armo = strDescripcion
rs.Update
rs.Close
Conn.Close
Exit Sub
err:
MsgBox "Error al insertar!", vbOKOnly
End Sub
Agradesco cualquier ayuda que me puedas dar, ya que hace dias que estoy con esto y no logro encontrar nada ni darme cuenta de que esta mal ...
Saludos.