Bibliotekssystem i visual Basic

hmmmm OK, og hvad er spørgsmålet ?!

Hmm... jeg tror ikke du for meget hjæp, hvis det er et programhvor du tjerner penge (tror jeg, men ved det selvfølelig ikke).

Dim filen as string
Dim nummer as integer
filen = "c:\bruger.txt"
nummer = freefile
Open filen for output as #nummer
print #nummer, "Per J larsen"
print #nummer, "ev. krypteret kode"
Close #nummer

Det burde kunne gører det, med brugeren.

ooops, sprang den sidste linje over, sorry :o)

Mummukiks laver sjov !

Et program som det beskrevne vil det tage 3-400 timer at udvikle, og så vil det stadig være et amatør-program.

En del mindre biblioteker anvender det norske MikroMarc.  http://www.mikromarc.dk  Det koster både et beløb at købe samt en løbende afgift at anvende.  Det er i størrelsesordenen 30.000 kr. i køb, men så er der også en web-del som giver søgemulighed i browseren.

Jeg har selv lavet et lille bogkartotek:
http://www.jkfsoft.dk/boger.htm  Men det er udelukkende til den private bogsamling.  Dér kan til gengæld scannes og vises indtil 12 sider fra hver bog (omslag, flapper, index etc.), samt skrives og søges i et resumé.

M.v.h.  Jørn

Jeg vil også sige, at det er et ret ambisiøst projekt, hvis Mummukiks skal have hjælp til at få VB til at læse en txt-fil.

Jeg mener - det svarer lidt til at spørge om hjælp til at bygge et højhus når man kun lige ved hvad der er for- og bagenden på en hammer.

No offence, Mummukiks. Jeg mener bare, at dit projekt er temmeligt ambisiøst når du starter med at skulle have forklaret hvordan VB snakker sammen med en database eller læser fra en txt-fil.

Men gang pointene med 50 og skift dem til kroner, så skal jeg gerne hjælpe med at lave det ;0)

/Martin

PS. Gang det med 500 og giv mig 2 uger, så skal du have det ;o) - uden mosm og pis og papir...

Ikke for at sige noget.....
Men han beder om en søgefunction og hvordan man læser fra en diskette......

Hvis jeg havde oprettet spørgsmålet, med de samme ønsker men uden at have skrevet hvad det skal bruges til, havde jeg fået svar og ikke noget crap om hvor ambisiøst det er.......

Jeg smidder lige en søgefunction med jeg har lavet, men den kan kun søge på hele titler i en database.......(søger i en accessdatabase ved brug af Sql)

KODE:

If txtSearchFilename.Text = "" Then
    MsgBox "Search field empty", , "Warning"
ElseIf txtSearchFilename.Text <> "" Then
    Set ws = Workspaces(0)
    Set db = ws.OpenDatabase(App.Path & "\CDDatabase.mdb")
    Set rs = db.OpenRecordset("SELECT * FROM files where " & comboFilesBy.Text & " = '" & txtSearchFiles.Text & "'")
    lstFilename.Clear
    If Not rs.EOF Then
        rs.MoveFirst
        Do While Not rs.EOF
            lstFilename.AddItem rs!Title
            rs.MoveNext
        Loop
    End If
End If

Ok - Sorry. Jeg havde forstået det således at han skulle have hjælp til det hele(!), startende med hvordan man læser fra en diskette. Men læser jeg det igen kan jeg da godt se, at spørgsmålet er hvordan VB læser en tekstfil og sankker med en DB. Jeg blev blot forvirret med alt det bibliotekssnak...

Sorry, og godt ord igen. Og held og lykke med projektet ;o)

/Martin

>>Martin_Moth

Takker for den response :O)
Det er sku ikke hver dag der er nogen der tager lidt negativ kretik til sig, det bliver oftest ignoreret eller også bliver man svinet til :O/

Så ros til Martin der.....

og hov, glemte lige det med hvordan man åbner en database :O)
Der er kontroller til det, men dem er jeg ikke helt inde i, og mener selv de ikke er så gode som de kunne være, så jeg bruger sql.....
Her kommer hvordan man åbner en database......:

Først refferencen Microsoft DAO 3.51 eller 3.6 Object Library

og derefter :

Dim ws As Workspace
Dim db As Database
Dim rs As Recordset 'Det er det enkelte felt i access databasen

'Her skabes kontakten :
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\Databasenavn.mdb")
Set rs = db.OpenRecordset("SELECT * FROM tabelnavn")

'For at hente data :
If Not rs.EOF Then
    rs.MoveFirst
    Do While Not rs.EOF
        ListBox1.AddItem rs!Bogtitle
        rs.MoveNext
    Loop
End If

I mit eksempel henter den bogtitler ind i en listbox.....
Der kan også sættes en where clausel ind hvor det skal stemme overens med f.eks. lånenummer, hvor den går ind og chekker på disketten i tekstdokumentet og henter lånenummer, og putter i en variabel.