Access DB - Eingabe erforderlich deaktiveren

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Frostbeule.

    Access DB - Eingabe erforderlich deaktiveren

    Hallo Zusammen,

    ich möchte per VB.Net eine DB erstellen. Beim ersten Programm start soll die Datenbank erstellt werden.
    Nun möchte ich mehrere Spalten hinzufügen und das Attribut "Eingabe erforderlich" auf "False" setzen....

    Hab jetzt schon einige Stunden einiges probiert... weiß leider nicht mehr weiter :S
    Beim Onkel google habe ich auch eines gefunden und probiert.... leider ohne Erfolg ||
    DB erstellen funktioniert, ebenso die Spalten....

    Bitte um eure Hilfe... Danke ^^

    VB.NET-Quellcode

    1. Public Sub DBerstellen()
    3. Dim cat As New ADOX.Catalog()
    4. Dim ApplicatonPath As String = Application.StartupPath
    5. cat.Create("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ApplicatonPath & "\Data1.mdb")
    6. Dim con As New OleDbConnection
    7. Dim cmd As New OleDbCommand
    8. con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ApplicatonPath & "\Data1.mdb"
    9. cmd.Connection = con
    11. Dim list As New List(Of String)
    12. list.Add("Tabelle_A")
    13. list.Add("Tabelle_B")
    14. list.Add("Tabelle_C")
    15. list.Add("Tabelle_D")
    16. list.Add("Tabelle_E")
    17. list.Add("Tabelle_F")
    18. list.Add("Tabelle G")
    20. For Each l As String In list
    21. Dim tbl As New ADOX.Table()
    22. tbl.Name = "TB" & l
    23. tbl.ParentCatalog = cat
    24. cat.Tables.Append(tbl)
    25. 'Tabelle zur DB hinzufügen
    26. 'Primäre Spalte anlegen
    27. Dim colID As New ADOX.Column()
    28. colID.Name = "ID"
    29. colID.Type = ADOX.DataTypeEnum.adInteger
    30. colID.ParentCatalog = cat
    31. colID.Properties("AutoIncrement").Value = True
    32. tbl.Columns.Append(colID)
    33. tbl.Columns.Append(l, ADOX.DataTypeEnum.adVarWChar)
    34. tbl.Columns.Append(l & "1", ADOX.DataTypeEnum.adVarWChar)
    35. --> tbl.Columns(l).Attributes = ADOX.ColumnAttributesEnum.adColNullable!!
    36. End Sub


    Sollte es ander Funktionen wie die ADOX geben, mit der eine Erstellung einer Access DB im VB.Net möglich ist, bin ich offen dafür :) ... lerne gern bessere Möglichkeiten...

    Viele Grüße
    Frostbeule

    VB.NET-Quellcode

    1. ​
    2. Dim colID As New ADOX.Column()
    3. colID.Name = "ID"
    4. colID.Attributes = ColumnAttributesEnum.adColNullable


    Sollte doch funktionieren, oder nicht?
    LG
    Das ist meine Signatur und sie wird wunderbar sein!

    Hallo Mono,
    hab den Fehler jetzt gefunden :thumbsup:

    hab die folgende Zeilen ganz nach unten gesetzt....

    VB.NET-Quellcode

    1. tbl.Columns("Spaltenname").Properties("Nullable").Value = True
    2. cat.Tables.Append(tbl)


    also....

    VB.NET-Quellcode

    1. Public Sub DBerstellen()
    3. Dim cat As New ADOX.Catalog()
    4. Dim ApplicatonPath As String = Application.StartupPath
    5. cat.Create("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ApplicatonPath & "\Data1.mdb")
    6. Dim con As New OleDbConnection
    7. Dim cmd As New OleDbCommand
    8. con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ApplicatonPath & "\Data1.mdb"
    9. cmd.Connection = con
    11. Dim list As New List(Of String)
    12. list.Add("Tabelle_A")
    13. list.Add("Tabelle_B")
    14. list.Add("Tabelle_C")
    15. list.Add("Tabelle_D")
    16. list.Add("Tabelle_E")
    17. list.Add("Tabelle_F")
    18. list.Add("Tabelle G")
    20. For Each l As String In list
    21. Dim tbl As New ADOX.Table()
    22. tbl.Name = "TB" & l
    23. tbl.ParentCatalog = cat
    24. 'cat.Tables.Append(tbl) <--- falscher Platz
    25. 'Tabelle zur DB hinzufügen
    26. 'Primäre Spalte anlegen
    27. Dim colID As New ADOX.Column()
    28. colID.Name = "ID"
    29. colID.Type = ADOX.DataTypeEnum.adInteger
    30. colID.ParentCatalog = cat
    31. colID.Properties("AutoIncrement").Value = True
    32. tbl.Columns.Append(colID)
    33. tbl.Columns.Append(l, ADOX.DataTypeEnum.adVarWChar)
    34. tbl.Columns(l).Properties("Nullable").Value = True
    35. cat.Tables.Append(tbl)
    36. End Sub


    Viele Grüße

    Frostbeule

Facebook
Telefonspende