The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.
'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
|Pivot Table for a join with partition by and over clause||7||36|
|Extract string portion||2||24|
|Access Crosstab Query with Multiple Values||4||31|
|SSRS 2013 - Creating a summarized report||19||32|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!