Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Open Database
- Thread starter Panucci
- Start date
Here is an example opening a connection using ADO.
Public Sub OpenDB()
Dim strDB As String
strDB = "c:\db\ww.mdb"
'open the connection
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.CursorLocation = adUseClient
cn.Open strDB
End Sub
Public Sub OpenDB()
Dim strDB As String
strDB = "c:\db\ww.mdb"
'open the connection
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.CursorLocation = adUseClient
cn.Open strDB
End Sub
- Thread starter
- #3
edderic
Programmer
- May 8, 1999
- 628
DAO :
Dim password As String
password = "edderic"
Dim strPath As String
Dim db As DAO.Database
strPath = IIf(Right$(App.Path, 1) <> "\", App.Path & "\", App.Path)
strAccessFile = "Scriptie01.mdb"
Set db = appAccess.DBEngine.OpenDatabase(strPath & strAccessFile, False, False, "MS Access;pwd=" & password) Eric De Decker
vbg.be@vbgroup.nl
Licence And Copy Protection AxtiveX
Source CodeBook for the programmer
Dim password As String
password = "edderic"
Dim strPath As String
Dim db As DAO.Database
strPath = IIf(Right$(App.Path, 1) <> "\", App.Path & "\", App.Path)
strAccessFile = "Scriptie01.mdb"
Set db = appAccess.DBEngine.OpenDatabase(strPath & strAccessFile, False, False, "MS Access;pwd=" & password) Eric De Decker
vbg.be@vbgroup.nl
Licence And Copy Protection AxtiveX
Source CodeBook for the programmer
I was searching the forum for an answer to this problem, and erreric's post worked for me, but only after I removed appAccess. from:
Set db = appAccess.DBEngine.OpenDatabase(strPath & strAccessFile, False, False, "MS Access;pwd=" & password)
Randy
Set db = appAccess.DBEngine.OpenDatabase(strPath & strAccessFile, False, False, "MS Access;pwd=" & password)
Randy
Public Cnn As New ADODB.Connection
sDataBaseName ="c:\DBName.mdb"
Cnn.ConnectionString = "ODBC;DBQ=" & sDataBaseName _ & ";UID=;PWD=;Driver={Microsoft Access Driver (*.mdb)}"
enter the user id in UID and password in PWD
'Referance: ADO 2.5 Library
Hope this helps
Murali Bala
sDataBaseName ="c:\DBName.mdb"
Cnn.ConnectionString = "ODBC;DBQ=" & sDataBaseName _ & ";UID=;PWD=;Driver={Microsoft Access Driver (*.mdb)}"
enter the user id in UID and password in PWD
'Referance: ADO 2.5 Library
Hope this helps
Murali Bala
or
If you are using the Microsoft Jet Provider:
sDataBaseName = "YourDatabase.mdb"
sDBPassword = "YourDBPassword"
Dim Cnn As New ADODB.Connection
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Jet OLEDB
atabase Password"
= sDBPassword
.Mode = adModeReadWrite
.Open sDataBaseName
End With
Regards,
Codefish
If you are using the Microsoft Jet Provider:
sDataBaseName = "YourDatabase.mdb"
sDBPassword = "YourDBPassword"
Dim Cnn As New ADODB.Connection
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Jet OLEDB
atabase Password" = sDBPassword.Mode = adModeReadWrite
.Open sDataBaseName
End With
Regards,
Codefish
- Status
