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?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.