DataBase

Prøv f.eks. følgende:

Type utAdresse
  Navn As String
  Adr As String
  telf As String
End Type
Type utAdresser
  Adresser() As utAdresse
End Type

Sub Test()

Dim tAdresser As utAdresser
Dim tAdresse() As utAdresse
Dim x
Redim tAdresse(1 To 10) As utAdresse \'gør plads til 10 adresser

tAdresser.Adresser=tAdresse
For x=1 To 10

  tAdresser.Adresser(x).Navn=\"Navn \" & x
  \'osv
Next x

\'Gem adresserne
Open App.Path & \"\\adresser.dat\" for Binary As #1
  Put #1,,tAdresser
Close #1

\'Hent Adresserne
Open App.Path & \"\\adresser.dat\" for Binary As #1
  Get #1,,tAdresser
Close #1
End Sub



Håber at det giver lidt inspiration :o)

/Jennemaan

Hej ...Joe.

Jeg har nylig lavet sådan en, se den på http://jkfsoft.dk/personer.htm

Du kan få kildeteksten ved at oplyse mailadr.  Er skrevet i VB5.

M.v.h.  Jørn

Hej Jørn

Lige præcis det... Venter 300 points for U.

tjodense@ofir.dk

Ja tak......... :-)

Personer.zip afsendt  m.v.h.  Jørn

Joern>> gider du osse sende det til mig?

w2k_razersedge@ofir.dk