Combo box skal hente data'er men kun en gang

Her er året trukket ud af et datofelt

SELECT Year([Dato]) AS ÅR
FROM MinTabel
GROUP BY Year([Dato])
ORDER BY Year([Dato]);

Øhh :D
Hvor vil du sætte det ind henne jeg køre med en Data1 (Data control)

du skriver at det er en .mdb, jå jeg gik ud fra at det er i Access, er det ikke det. ?

Hvis der er, skal det ind i en forespørgsel, og lad din combo linke til den.

Oki har lavet en forspørgelse i Access
Hvordan for jeg så:
SELECT Year([Dato]) AS ÅR
FROM MinTabel
GROUP BY Year([Dato])
ORDER BY Year([Dato]);
Sat ind og hvor ?? :S (Er ret n00b nu)

du vælger den tabel til din forespørgsel, der indeholder Datoen hvor du vil trække året ud af.

så skriver du i det første felt

År :Year([Dato])

så vælger du totaler
vælg soter stigende

Dato skal selvfølgelig være feltanvnet, for det felt der indeholder datoen

Du må MEGET undskylde men jeg er total lost er der mulighed for du kan lave et eksemple og sende et Screenshot til mig ? :S ... djhupi@msn.com...

sendt et eksempel

Det dur ikke :( Det skal være så den selv opdatere når jeg tilføjer flere fra VB programmet af ...

Kan man ikke gøre det uden en forspørgelse ? Alså i Tabellen ?

Oki Hvordan for jeg min Combobox til at fravælge de sidste antal år hvis jeg har flere af de samme ? ...

du svarede ikke på om din combo og listbox er i  Vb6 eller lignende , i det eksempel jeg sendte dig, er der en formular med dem på, og de opdateres med nye data automatisk, den opdaterer comboen, hver gang formularen åbnes.

Og Listboksen, når du vælger et andet år i comboen

combo og listbox er i Vb6.
Den du sendte mig var en .mdb hvad vil du have jeg skriver i VB6 da ? ...

Private Sub Combo1_Click()
' NB Refference: Microsoft DAO 3.51 eller 3.6 skal tilføjes.....

'Tilslutter til databasen

Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\Data.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Fødselsdage WHERE Year([Fødselsdag]) Like " & Combo1.Text)
List1.Clear ' tømmer listboksen
If Not rs.EOF Then
    rs.MoveFirst 'Flytter til den første post
'Loop gennem data
   
    Do While Not rs.EOF
        List1.AddItem rs("Fornavn") & " " & rs("Efternavn") & " " & rs("Fødselsdag")
        rs.MoveNext
    Loop
End If
Set rs = Nothing 'tømmer hukommelsem
Set ws = Nothing
db.Close          ' lukker basen
Set db = Nothing
End Sub

Private Sub Form_Load()
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\Data.mdb")
Set rs = db.OpenRecordset("SELECT Year([Fødselsdag]) AS År From Fødselsdage GROUP BY Year([Fødselsdag])ORDER BY Year([Fødselsdag])")

Combo1.Clear ' tømmer Combo boksen
If Not rs.EOF Then
    rs.MoveFirst 'Flytter til den første post
'Loop gennem data
    Do While Not rs.EOF
        Combo1.AddItem rs("År")
      rs.MoveNext
    Loop
End If
Set rs = Nothing 'tømmer hukommelsem
Set ws = Nothing
db.Close        ' lukker basen
Set db = Nothing
End Sub

Du mener ikke ADO ??

hvis du kan få det til at virke med ADO, så ok, men jeg mener Microsoft DAO 3.51 eller 3.6

Kabbak jeg sender lige en database tilbage til dig ... Den skal sortere Slægt som vi snakkede om Fødselsdag-År ... Men kan ikke helt finde ud af hvordan du har gjort :/

Lukker

Kabbak du skal vist lave et svar

et svar

svar