Visual Basic Programming Code Examples Visual Basic > Database SQL Stuff Code Examples How to convert and copy a MS Access database to Pocket PC How to convert and copy a MS Access database to Pocket PC 'This DLL is installed with ActiveSync Private Declare Function DESKTOPTODEVICE _ Lib "adofiltr.dll" _ (ByVal desktoplocn As String, _ ByVal tablelist As String, _ ByVal sync As Boolean, _ ByVal overwrite As Integer, _ ByVal devicelocn As String) As Long Dim MSAccessDatabase as String Dim TableName as String Dim CDBFileName as String MSAccessDatabase = "C:\MyPath\MyDatabase.MDB" TableName= "MyTable" CDBFileName = "\My Documents\MyCDB.CDB" 'You must use the CDB extension 'This is a Modal call and the system will appear to 'hang while the database is converted and copied Result = DESKTOPTODEVICE(MSAccessDatabase, "!" & TableName & "..", False, True, CDBFileName) If Result <> 0 Then 'Error copying to device End If 'Note to developers: Because the systems appears to 'hang, I have, in the past, used an animation control 'with an animated gif so that the user has something 'to keep them entertained while the table is copied.
