Data1.databasename= "C:\basen.mdb"
SQL$ = "SELECT*FROM tabellen"
SQL$ = SQL$ + Trim$ (LblSortera.Caption) + "*'"
Data1.recordsource = SQL$
Data1.Refresh

Jag försöker använda koden ovan för att sortera ett DbGrid. Caption på LblSortera får jag från en InputBox.
Grejen är den att jag har tänk mig att man ska kunna söka på tex en stad. När dbgriden visar upp alla poster med den staden så ska man kunna öppna inputboxen och förfina sorteringen ytterligare.
Du som kan det här ser säkert att jag inte är något proffs, så all hjälp mottages tacksamt.

with Data1
.databasename= "C:\basen.mdb"
SQL$ = "SELECT * FROM tabellen WHERE kolumnen like '"
SQL$ = SQL$ + Trim$ (LblSortera.Caption) + "*'"
.recordsource = SQL$
.Refresh
end with

ignorera with ... end with har igentligen bara med prestanda att göra och ingenting med ditt problem.

För att kunna gör ett ordentligt urval behäver du använda ngn form av urvals kriteria. WHERE LIKE är ett av de som stödjs av sql, IN() är ett annat..

en lite dum grej med with/end with är att man kan få ruggiga minnesläckor om det uppstår ett fel i blocket.

/johan/

Funkade alldeles utmärkt tack. fick tyvärr överge iden med inputbox. Men nu går det fint