Hello,
Does anyone have a utility or know where I can get a utility to convert a Access 97 MDB to a current version of Access MDB?
Thank you,
// create the adox object
Try
catNewDB := CreateObject("ADOX.Catalog")
Catch
MsgInfo( "Could not Create ADOX object")
oDLG:End()
Return(.f.)
End try
// create the table Vehicle.Mdb
Try
catNewDB:Create('Provider='+xProvider+';Data Source='+xSource+';Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password='+xPASSWORD )
Catch
MsgInfo( "Could not create the table "+xSource )
oDLG:End()
Return(.f.)
End Try
cSay := "Created "+cDefa+"\Vehicle.Mdb"
oSay:ReFresh()
SysReFresh()
catNewDB:ActiveConnection:Close()
catNewDB := nil
SysWait(.5)
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 97 guests