Visual basic 6.0

Hola mi problema es que tengo que hacer la conexión de la base de datos de access en un servidor y el servidor tiene usuario y contraseña y no se como hacerla mira yo realizo la conexión así
Public cn As New ADODB.Connection
Public rst As New ADODB.Recordset
Public Function Conectar()
With cn  
      .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.109\cliente\prueba.mdb "     
        Form1.Show
        Form1.Text1.SetFocus
End With
End Function
Si tienen un ejemplo que me pueda ayudar me a servir de mucho
gracias..

1 respuesta

Respuesta
1
Que tal como t va. Bueno aquí t envío un poco de Código espero t sirva
Public Sub Conectar()
Public cn as ADODB.CONNECTION
Set Cn = New ADODB.Connection
With Cn
    .CursorLocation = adUseClient
    .Provider = "MICROSOFT.JET.OLEDB.4.0"
    .Open "\\Cab4\d\Sistema\SysInternational\Data\SysInternacional.mdb"
End With
If Cn.State = adStateClosed Then
    MsgBox "Error en la conexion", 64, "Sistema"
Else
    Beep
End If
End Sub
ello es para conectarme a la base de datos
Ahora para conectarme a la tabla hacemos los siguiente
Dim Rs  as Adodb.recordset
Set Rs = New ADODB.Recordset
With Rs
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .LockType = adLockOptimistic
    .Open "Select del Nombre de la Tabla a conectarse", Cn
End With
Cn es la conexion q es de variable publica
puedes hcaer un
Rs.Addnew , Rs.Update ...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas