THE Access developer in Iceland?
 

Home
 

Code samples
 
 
 

 

 

 

 

 

 

 


Nr.:


Tip of the moment is:
4 ADO Access connection examples
 Example 1a
'The ADO connection that Access uses
'Debug.Print CurrentProject.AccessConnection
Dim conTenging As New ADODB.Connection
With conTenging
  .Provider = "Microsoft.Access.OLEDB.10.0"
  .Properties("Persist Security Info") = "False"
  .Properties("Data Source") = "Test.mdb"
  .Properties("User ID") = "Admin"
  .Properties("Data Provider") = "Microsoft.Jet.OLEDB.4.0"
End With

Example 1b (Similar to above)
conTenging.ConnectionString = _
  "Provider=Microsoft.Access.OLEDB.10.0;" & _
  "Persist Security Info=False;" & _
  "Data Source=Test.mdb;" & _
  "User ID=Admin;" & _
  "Data Provider=Microsoft.Jet.OLEDB.4.0"

Example 2a
'An ADO connection
'Debug.Print CurrentProject.Connection
Dim conTenging As New ADODB.Connection
With conTenging
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("User ID") = "Admin"
  .Properties("Data Source") = "Test.mdb"
  .Mode = adModeShareDenyNone
  .Properties("Extended Properties") = ""
  .Properties("Jet OLEDB:System database") = _
      "C:\PROGRA~1\MICROS~3\Office\SYSTEM.MDW"
  .Properties("Jet OLEDB:Registry Path") = _
      "SOFTWARE\Microsoft\Office\10.0\Access\Jet\4.0"
  .Properties("Jet OLEDB:Database Password") = ""
  .Properties("Jet OLEDB:Engine Type") = "5"
  .Properties("Jet OLEDB:Database Locking Mode") = "0"
  .Properties("Jet OLEDB:Global Partial Bulk Ops") = "2"
  .Properties("Jet OLEDB:Global Bulk Transactions") = "1"
  .Properties("Jet OLEDB:New Database Password") = ""
  .Properties("Jet OLEDB:Create System Database") = "False"
  .Properties("Jet OLEDB:Encrypt Database") = "False"
  .Properties("Jet OLEDB:Don't Copy Locale on Compact") = "False"
  .Properties("Jet OLEDB:Compact Without Replica Repair") = "False"
  .Properties("Jet OLEDB:SFP") = False
End With

Example 2b (Similar to above)
Dim conTenging As New ADODB.Connection
conTenging.ConnectionString = _
  "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "User ID=Admin;" & _
  "Data Source=Test.mdb;" & _
  "Mode=Share Deny None;" & _
  "Extended Properties='';" & _
  "Jet OLEDB:System database=C:\PROGRA~1\MICROS~3\Office\SYSTEM.MDW;" & _
  "Jet OLEDB:Registry Path=SOFTWARE\Microsoft\Office\10.0\Access\Jet\4.0;" & _
  "Jet OLEDB:Database Password='';Jet OLEDB:Engine Type=5;" & _
  "Jet OLEDB:Database Locking Mode=0;" & _
  "Jet OLEDB:Global Partial Bulk Ops=2;" & _
  "Jet OLEDB:Global Bulk Transactions=1;" & _
  "Jet OLEDB:New Database Password='';" & _
  "Jet OLEDB:Create System Database=False;" & _
  "Jet OLEDB:Encrypt Database=False;" & _
  "Jet OLEDB:Don't Copy Locale on Compact=False;" & _
  "Jet OLEDB:Compact Without Replica Repair=False;" & _
  "Jet OLEDB:SFP=False"

Bibliography: Arni Laugdal
See also:

Send a comment (Article nr: 10068)