databas

nu står det still.....
jag vill göra ett databas program där jag kan skriva in artistnamn och albumnamn,och sedan kunna spara databasfilen för att sen kunna öppna den för fortsatt registrering......nån som kan bidra med lite hjälp...har kört fast vet inte ens hur jag skall börja

Gå in på Access om du har det, sen skapar du en ny databas.
Skapar en ny tabell där du lägger in Artistnamn och Albumnamn i varsit fält. Sen gör du ett formulär med hjälp av guiden (det går snabbare en att göra formuläret själv). Sen så har du ett formulär där du kan bläddra bland dina Album och Artister, du kan även spara och ta bort Artister respektive Album om du vill..

det är ju det jag inte har, därför hade jag tänkt försöka med vb

Du kan ju göra så att du skapar en fil som du skriver och läser mot, jag kan göra ett exempel och skicka det till dig på din mejl om du vill, jag orkar inte dra upp allt här?

kanon vill gärna lära mig detta ...

kanske

hm hittade ett exempel men det är nåt som inte stämmer???
Option Explicit
Private Type Artist
Namn As String * 20
Skiva As String * 20
End Type

Private Sub cmdbak_Click()
If Not Loc(filnr) <= 1 Then
post = post - 1
VisaPost
Else
MsgBox "finns inga tidigare poster"
End If
End Sub

Private Sub cmdfram_Click()
If Loc(filnr) < antalposter Then
post = post + 1
VisaPost
Else
MsgBox "inga fler poster funna"
End If
End Sub

Private Sub cmdsok_Click()
Dim sokartist As String
Dim raknare As Integer
sokartist = InputBox("Ange Artist att söka efter")
If Not (sokartist = "") Then
sokartist = UCase(sokartist)
For raknare = 1 To antalposter
Get #filnr, raknare, aktartist
If UCase(Trim(aktartist.Namn)) = soknamn Then
post = raknare
VisaPost
Exit Sub
End If
Next raknare
MsgBox "Hittade ingen post"
End If
End Sub

Private Sub cmdspara_Click()
aktartist.Namn = txtartist
aktartist.Album = txtalbum
antalposter = antalposter + 1
Put #filnr, antalposter, aktartist
post = antalposter
VisaPost
End Sub

Private Sub Form_Load()
Dim aktartist As String
Dim post As Integer
Dim antalposter As Integer
Dim filnr As Integer
Dim postlangd As Integer
postlangd = Len(aktartist)
filnr = FreeFile
End Sub

Public Sub VisaPost()
'en post hämtas in och visas på skärmen
Get #filnr, post, aktartist
txtartist = Trim(aktartist.Namn)
txtalbum = Trim(aktartist.Album)

Open "album mina.txt" For Random As filnr Len = postlangd
post = 1
antalposter = FileLen("album mina.txt") / postlangd
VisaPost

End Sub