Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
'This sample uses Form level scope for the open DAO database. 'Depending on your application, you may choose Module level. Private wsDAO As DAO.Workspace Private dbDAO As DAO.Database Private Sub Form_Load() Dim cnn As ADODB.Connection 'ADO has the ability to open row-level locking; DAO does not. 'The following code is used to implement row-level locking in DAO. 'If the database is opened first in row-level locking in ADO, 'subsequent attempts to open the database in ADO and DAO will use the same mode. Set cnn = New ADODB.Connection cnn.Provider = "Microsoft.JET.OLEDB.4.0" cnn.Properties("Data Source") = "C:\MDB\Northwind.mdb" cnn.Properties("Jet OLEDB:Database Locking Mode") = 1 cnn.CursorLocation = adUseServer cnn.Open Set wsDAO = DBEngine.CreateWorkspace("WorkSpace", "Admin", "", dbUseJet) Set dbDAO = wsDAO.OpenDatabase("C:\MDB\Northwind.mdb") 'Close the ADODB connection. cnn.Close Set cnn = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.