29. april 2002 - 12:41Der er
16 kommentarer og 1 løsning
Database
Hej...
Jeg har lavet en database, men når jeg har tilføjet noget nyt i databasen kan jeg først søge på den efter at jeg har lukket min database og starten den igen.. kan man ikke lave noger så man ikke skal gøre dette??? Jeg har også et andet problem, hvid man f.eks har en cd-database og og man har 5 album med samme kunstner... når man søger efter kunstneren så finder den kun den første cd, kan man ikke lave en knap så man kan komme til den næste cd???
sådan ser min søge knap ud:
Private Sub Command2_Click() Dim soegetitel As String soegetitel = InputBox("Hvem har indspillet cd'en?") Data1.Recordset.MoveFirst Do While Data1.Recordset.EOF = False If Data1.Recordset("kunstner") = soegetitel Then Exit Sub End If Data1.Recordset.MoveNext Loop MsgBox "CD'en findes ikke" End Sub
if you are adding data through the data1.recordset then new data should alreadyu be available, but if your adding it for example directly in the database or through another recordset then you will need to refresh the recordset!
Hvad er det for en recordset.findfrist and .findnext methods du snakker om??? Jeg kan ikke få det der "data1.recordset.refresh" til at virke, den siger at der er fejl..
' Find the first record data1.recordset.FindFirst "kunstner = '" & soegetitel & "'"
' Loop through those found Do Until data1.recordset.NoMatch Debug.Print data1.recordset.Fields("kunstner").Value data1.recordset.FindNext "kunstner = '" & soegetitel & "'" Loop
data1.recordset.refresh har jeg fået til at virke... tak jeg kan bare ikke lige få det andet til at virke, skal man ikke have en knap der fortæller at den skal tage det næste den finder??
anders1000 I dont know what fields you have or how your database is design so this is JUST and example which writes the information to the debug window.
Once you have this working you can then think about puuting the code in a buttons on click event.
Jeg har os fået det her til at køre : ' Find the first record data1.recordset.FindFirst "kunstner = '" & soegetitel & "'"
' Loop through those found Do Until data1.recordset.NoMatch Debug.Print data1.recordset.Fields("kunstner").Value data1.recordset.FindNext "kunstner = '" & soegetitel & "'" Loop
men det finder stadig kun den første med det navn jeg søger, jeg kan ikke få den til at finde den næste.
søg: Private Sub Command5_Click() soegetitel = InputBox("Hvorfor en sang vil du søge efter?") 'Find the first record Data1.Recordset.FindFirst "kunstner = '" & soegetitel & "'"
'Loop through those found Do Until Data1.Recordset.NoMatch Debug.Print Data1.Recordset.Fields("kunstner").Value Data1.Recordset.FindNext "kunstner = '" & soegetitel & "'" Loop End Sub
Næste resultat: Private Sub Command6_Click()
' Loop through those found Do Until Data1.Recordset.NoMatch Debug.Print Data1.Recordset.Fields("kunstner").Value Data1.Recordset.FindNext "kunstner = '" & soegetitel & "'" Loop
End Sub
Det er nok noget med nok den der næste resultat der er noget galt med..
I will get back just as soon as I have looked at it :o)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
