1 1 1 1 1 1 1 1 1 1 Rating 5.00 (1 Vote)

Problemstellung:

Wie kann ich eine Neue Datenbank mittels ADO(X) erstellen?


Verweis auf die Microsoft ActiveX Data Objects 2.X Library erforderlich
Verweis auf die Microsoft ADO Ext. 2.X for DDL and Security Library erforderlich

Public Sub CreateNewADOX_DB(strDBPathName As String, Optional strPWD As String = "")
'*******************************************
'Name:      CreateNewADOX_DB   (Sub)
'Purpose:   erstellt ein neue DB mittels ADOX
'Author:    Tommyk
'Date:      März 02, 2004, 03:52:24
'Inputs:    strDBPathName=Name und Pfad der neuen DB,strPWD=DB-Passwort
'Output:
'*******************************************
On Error GoTo ErrHandler
Dim cat As New ADOX.Catalog
Dim strCat As String
    strCat = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPathName & ";"
    
    If strPWD = "" Then
        strCat = strCat
    Else
        strCat = strCat & "Jet OLEDB:Database Password=" & strPWD & ";"
    End If
    
    cat.Create strCat
    
Set cat = Nothing
ExitHere:
    Exit Sub
ErrHandler:
    Dim strErrString As String
    strErrString = "Error Information..." & vbCrLf
    strErrString = strErrString & "Error#: " & Err.Number & vbCrLf
    strErrString = strErrString & "Description: " & Err.Description
    MsgBox strErrString, vbCritical + vbOKOnly, "Error in Sub: CreateNewADOX_DB"
    Resume ExitHere
End Sub

Aufruf:

Call CreateNewADOX_DB("D:\Ado_2.mdb", "test")

 

Erstellt in im Ordner "D:\" eine neue DB "Ado_2.mdb" mit dem DB-Kennwort "test"

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

1.png2.png0.png1.png3.png2.png2.png
Heute16
Gestern128
Diese Woche548
Dieser Monat1818
Total1201322

  • IP: 54.81.110.186
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

3
Online

18. August 2018

Letzte Kommentare

  • Trusted Locations Manager

    Tommy Admin 13.07.2018 13:06
    RE: Trusted Locations Manager
    Hallo Matthias, aus Ermangelung einer 64bit Version kann ich das leider nicht prüfen. Tut mir leid. Gruss ...

    Weiterlesen...

     
  • Trusted Locations Manager

    Matthias 13.07.2018 06:48
    Funktioniert nicht
    Habe gerade den TL-Manager installiert. Nach dem Start sagt er mir, dass es kein Office erkennen ...

    Weiterlesen...