Problemas conexiones a base de datos en red Hice una aplicacion con mysql y necesito que se conecte a red utilizo esta funcion para conectar el sistema.
Public Sub conectar()
On Error GoTo Ver
Set cn = New ADODB.Connection
With cn
.CursorLocation = adUseClient
.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & IP & ";" _
& "DATABASE=" & bd & ";" _
& "UID=" & User & ";" _
& "PWD=" & Pass & ";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
.Open
End With
Ver:
If Err.Number > 0 Then
MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
End If
End Sub
el ip, usuario y contrasena se dan al cagar el programa y se guardan en un archivo que se extrare la variable para utilizar. al cargar el programa no abre al conexion al guna idea.
en los formularios utilizo esta forma para usar el rs
With com
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = "Select elector.cedula,elector.junta , elector.nombre, elector.apellido1, elector.apellido2,lugar.distrito From elector,lugar where lugar.codelec = elector.codelec AND elector.cedula='" & txtcedula.Text & "'"
Set rs3 = .Execute
