|
| |

ADO.NET / Datenbanken| Re: Fehler bei Tabellendefinition über ADOX | |  | | Autor: Marv82 | | Datum: 23.07.07 15:26 |
| Hi,
wie müßte es dann aussehen? Ich bin prinzipiell schon vollauf Glücklich wenn ich eine Access Datenbank mit einer Tabelle á 13 Spalten erzeugen könnte.. aber irgendwie klappts nicht. Habe jetzt das:
Dim db As New ADOX.Catalog
Dim table As New ADOX.Table
Dim dbhandle, dbfile As String
File.Delete("M:\MISSLER\FEHLERERFASSUNG\Fehlererfassung.mdb")
dbfile = "M:\MISSLER\FEHLERERFASSUNG\Fehlererfassung.mdb"
dbhandle = "Provider=Microsoft.Jet.OLEDB.4.0;"
dbhandle = dbhandle & "Data Source=" & dbfile & ";"
db.Create(dbhandle)
table.Name = "Fehlererfassung"
table.Columns.Append("Fehlerberichtnummer", ADOX.DataTypeEnum.adVarChar, 80)
table.Columns.Append("Status", ADOX.DataTypeEnum.adVarChar, 10)
table.Columns.Append("Kurzbeschreibung", ADOX.DataTypeEnum.adVarChar, 80)
table.Columns.Append("Ersteller", ADOX.DataTypeEnum.adVarChar, 20)
table.Columns.Append("Datum", ADOX.DataTypeEnum.adVarChar, 15)
table.Columns.Append("Kategorie", ADOX.DataTypeEnum.adVarChar, 10)
table.Columns.Append("Fehlerbericht", ADOX.DataTypeEnum.adLongVarChar)
table.Columns.Append("Bemerkungen", ADOX.DataTypeEnum.adVarChar, 100)
table.Columns.Append("AQS Nummer", ADOX.DataTypeEnum.adVarChar, 15)
table.Columns.Append("Missler Nummer", ADOX.DataTypeEnum.adVarChar, 20)
table.Columns.Append("Mails", ADOX.DataTypeEnum.adVarChar, 20)
table.Columns.Append("Mailtext", ADOX.DataTypeEnum.adLongVarChar)
table.Columns.Append("Dateien", ADOX.DataTypeEnum.adVarChar, 25)
db.Tables.Append(table)
bekomme aber den Fehler "Die Typangabe ist ungültig" und wenn ich vorher noch die Zeile db.ActiveConnection = dbhandle eingebe resultiert das in: "Die Argumente sind vom falschen Typ, liegen außerhalb des Gültigkeitsbereiches oder sind miteinander unvereinbar."
Da brauch man einmal in Leben ne Datenbank...
Mfg Marv |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
Neu! sevEingabe 3.0 
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|