har indtil videre fundet ud af hvordan man søger på en ting af gangen, men skulle gerne kunne søge på mere..
f.eks skal man kunne søge på en film hvor Seann Willian Scott er med i, det skal være en Komedie og den skal være fra 2004.
Den kode jeg har fundet frem til indtil videre:
'Opretter workspace
Set ws = Workspaces(0)
'Opretter database connection - DB ligger i programmappen
Set db = ws.OpenDatabase(App.Path & "film97.mdb")
'Her tages der højde for hvad der søges på
If Not txtTitel.Text = "" Then
Set rs = db.OpenRecordset("SELECT * FROM film WHERE titel LIKE '*" & txtTitel.Text & "*'")
Main.lstFilm.Clear
If Not rs.EOF Then
rs.MoveFirst
Do While Not rs.EOF
Main.lstFilm.AddItem rs!titel
Main.lstFilm.ItemData(Main.lstFilm.NewIndex) = rs!ID
rs.MoveNext
Loop
End If
End If
If Not txtGenre.Text = "" Then
Set rs = db.OpenRecordset("SELECT * FROM film WHERE genre LIKE '*" & txtGenre.Text & "*'")
Main.lstFilm.Clear
If Not rs.EOF Then
rs.MoveFirst
Do While Not rs.EOF
Main.lstFilm.AddItem rs!titel
Main.lstFilm.ItemData(Main.lstFilm.NewIndex) = rs!ID
rs.MoveNext
Loop
End If
End If
If Not txtAarstal.Text = "" Then
Set rs = db.OpenRecordset("SELECT * FROM film WHERE aarstal LIKE '*" & txtAarstal.Text & "*'")
Main.lstFilm.Clear
If Not rs.EOF Then
rs.MoveFirst
Do While Not rs.EOF
Main.lstFilm.AddItem rs!titel
Main.lstFilm.ItemData(Main.lstFilm.NewIndex) = rs!ID
rs.MoveNext
Loop
End If
End If
If Not txtTid.Text = "" Then
Set rs = db.OpenRecordset("SELECT * FROM film WHERE tid LIKE '*" & txtTid.Text & "*'")
Main.lstFilm.Clear
If Not rs.EOF Then
rs.MoveFirst
Do While Not rs.EOF
Main.lstFilm.AddItem rs!titel
Main.lstFilm.ItemData(Main.lstFilm.NewIndex) = rs!ID
rs.MoveNext
Loop
End If
End If
If Not txtMedvirkende.Text = "" Then
Set rs = db.OpenRecordset("SELECT * FROM film WHERE medvirkende LIKE '*" & txtMedvirkende.Text & "*'")
Main.lstFilm.Clear
If Not rs.EOF Then
rs.MoveFirst
Do While Not rs.EOF
Main.lstFilm.AddItem rs!titel
Main.lstFilm.ItemData(Main.lstFilm.NewIndex) = rs!ID
rs.MoveNext
Loop
End If
End If
--
http://service.futuremark.com[...]
MSN: [email protected]