Hej allihopa!!

JAg skulle behöva hjläp med att söka en databas och sedan lista 'funa' altenativ. Har förskt med har get upp. Mycket tacksam för svar

Tackar på förhand

//

Robban

Hej!

Använd SQL för att göra din sökning och för att lista resultatet använd en Do While Loop.

Bifogar ett exempel för att lista alla Företag i kundtabellen i Northwinddatabasen som är stationerade i London.

Klistra in koden i ett formulär som innehåller en kommandoknapp och en combobox.

Private Sub Command1_Click()

Dim objCon As ADODB.Connection
Dim objRs As ADODB.Recordset
Dim strConString As String
Dim strSql As String

strConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Nwind.mdb;Persist Security Info=False"
Set objCon = New ADODB.Connection
objCon.Open strConString

strSql = "SELECT DISTINCT CompanyName FROM Customers WHERE City = 'London' ORDER BY CompanyName"
Set objRs = New ADODB.Recordset
objRs.Open strSql, objCon, adOpenForwardOnly, adLockReadOnly

With objRs
Do While Not .EOF
Combo1.AddItem objRs(0)
.MoveNext
Loop
End With

objRs.Close
Set objRs = Nothing
objCon.Close
Set objCon = Nothing

End Sub

Peter