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?
Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
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