---
title: "databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/59727-databas"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "tarfala"
published: "2002-11-19T22:10:12.000Z"
updated: "2002-11-21T15:16:04.000Z"
replies: 5
views: 329
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/59727-databas"
---

# databas

## #1 — tarfala, 2002-11-19T22:10Z

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

Permalänk: https://www.webforum.nu/p/59727

## #2 — Niwssen, 2002-11-20T15:40Z

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..

Permalänk: https://www.webforum.nu/p/861191

## #3 — tarfala, 2002-11-20T18:22Z

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

Permalänk: https://www.webforum.nu/p/861299

## #4 — Niwssen, 2002-11-20T20:56Z

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?

Permalänk: https://www.webforum.nu/p/861395

## #5 — tarfala, 2002-11-20T21:20Z

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

Permalänk: https://www.webforum.nu/p/861426

## #6 — tarfala, 2002-11-21T15:16Z

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

Permalänk: https://www.webforum.nu/p/861853

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/59727-databas