hallo,
mit dem import über die access eigenen funktionen habe ich es auch schon probiert, aber dafür müsste die variablenliste anders strukturiert sein.
es klappt auch alles, bis auf das anhängen der feldbeschreibung an die bestehende tabelle, bzw. an das bestehendde feld; dort bekomme ich trotz verschiedenster schreibweisen immer einen fehler.
vieleicht kann mir ja jemand von euch weiterhelfen, der etwas mehr ahznung von der dao hat.
cu, frank
Text-Datei:
Presley,text,Elvis Presley
Lieder,integer,736
Band,boolean,nein
Modul:
Dim datenbank As DAO.Database
Dim tabelle As DAO.TableDef
Dim feld As DAO.Field
Dim prop As DAO.Property
Dim tabname As String
Dim feldname As String
Dim feldtyp As String
Dim feldbezeichnung As String
Dim typ As Variant
Public Sub varlist_einlesen()
tabname = InputBox("Tabellenname eingeben, der erzeugt werden soll:")
verzeichnis = InputBox("Verzeichnis der varlist.txt eingeben (c:\texte\musik\):")
Set datenbank = CurrentDb
Set tabelle = datenbank.CreateTableDef(tabname)
Open verzeichnis & "varlist.txt" For Input As #1
Do While Not EOF(1)
Input #1, feldname, feldtyp, feldbezeichnung
Select Case UCase(feldtyp)
Case "BOOLEAN"
typ = dbBoolean
Case "DATE"
typ = dbDate
Case Is = "DOUBLE"
typ = dbDouble
Case "INTEGER"
typ = dbInteger
Case "MEMO"
typ = dbMemo
Case "TEXT"
typ = dbText
Case "TIME"
typ = dbTime
Case Else
typ = dbText
End Select
Set feld = tabelle.CreateField(feldname, typ)
tabelle.Fields.Append feld
Set prop = feld.CreateProperty("Description", dbText, feldbezeichnung)
'hier hängt es, habe u.a. folgedes versucht
tabelle.Fields(feld).Properties.Append prop
tabelle.Properties.Append prop
'usw.
Loop
datenbank.TableDefs.Append tabelle
Close #1
datenbank.Close
End Sub