14/04/2008, 11:41
|
 | | | Fecha de Ingreso: marzo-2008 Ubicación: SITEL un call center en Panamá
Mensajes: 100
Antigüedad: 17 años, 1 mes Puntos: 0 | |
 Re: VB6 y MySQL: error 3709
Código:
Public Function CONECTAR() As ADODB.Connection
On Error GoTo VError
Dim BD As ADODB.Connection
'Dim STRBD As String
Set BD = New ADODB.Connection
BD.ConnectionString = "driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=;Database=pr2;User=root;Password=;Option=3;"
BD.CursorLocation = adUseClient
BD.CommandTimeout = 30
BD.Open
Set CONECTAR = BD
'MsgBox "Conexion establecida..."
Exit Function
VError: MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
End Function
esa es la de coneccion |