Windows 7 ADO

[plywoodca]

I am using Macro Scheduler 9. I have a program compiled on a Windows XP machine that uses ADO to access a MS Access 2010 database and every thing works fine. When I run the same compiled program on a Windows 7 machine, it cannot access the database. Does this mean it needs to be compiled on a Windows 7 machine in order to run on a Windows 7 machine?

[olllllliii]

Normally there is no Need to compile it on Windows 7 for use in Windows 7.

Did you try to run the executable with admin privileges ?
In most case it works fine.

[Marcus Tettmar]

Is Access and ADO installed on the Win 7 machine with the same drivers?

What error do you get?

[armsys]

I am using Macro Scheduler 9. I have a program compiled on a Windows XP machine that uses ADO to access a MS Access 2010 database and every thing works fine. When I run the same compiled program on a Windows 7 machine, it cannot access the database. Does this mean it needs to be compiled on a Windows 7 machine in order to run on a Windows 7 machine?

Would you please show us the MS code in connection to the ADO?

[plywoodca]

The error code is "3811 - Attempt to open a databse with the request record level locking failed; page level locking will be used." I believe this is just a warning and I have since added code to ignore it but what parameters do I need to set to avoid the warning?

The VBScript code is

Code: Select all

function ConnectDB()
  DBError="N"
  set cnn1 = CreateObject("ADODB.Connection")
  cnn1.Mode=adModeReadWrite
  cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MyDB.mdb"
  If cnn1.Errors.Count > 0 Then
  	  For Each errLoop In cnn1.Errors
	  	  if errloop.SQLState <> "3811" then
		    strError = "Error #" & errLoop.Number & _
          	  "   " & errLoop.Description &  _
              "   (Source: " & errLoop.Source & ")" & _
              "   (SQL State: " & errLoop.SQLState & ")" & _
              "   (NativeError: " & errLoop.NativeError & ")"
            msgbox strError
			DBError="Y"
		  end if
      Next
  end if

  if DBError = "N" then
    ConnectDB = "Success"
  end if
end function

[armsys]

Instad

Code: Select all

cnn1.Mode=adModeReadWrite

Try

Code: Select all

cnn1.Mode=adModeShareExclusive