masoud_sedighy
Registered User.
- Local time
- Today, 08:29
- Joined
- Dec 10, 2011
- Messages
- 132
in my database i have imported several modules like (modAPI,modReportToPDF,ComDlg) from one trusted sample database.
when i am working with my database on laptop it works without problem.but when copy it on another computer i got error ("The code in this project must be updated for use on 64-bit system")
<code>
' Always alias API function names
' in case a library declares the same funtions
' Function to close an opened key
Declare Function IO11_RegCloseKey Lib "advapi32.dll" Alias _
"RegCloseKey" (ByVal hKey As Long) As Long
' Function to open a key and get its handle
Declare Function IO11_RegOpenKeyEx Lib "advapi32.dll" Alias _
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As _
Long) As Long
' Function to fetch a Long (DWORD) key value
Declare Function IO11_RegQueryValueExLong Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, lpData As _
Long, lpcbData As Long) As Long
' Function to fetch a key data type and length
Declare Function IO11_RegQueryValueExNULL Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
As Long, lpcbData As Long) As Long
' Function to fetch a String key value
Declare Function IO11_RegQueryValueExString Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
As String, lpcbData As Long) As Long
</code>
please help how i can solve this problem.
when i am working with my database on laptop it works without problem.but when copy it on another computer i got error ("The code in this project must be updated for use on 64-bit system")
<code>
' Always alias API function names
' in case a library declares the same funtions
' Function to close an opened key
Declare Function IO11_RegCloseKey Lib "advapi32.dll" Alias _
"RegCloseKey" (ByVal hKey As Long) As Long
' Function to open a key and get its handle
Declare Function IO11_RegOpenKeyEx Lib "advapi32.dll" Alias _
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As _
Long) As Long
' Function to fetch a Long (DWORD) key value
Declare Function IO11_RegQueryValueExLong Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, lpData As _
Long, lpcbData As Long) As Long
' Function to fetch a key data type and length
Declare Function IO11_RegQueryValueExNULL Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
As Long, lpcbData As Long) As Long
' Function to fetch a String key value
Declare Function IO11_RegQueryValueExString Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
As String, lpcbData As Long) As Long
</code>
please help how i can solve this problem.