Sortering i ListBox

Kommer dine værdier fra en database?

Jeps... fra en access database!

Select distinct ComboContents from MyTable

Du kan bruge: "SELECT DISTINCT" i din sql

Øhhh.... nå??

Sådan her:

strSQL = "SELECT DISTINCT varegruppe FROM varegrupper" & ""

Det virker ikke helt!!!

Du kan lige se hele min sql sætning:
---------------------------------------------------------------------------
Set datDB = DBEngine.Workspaces(0).OpenDatabase("I:\CRM\data\data\data.mdb")
strSQL = "SELECT DISTINCT varegruppe FROM varegrupper" & ""
Set recRecordset = datDB.OpenRecordset(strSQL)
Do Until recRecordset.EOF
ListVaregruppe.AddItem recRecordset("Varegruppe") & ""
recRecordset.MoveNext
Loop
---------------------------------------------------------------------------

Så må det være fordi dine data er lagt ind med f.eks. mellemrum i - din kode ser ud til at være korrekt.

De dataer den trækker hedder ting som:
TRYK
BELL. 16
BELL.  2,5
FJERNVARME

osv.....
Der er ikke noget problem at trække dem fra Access, men de kommer bare flere gange.... og så skal de overskydende skæres væk...

Jamen det burde distinct kunne klare. Det virker i min testtabel.
Med mindre du ønsker at "BELL. 16" og "BELL. 2,5" blot skal vises som "BELL."?

Ellers er det altså fordi der er "snavs" i dine felter - f.eks. mellemrum i slutningen af feltdata.

Nej de må IKKE ændre navn!

Prøv lige, for en god ordens skyld, dette:

Set datDB = DBEngine.Workspaces(0).OpenDatabase("I:\CRM\data\data\data.mdb")
strSQL = "SELECT DISTINCT varegruppe FROM varegrupper" & ""
Set recRecordset = datDB.OpenRecordset(strSQL)
ListVaregruppe.clear
Do Until recRecordset.EOF
ListVaregruppe.AddItem recRecordset("Varegruppe") & ""
recRecordset.MoveNext
Loop

Det skal lige siges at det bliver halet over fra et excel ark til Access og vidre over til VB!!!!

Ingen forskel!

Så prøv lige dette og læg resultatet ud her:

Set datDB = DBEngine.Workspaces(0).OpenDatabase("I:\CRM\data\data\data.mdb")
strSQL = "SELECT DISTINCT varegruppe FROM varegrupper" & ""
Set recRecordset = datDB.OpenRecordset(strSQL)
ListVaregruppe.clear
Do Until recRecordset.EOF
debug.print ">" & recRecordset("Varegruppe") & "<"
recRecordset.MoveNext
Loop

Jamen reslutatet er det samme... der bliver ikke "filtreret" i min varegruppe.... der kommer stadig tryk en 3-4 gange!!!!

Kan du sende databasen til mig?

Ja jeg kan da sende alle source filerne!

Interessant diskussion - jeg kendte ikke til SELECT DISTINCT. Nå, jeg ville bare sige, at jeg synes du flotter dig lige rigeligt med dine poients, domino1977 ;o) (5 stk!)

NB: Hvis nu SELECT DISTINCT ikke kommer til at virke, så kunne man jo læse posterne een efter en fra databasen, og kun tilføje dem til ListBox hvis de ikke i forvejen findes i ListBox...
En lidt klodset løsning - men det vil helt sikkert virke, og jeg kan da godt give et eksempel hvis det har interesse. Den løsning ville så også kunne tage højde for mellemrum i posterne i databasen, hvis man bruger
Trim(databasepost) når man sammenligner (eller LTrim eller RTrim)- det kan SELECT DISTINCT vist ikke tage højde for ;o)

Det er rigeligt at du sender databasen. Bare send den til:

anonymanonym715@hotmail.com

Martin Mouth -> jeg har kun lige fem tilbage... smider flere oveni ipå mandag....!!

Ja det med database, virker ok, MEN det vil ikke komme til at virke pga... at der bliver trukket en list en gang om dage... denne lidt vil Jeg IKKE ind og rydde op i hverdag... og den skal derfor være nem bare at ligge oveni....

