30. december 2004 - 14:22Der er
14 kommentarer og 1 løsning
Problemer Kriterier i SQL string
Hej Eksperter Nedenstående kode skulle gerne fylde data i min liste, men den viser ikke noget, og der kommer heller ikke fejl mystisk, nogen der et bud på det
mvh Anders.
Koden: Function FindTitel() Form_frmbilleder!lstallebilleder.ListItems.Clear Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim itmX As ListItem
Set rs = New ADODB.Recordset With rs Set .ActiveConnection = CurrentProject.Connection .Open "Select * From fsoversigt where [Titel] like '*" & Form_frmfind!txttitel & "*'", , , adLockOptimistic Do Until .EOF Set itmX = Form_frmbilleder!lstallebilleder.ListItems.Add(, , rs!BilledID) itmX.SubItems(1) = rs!Titel itmX.SubItems(2) = rs!Gruppe .MoveNext Loop End With rs.Close DoCmd.Close acForm, "frmfind" End Function
Hej fdata, undskyld den lange svartid, måtte løbe over hals og hoved, og er først i skrivende stund kommet hjem. Ja formen frmfind er åbn når koden køre og rs.EOF er true inden Do delen. Jeg forstår det ikke, det burde køre. Nedenstående virker hvis jeg spørger på en esakt værdi (tal)
Kode: Function FindGruppe() Form_frmbilleder!lstallebilleder.ListItems.Clear Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim itmX As ListItem
Set rs = New ADODB.Recordset With rs Set .ActiveConnection = CurrentProject.Connection .Open "Select * From fsoversigt where [GruppeID] Like " & Form_frmfind!cbogruppe, , , adLockOptimistic Do Until .EOF Set itmX = Form_frmbilleder!lstallebilleder.ListItems.Add(, , rs!BilledID) itmX.SubItems(1) = rs!Titel itmX.SubItems(2) = rs!Gruppe .MoveNext Loop End With rs.Close DoCmd.Close acForm, "frmfind" End Function
Happy New Yeat to you both! aandersen>I suggest that you have a variable (string) to hold your SQL then its easier to debug the exact contents of what you are opening the recordset with. You can also copy this to a query to see what result you get there.
Dim sSQL as string sSQL = "Select * From fsoversigt where [Titel] like '*" & Form_frmfind!txttitel & "*'" .Open sSQL, , , adLockOptimistic
In the debug window (Ctrl+G) you can see the contents of sSQL and also copy it to a query
Hej terry, godt nytår til dig også, jeg har prøvet dit forslag af, men samme resultat, der returneres ingen poster, hvis jeg køre koden op mod en standardliste virker det fint måske kan '*" & ikke bruges i et recordset.
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.