Database

well, du kan jo smække det ind i en database og så køre det igennem med en løkke... prøver lige at komme med et eksempel:


While NOT rs.EOF
  s.Caption = rs(\"serialnr\")
  rs.MoveNext
Wend

Kan du forklarer det nærmere?

hmm... har du ikke et ICQ nr?

» E-Mail: admin@enter-s.dk
» ICQ: 1424962136

» MSN Messenger: casper_enters@hotmail.com

her er resultatet af koden:


Public Conn As New connection
Public rs As Recordset
Public strSQL As String
   
Function connection()
    Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & App.Path & \"\\db.mdb\"
End Function
Private Sub Command1_Click()
End
End Sub

Private Sub log_Click()
connection
    strSQL = \"SELECT * FROM serial\"
    Set rs = Conn.Execute(strSQL)

    If pass.Text = \"koden\" Then
        While Not rs.EOF
            Liste.AddItem rs(\"navn\")
        rs.MoveNext
        Wend
   
    Conn.Close
   
        fejl.Caption = \"Tilykke! Du er nu logget ind.\"
    Else
        fejl.Caption = \"Forkert kode. Prøv igen.\"
    End If
        If pass.Text = \"\" Then
        fejl.Caption = \"Du skal skrive en kode\"
    End If


End Sub


Private Sub liste_Click()
connection
    strSQL = \"SELECT * FROM serial WHERE navn =\'\" & Liste.Text & \"\'\"
    Set rs = Conn.Execute(strSQL)
            s.Caption = rs(\"nr\")
    Conn.Close
End Sub

Private Sub tilfoj_fjern_Click()
        Dim strFrmNew As New Form2
        Load strFrmNew
        strFrmNew.Show , Me
End Sub