Good to see the message has been read, no replies.
I've progressed a little - I have found some code (however I don't completely understand it) that creates an Access DB.
I have also found a few sample "CopyTable" examples - but receive various errors from these.Code:Public Function CreateAccessDatabase( _ ByVal DatabaseFullPath As String) As Boolean Dim bAns As Boolean Dim cat As New ADOX.Catalog() Try 'Make sure the folder 'provided in the path exists. If file name w/o path 'is specified, the database will be created in your 'application folder. Dim sCreateString As String sCreateString = _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ DatabaseFullPath cat.Create(sCreateString) bAns = True Catch Excep As System.Runtime.InteropServices.COMException bAns = False 'do whatever else you need to do here, log, 'msgbox etc. Finally cat = Nothing End Try Return bAns End Function
I will keep digging.



LinkBack URL
About LinkBacks




Reply With Quote


Bookmarks