engelmarkus
Erfahrenes Mitglied
Hast du ausgewählt, dass er eine kopie der datenbank im programmverzeichnis ablegen soll? Bei dem Schritt, wo du die Datenbankdatei auswählen sollst?
Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Microsoft ADO Ext. 6.0 for DDL and Security
Public Function ErstelleAccessDatenbank(ByVal DatabaseFullPath As String) As Boolean
Dim Ans As Boolean
Dim katalog As New ADOX.Catalog()
Try
Dim CreateString As String
CreateString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseFullPath
katalog.Create(CreateString)
Ans = True
Catch Excep As System.Runtime.InteropServices.COMException
Ans = False
Finally
katalog = Nothing
End Try
Return Ans
End Function
'Beispiel
' If ErstelleAccessDatenbank("F:\versuch.mdb") Then
' MsgBox("Datenbank erstellt")
' Else
' MsgBox("Fehler beim Erstellen der Datenbank")
' End If