Fører hele den hentede tabel over i combobox ?

Nu ved jeg ikke lige hvordan det laves i VB, men i Delphi skal man lave dette:

while not din_query.EOF do
  begin
    din_combobox.Items.Add(din_query.FieldByName('navn').AsString);
    din_query.Next;
  end;

Jeg tror det er det du har glemt. Den "fejl" du beskriver får man nemlig i Delphi hvis man har glemt ovenstående !!!

Snowball

Det virker slet ikke :O((((
ellers tak :O)

SM0LF

Du skal selvfølgelig tilpasse det til VB synstakst (hvis du ikke har gjort det!)

Kan du ikke poste noget kode ? Det ville gøre det nemmere !!

Snowball

Private Sub Form_Load()
Set Combo1.DataSource = Data1
Do While Data1.Recordset.EOF = False
Combo1.AddItem = Data1.Recordset("navn")
Data1.Recordset.MoveNext
Loop
End Sub

Det er det jeg har
Jeg har addet en Data Kontrol der er hidden, for at åbne til DB'en

SM0LF

Prøv det her:

Private Sub Form_Load()
Set Combo1.DataSource = Data1
Data1.Recordser.MoveFirst
Do While Data1.Recordset.EOF = False
Combo1.AddItem = Data1.Recordset("navn")
Data1.Recordset.MoveNext
Loop
End Sub

Ikke en stor ændring, og ved heller ikke om det virker, da jeg ikke lige har mulighed for at afprøve det !

Snowball

Det ser heller ikke ud til at virke - den siger : Argument not optional

hvis jeg sletter additem siger den : Type mismatch

SM0LF

Så ved jeg ikke hvad der er galt ;(

Snowball

<< smolf >>

Hvis du vil, så prøv at sende dit VB projekt, så skal jeg da gerne finde ud af hvad der er galt med det. Jeg programmerer selv meget i VB. Min email add er thomas@tdaugaard.dk

<< snowball >>

"Data1.Recordser.MoveFirst" skulle vist ha været
"Data1.Recordset.MoveFirst" ..

Ja ok, en lille svipser ;)

Snowball

Det sker :-) ...

Prøv at lade være med at binde comboboxen til data1 men ellers som i smolfs metode. Delphi varianter er heller ikke bundet, såvidt jeg kan se.

Søren

Jeg syntes ikke jeg kan få nogle af de givne forslat til at virke :O(((

Nerøs kan du ikke lige prøve at skrive min kode om ???

SM0LF

tdaugaard : Det er ikke fordi jeg ikke vil sende det, men jeg vil helst selv side og sætte koden ind, så jeg forstår det :O))

SM0LF

<< smolf >>

Forstår jeg godt :-)

Noget i denne retning hvor data1 er et recordset. Men comboboxen er altså ikke bundet til data:

DIM DATA1 AS RECORDSET

Private Sub Form_Load()
Do While not Data1.EOF
Combo1.AddItem =DATA1!Fieldname
data1.MoveNext
Loop
End Sub

Men man kan bruge controllerne microsoft datalist controls til at fylde en bunden combox i et hug.

Nerøs

Når jeg kører den kode du gav siger den User or undefined string til Dim DATA1 as rescordset

SM0LF

Ja ovennævnte kode kræver at du får dimmensioneret et recordset. jeg ved ikke hvordan man får fat i recordsettet fra en datakontrol. Jeg plejer at bruge DAO, men ADO er vist det man bør bruge.
Men som skrevet så er det altså muligt at fylde en DataCombo automatisk med data fra en datacontrol. Brug "Microsoft ADO datacontrol 6.0 (OLEDB)" sammen med "Microsoft datalist controls (OLEDB)"

Man kan tilføje disse kontroller ved at højreklikke på toolboxen, vælge "components" og finde dem på listen over controls.

SelectPosition = "SELECT DISTINCT Position FROM Spillerdatabase"
Select="Select Distinct navn form DinDatabase"
Set Data1.Recordset = db.OpenRecordset(Select)
Data1.Recordset.MoveFirst
While Not Data3.Recordset.EOF
NavnetPåComboen.AddItem Data1.Recordset.Fields("navn")
Data1.Recordset.MoveNext
Wend

Hejsa..det har virker, selvfølgelig når du retter det til. Tager en af hvert navn.

Ups..uden øverste linie selvfølgelig, kom med ved en fejl

Jeg ved ikke hvem det er det lige nøjagtigt skal have pointene :O)))

Stykkede lidt sammen her og der og fik følgende :

Private Sub Form_Load()
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset

Set ws = Workspaces(0)
Set db = ws.opendatabase(App.Path & "\adressebog.mdb")
Set rs = db.OpenRecordset("SELECT * FROM adressebog")
If Not rs.EOF Then
    rs.movefirst
    Do While Not rs.EOF
        Combo1.AddItem rs!Navn
        rs.MoveNext
    Loop
End If
End Sub

+ jeg skulle sætte en refference :O))

SM0LF

P.S. I kan jo finde en måde og dele på :)

<< SMOLF >>

Bare acceptér alle svar så pointsne bliver delt ligeligt.
Det er vist på tide at få lukket ?'et.