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
Beim Onkel google habe ich auch eines gefunden und probiert.... leider ohne Erfolg
DB erstellen funktioniert, ebenso die Spalten....
Bitte um eure Hilfe... Danke
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
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
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
- Public Sub DBerstellen()
- Dim cat As New ADOX.Catalog()
- Dim ApplicatonPath As String = Application.StartupPath
- cat.Create("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ApplicatonPath & "\Data1.mdb")
- Dim con As New OleDbConnection
- Dim cmd As New OleDbCommand
- con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ApplicatonPath & "\Data1.mdb"
- cmd.Connection = con
- Dim list As New List(Of String)
- list.Add("Tabelle_A")
- list.Add("Tabelle_B")
- list.Add("Tabelle_C")
- list.Add("Tabelle_D")
- list.Add("Tabelle_E")
- list.Add("Tabelle_F")
- list.Add("Tabelle G")
- For Each l As String In list
- Dim tbl As New ADOX.Table()
- tbl.Name = "TB" & l
- tbl.ParentCatalog = cat
- cat.Tables.Append(tbl)
- 'Tabelle zur DB hinzufügen
- 'Primäre Spalte anlegen
- Dim colID As New ADOX.Column()
- colID.Name = "ID"
- colID.Type = ADOX.DataTypeEnum.adInteger
- colID.ParentCatalog = cat
- colID.Properties("AutoIncrement").Value = True
- tbl.Columns.Append(colID)
- tbl.Columns.Append(l, ADOX.DataTypeEnum.adVarWChar)
- tbl.Columns.Append(l & "1", ADOX.DataTypeEnum.adVarWChar)
- --> tbl.Columns(l).Attributes = ADOX.ColumnAttributesEnum.adColNullable!!
- 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