1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Problemstellung:

Wie kann ich ein Feld 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

Sub NewCreateFieldADOX(strTabName As String, strNewFldName As String, _
                       varNewFldTyp As Variant, _
                       Optional intNewFldSize As Integer = 50, _
                       Optional boolNewZeroL As Boolean = False, _
                       Optional strNewDefaultV As String = "", _
                       Optional boolAuto As Boolean = False)
'*******************************************
'Name:      NewCreateField (Sub)
'Purpose:   Erstellt ein neues Feld in der angegebenen Tabelle in der
'           aktuellen Datenbank mittels ADOX
'Author:    Thomas Keßler
'Date:      Januar 09, 2003, 14:05:15
'Inputs:    TabName = Name der neuen Tabelle, NewFldName = Name des neuen Feldes
'           varNewFldTyp = Typ des neuen Feldes,
'           adDate=7, adDouble=5, adInteger=3, adSingle=4, adBoolean=11, adCurrency=6
'           adVarWChar=202, weitere s. OH "DataTypeEnum;"
'           NewFldSize = Grösse des neuen Feldes (nur Textfelder),
'           NewZeroL=Null Zeichenfolge zulässig
'           NewDefaultV = Standardwert, boolAuto=Autowertfeld nur DatenTyp Integer
'Output:
'*******************************************
On Error GoTo Err_NewField
Dim cn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
Dim col As New ADOX.Column
Set cn = CurrentProject.Connection
Set cat.ActiveConnection = cn
Set tbl = cat.Tables(strTabName)
Set col.ParentCatalog = cat
    With col
        .Name = strNewFldName
        .Type = varNewFldTyp
        If varNewFldTyp = 202 Or varNewFldTyp = adVarWChar Then
            If intNewFldSize > 255 Then intNewFldSize = 255
            .DefinedSize = intNewFldSize
        End If
        If boolNewZeroL = True Then .Attributes = adColNullable
        If strNewDefaultV <> "" Then .Properties("Default") = strNewDefaultV
        If boolAuto = True And (varNewFldTyp = 3 Or varNewFldTyp = adInteger) Then
            .Properties("Autoincrement") = True
        End If
        tbl.Columns.Append col
    End With
    
Set cat = Nothing
cn.Close
Err_NewField_Exit:
    Exit Sub
Err_NewField:
    Dim strErrString As String
    strErrString = "Error Information..." & vbCrLf
    strErrString = strErrString & "Error#: " & Err.Number & vbCrLf
    strErrString = strErrString & "Description: " & Err.Description & vbCrLf
    MsgBox strErrString, vbCritical + vbOKOnly, "Error in Sub: NewCreateFieldADOX"
    Resume Err_NewField_Exit
End Sub

Aufruf:

Call NewCreateFieldADOX("tblNeu", "Auto_ID", adInteger, , , , True

würde in der Tabelle "tblNeu" ein Feld "Auto_ID" vom Typ Long als Autowert-Feld erstellen.

Call NewCreateFieldADOX("tblNeu", "fld_Bez", 202, 105, , "Test")

würde in der Tabelle "tblNeu" ein Feld "fld_Bez" vom Typ Text mit einer Länge von 105 und dem Standardwert "Test" erstellen.

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

Neueste Artikel

Problemstellung:In MS-Access ist es mit Bordmitteln nicht möglich Zeiten über 24 Stunden zu berechnenIn dieser Bsp-DB möchte ich zeigen wie es trotzdem geht. Voraussetzungen:Das Bsp ist ab A2007...
1.png2.png0.png4.png2.png1.png4.png
Heute114
Gestern145
Diese Woche259
Dieser Monat1638
Total1204214

  • IP: 54.92.190.11
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

18. September 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...