26. februar 2000 - 20:50Der er
6 kommentarer og 1 løsning
Import : Text fil -> Access Database
Hejsa,
Jeg har nogle text filer der ser således ud :
navn ; alder ; by ; navn ; alder ; by ; navn ; alder ; by ; osv
Jeg har så lavet et lille program i VB, sådan en slags telefontavle. Der vil jeg gerne have en import funktion, så jeg kan få mine text filer ind i databasen.
Håber der er nogle der kan hjælpe med nogle oplysninger / source koder?
Start med at lave noget programkode, der konverterer denne "semikolon-separede" fil til en alm. kommasepareret fil. Benyt derefter den almindelige indlæsningsmetode for kommafiler: OPEN "FILNAVN.CSV" FOR INPUT AS #1 DO INPUT #1, Navn, Alder, By LOOP UNTIL EOF(1)
Det er da nemt nok... :-) Jeg har ikke selv gjort det, men hvis jeg fik behov ville jeg følge ovennævnte sti...
Gå til VB Reference og lave en referense til ADO og brug følgende kode:
Dim Splittet Dim txtLine as string Dim DB as Database Dim RS as Recordset Set DB = Opendatabse("C:\DATABASE.MDB") Set RS = DB.OpenRecordset("TABELNAVN")
OPEN "FILNAVN.CSV" FOR INPUT AS #1 DO LINE INPUT #1, txtLine if instr(1,txtLine,";") then splittet = split(txtline, ";") rs.addnew rs!Navn = splittet(0) rs!alder = splittet(1) rs!by = splittet(2) rs.update end if LOOP UNTIL EOF(1)
Morsomt. Jeg tror den har været der før engang i et andet spørgsmål. En DATAABSE, DATABABSE eller hvad
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.