Conexion Vbasic con Access
No se como hacer la conexión de Visual basic con Access, si alguien me podría ayudar le agradecería mucho
1 Respuesta
Respuesta de noetxugf
1
Utiliza este procedimiento. Espero que te sirva. (Ponlo en el formulario principal)
Public Sub Conectar(fbase As String)
Set cn = New ADODB.Connection
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Directorio(fbase) & ";" & "Persist Security Info=false"
.Open
End With
End Sub
Public Function Directorio(NombreFichero As String) As String
Dim dir As String
dir = App.Path
If Right$(dir, 1) = "\" Then
dir = dir & NombreFichero
Else
dir = dir & "\" & NombreFichero
End If
Directorio = dir
End Function
Private Sub Form_Load()
Call Conectar("basededatos.mdb")
End Sub
Suerte.
Public Sub Conectar(fbase As String)
Set cn = New ADODB.Connection
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Directorio(fbase) & ";" & "Persist Security Info=false"
.Open
End With
End Sub
Public Function Directorio(NombreFichero As String) As String
Dim dir As String
dir = App.Path
If Right$(dir, 1) = "\" Then
dir = dir & NombreFichero
Else
dir = dir & "\" & NombreFichero
End If
Directorio = dir
End Function
Private Sub Form_Load()
Call Conectar("basededatos.mdb")
End Sub
Suerte.
