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..
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..
Respuesta de drinfierno
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 ...
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 ...
