Feltbeskrivelse fra semikolon separeret fil

Jeg er ikke sikker på hvad du konkret mener, men hvis du ønsker data om tabel / felter i en Access database så kan du bruge:
Funktioner > Analyser > Strukturvisning

Hvis du bruger import wizarden så får du i det andet skærmbillede mulighed for at angive at første række indeholder feltnavne. Det ser dog ud til at din fil "vender" forkert.

Access kan uden problemer hente rækkeoverskrifter fra filer, der ser således ud:

"MANDT";"KUNNR";"BUKRS"
client1;customer1;firmakode1
client2;customer2;firmakode2
client3;customer3;firmakode3
client4;customer4;firmakode4

SÅ hvis du kan få din fil til at vende denne vej, er løsningen ret enkel.

2 spørgsmål:

- Har jeg misforstået det hele?
- Hvornår lærer jeg at holde min mund?

Mugs

1. Måske - hvis ikke, så har jeg!
2. Du prøver jo bare på at hjælpe. Det er da al ære værd. Desuden er det menneskeligt at fejl (og jeg er MEGET menneskelig).  :-)

/jap

Hvis din tekstfil er i det format du beskriver i dit spørgsmål :

Brug dette asp script :

<%
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
%>
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("tekstfilnavn.txt")
Set f = fso.OpenTextFile(filespec,1)

Do While not f.AtEndOfStream
x=x+1
linie=f.ReadLine
poster=split(linie,";")
if x=1 then   
strSQL = "insert into tabel1 (" & poster(0)&") values ('"& poster(1) &"');"
    kolonnenavn=poster(0)
    postdata=poster(1)

else
strSQL = "update tabel1 set " & poster(0)&" = ("& poster(1) &") where "& kolonnenavn & "='"& postdata &"';"
end if
response.write strsql
    Set rs = myConn.Execute(strSQL)

Loop

f.Close
%>

MANDT er her tekst, hvis ikke skal insert sql'en se sådan ud :
strSQL = "insert into tabel1 (" & poster(0)&") values ("& poster(1) &");"

KUNNR og BUKRS forventer jeg er tal - hvis ikke skal update sql'en se sådan ud :
"update tabel1 set " & poster(0)&" = ('"& poster(1) &"')

/morch

Til alle

Kolonnenavne OG data er allerede i databasen. Det eneste jeg mangler er beskrivelsen på kolonnerne. Det er den jeg har i filen. Første kolonne i filen er så kolonnenavnet i Access. Beskrivelsen er fx.: "Dette felt indeholder kundenummer".

Det er ren og skær "properties" på en tabel-definition.

Function GetFieldDesc_DAO(ByVal MyTableName As String, _
  ByVal MyFieldName As String)
  Dim DB As DAO.Database
  Dim TD As DAO.TableDef
  Dim FLD As DAO.Field
    Dim des As DAO.Field
    Dim idxCountry As Index

  Set DB = CurrentDb

  On Error GoTo Err_GetFieldDescription

  Set TD = DB.TableDefs(MyTableName)
  Set FLD = TD.Fields(MyFieldName)

With FLD.Properties("description")
        .Value = "jonas"
End With
 

Bye_GetFieldDescription:
  Exit Function

Err_GetFieldDescription:
  Beep
  MsgBox Err.Description, vbExclamation
  'GetFieldDescription = Null
  Resume Bye_GetFieldDescription

End Function

jeg arbejder lige videre med den sidste del asf koden

Dim MyString, MyString2, MyString3, MyString4, lengt, MyNumber
On Error GoTo Err_Kommandoknap6_Click

Open "c:\jakob.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, MyString

MsgBox MyString
lengt = Len(MyString)
MyString2 = InStr(1, MyString, ";", vbTextCompare)
MyString3 = Left(MyString, MyString2 - 1)
MyString4 = Mid(MyString, MyString2 + 1, lengt)

  Dim DB As DAO.Database
  Dim TD As DAO.TableDef
  Dim FLD As DAO.Field
    Dim des As DAO.Field

  Set TD = DB.TableDefs(Me.Text5)
  Set FLD = TD.Fields(MyString3)


With FLD.Properties("description")
        .Value = MyString4

End With
Loop
Close #1
Exit_Kommandoknap6_Click:
    Exit Sub

Err_Kommandoknap6_Click:

    MsgBox err.Description
   
    Resume Exit_Kommandoknap6_Click
   

End Sub

glemte lige at du skal angive db'en


Set DB = CurrentDb()