Avatar billede Slettet bruger
26. februar 2000 - 20:50 Der 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?

//SweetGirl
Avatar billede fico Nybegynder
26. februar 2000 - 22:28 #1
Ja, hvordan ?
DEt gad jeg nok også vide.....
Avatar billede jonasj Nybegynder
26. februar 2000 - 23:25 #2
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...
Avatar billede bkp Nybegynder
27. februar 2000 - 12:45 #3
ELLER:

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)


Avatar billede bkp Nybegynder
27. februar 2000 - 12:46 #4
Jeg har skrevet det meste ud fra mit hoved, så hvis det ikke virker, så er det måske fordi at nogle værdier skal flyttes el.lign (brug F1).
Avatar billede bkp Nybegynder
27. februar 2000 - 12:47 #5
if instr(1,txtLine,";") then

skal skrives
if instr(1,txtLine,";") > 0 then
Avatar billede jonasj Nybegynder
27. februar 2000 - 13:26 #6
Nåja, selvfølgelig.... BKP har det rigtige svar :-)
Avatar billede moses Praktikant
29. februar 2000 - 11:12 #7
Morsomt.
Jeg tror den har været der før engang i et andet spørgsmål.
En DATAABSE, DATABABSE eller hvad
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester