Me estoy volviendo loco con MySQL y VB6 Buenas amigos, tengo un problema con mysql y vb6 en mi proyecto, la cosa es que si corro el vb6 en mi pc (servidor local ) mi proyecto anda, la cosa es en red, desde otro pc en red local como lo hago correr, desde el otro pc veo la pagina del wamp, el localhost lo veo al poner la ip de servidor local, pero cuando quiero correr el programa desde el otro pc me sale error -2147467259 (11001) my sql no puedo encontrar el servidor 10.0.0.10 (servidor local) y la opcion de reintentar, alguien me diria como hacer para que se conecte????? el codigo que estoy usando es el siguiente para la conexion a la base de datos dentro de un modulo.
Option Explicit
Public cnn As New ADODB.Connection
Public RS As New ADODB.Recordset
Public SQL As String
Public Function ConnectMySQL() As Boolean
Dim isOpen As Boolean
Dim Reply As VbMsgBoxResult
isOpen = False
On Error GoTo ERR_CONNECTION
Do Until isOpen = True
Set CN = New ADODB.Connection
CN.CursorLocation = adUseClient
CN.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};SERVER=http://10.0.0.40/;PWD=admin;UID=admin;PORT=3306;DATABASe=sql_postda t;"
CN.Open
isOpen = True
Loop
ConnectMySQL = isOpen
Exit Function
ERR_CONNECTION:
Reply = MsgBox("Error Number:" & err.Number & vbNewLine & "Description:" & err.Description, vbExclamation + vbRetryCancel, "Fallo La Conexion")
If Reply = vbCancel Then
ConnectMySQL = False
ElseIf Reply = vbRetry Then
Resume
End If
End Function
Public Sub CloseMySQL()
CN.Close
Set CN = Nothing
End Sub
Alguien que me saque de este apuro!!!
