T
troy
So I can access the Access Database using the following:
Dim myDB As ADODB.Connection
Dim myRS As ADODB.Recordset
Set myDB = New ADODB.Connection
Set myRS = New ADODB.Recordset
myDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=M:\Work
Log\Work Log .mdb;USER ID=Facilities;Password=;"
myRS.Open "SELECT DISTINCT `Jamis #` FROM `Work Log` `Work Log` WHERE
status <> 'Complete' or status <> 'Canceled' or status <> 'On Hold'",
myDB, adOpenDynamic, adLockReadOnly
and it works fine if nobody has the database open, however if someone
has the database open, I get an error. Anyway around this?
Dim myDB As ADODB.Connection
Dim myRS As ADODB.Recordset
Set myDB = New ADODB.Connection
Set myRS = New ADODB.Recordset
myDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=M:\Work
Log\Work Log .mdb;USER ID=Facilities;Password=;"
myRS.Open "SELECT DISTINCT `Jamis #` FROM `Work Log` `Work Log` WHERE
status <> 'Complete' or status <> 'Canceled' or status <> 'On Hold'",
myDB, adOpenDynamic, adLockReadOnly
and it works fine if nobody has the database open, however if someone
has the database open, I get an error. Anyway around this?