This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.
'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