Og i dette udtræk er den sådan at hver "kunde" der har sin konto, har flere gange nævnt/brugt en varegruppe der måske hedder "tryk"... det vil sige at hvergang at de har bestilt et varenummer der hører under varegruppen tryk, vil den fremkomme i listen over varegrupper.... og det er ikke særlig smart... den skal kun frem komme 1 gang... og når man så vælger "tryk" i varegruppe listen, så skal alle varenummerne der er i varegruppen "tryk" fremkomme i listen over varenummer!!!

dataen er sendt!

Hvaså...... har du fundet ud af noget??

Jeg sendte dig ellers en mail og bad om at se resten af koden. Selve "select distinct..."-delen fungerer fint på din database - derfor ville jeg gerne se den resterende kode med listbox'en.

ok...jamen skal jeg bare sende HELE lortet??

Ja, hvis det kan lade sig gøre?

Det er sendt!

Jeg har flere kommentarer til dit projekt:

Du benytter select'et:

"SELECT distinct * FROM KVJAN WHERE Konto Like '*" & Kartotek.konto.Text & "*'AND Måned LIKE '*" & Måned.Text & "*'"

Hvor du benytter * omkring dine kriterier. Det er MEGET farligt da konto 100 og konto 1000 begge vil komme med i dit recordset. Jeg har også ændret din kode så den tager korrekt højde for at der ikke er valgt en måned. Og så sendte du det forkerte select til dit spørgsmål.
Og hvorfor laver du en ny connection til databasen hver gang du skal bruge den? En global connection ville være mere "økonomisk" (og stien til databasen ville være lettere at rette).

Erstat nederste del af din FORM_LOAD med dette:

Set datDB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\Data.mdb")
If Trim$(Måned.Text) <> "" Then
    strSQL = "SELECT distinct * FROM KVJAN WHERE Konto Like '" & Kartotek.konto.Text & "'AND Måned LIKE '" & Måned.Text & "'"
Else
    strSQL = "SELECT distinct varegruppe FROM KVJAN WHERE Konto Like '" & Kartotek.konto.Text & "'"
End If
Set recVaregruppe = datDB.OpenRecordset(strSQL)
ListVaregruppe.Clear
Do While Not recVaregruppe.EOF
    ListVaregruppe.AddItem recVaregruppe("varegruppe") & ""
    recVaregruppe.MoveNext
Loop
UpdateFelter

Ja, nu har jeg jo ændret stien til App.Path ... det retter du bare.

Den går istå her:
----------------------------------------------------------------------
Set datDB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "I:\CRM\data\data\data.mdb")
----------------------------------------------------------------------
Og så siger den filnavnet er ugyldigt...

Hvorfor det???

Slet "App.Path &"

NU virker det.......

Takker....

FUCK!!!

Min spand har slettet næsten ALLE mine mails... og nu kan jeg ikke finde din gamle mail!!

Er der mulighed for at du vil sende den igen??

Jamen... er det ikke bare dette?

Jeg har flere kommentarer til dit projekt:

Du benytter select'et:

"SELECT distinct * FROM KVJAN WHERE Konto Like '*" & Kartotek.konto.Text & "*'AND Måned LIKE '*" & Måned.Text & "*'"

Hvor du benytter * omkring dine kriterier. Det er MEGET farligt da konto 100 og konto 1000 begge vil komme med i dit recordset. Jeg har også ændret din kode så den tager korrekt højde for at der ikke er valgt en måned. Og så sendte du det forkerte select til dit spørgsmål.
Og hvorfor laver du en ny connection til databasen hver gang du skal bruge den? En global connection ville være mere "økonomisk" (og stien til databasen ville være lettere at rette).

Erstat nederste del af din FORM_LOAD med dette:

Set datDB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\Data.mdb")
If Trim$(Måned.Text) <> "" Then
    strSQL = "SELECT distinct * FROM KVJAN WHERE Konto Like '" & Kartotek.konto.Text & "'AND Måned LIKE '" & Måned.Text & "'"
Else
    strSQL = "SELECT distinct varegruppe FROM KVJAN WHERE Konto Like '" & Kartotek.konto.Text & "'"
End If
Set recVaregruppe = datDB.OpenRecordset(strSQL)
ListVaregruppe.Clear
Do While Not recVaregruppe.EOF
    ListVaregruppe.AddItem recVaregruppe("varegruppe") & ""
    recVaregruppe.MoveNext
Loop
UpdateFelter