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.