Avatar billede pjen2004 Nybegynder
07. oktober 2005 - 18:58 Der er 4 kommentarer

Valg i Combobox1 skal bruges til SQL der laver en Combobox2

Hej!

Jeg har følgende stump code i et VB-program:

SQL-sætning...

Do While Not ReturData.EOF
    Combo1.AddItem ReturData("VARIABEL1")
    ReturData.moveNext
Loop


VARIABEL2 = "Valgt VARIABEL1"

theSQL = Noget med VARIABEL2

Do While Not ReturData.EOF
    Combo2.AddItem ReturData("VARIABEL3")
    ReturData.moveNext
Loop
   

Hvordan laver man en onchange på Combo1 (altså ved valg af en varaibel) - så valget af "VARIABEL1" bliver smidt ned i en VARIABEL2 - hvorefter en ny Combobox genereres med data - vha. en SQL med VARIABEL1 som kriterie!

Var det til at forstå?
Avatar billede sjh Nybegynder
09. oktober 2005 - 17:58 #1
VARIABEL1 = "test"
VARIABEL2 = "Valgt " & VARIABEL1
theSQL = "Noget med " & VARIABEL2

theSQL vil så være = "Noget med Valgt test"

er det sådan du mener?
Avatar billede sjh Nybegynder
09. oktober 2005 - 18:06 #2
eller også er det bare at gøre sådan..


Private Sub Combo1_Click()
Dim VARIABEL1 As String
Dim VARIABEL2 As String

  VARIABEL1 = Combo1.Text

  VARIABEL2 = "Valgt " & VARIABEL1
  theSQL = "Noget med " & VARIABEL2

  Combo2.Clear
  Do While Not ReturData.EOF
    Combo2.AddItem ReturData("VARIABEL3")
    ReturData.moveNext
  Loop
End Sub

Private Sub Form_Load()
  Do While Not ReturData.EOF
    Combo1.AddItem ReturData("VARIABEL1")
    ReturData.moveNext
  Loop
End Sub
Avatar billede sjh Nybegynder
09. oktober 2005 - 18:12 #3
Den skal vel bare se ca. sådan ud..

theSQL = "SELECT * FROM Table WHERE Valgt = '" & Combo1.Text & "';"
Avatar billede pjen2004 Nybegynder
12. oktober 2005 - 21:35 #4
Ja, jeg tror det virker... sådan som du har beskrevet det. Men jeg er nu gået i stå en det med combo-boksen. Hvordan får man vist en variabel i combo-beksen (f.eks. et vejnavn), og når man så vælger det man skal bruge - skal det være vejnummeret der skal sendes videre.

Altså i nedenstående ReturData skal jeg kun bruge en VEJ_KODE som vælges i boksen - men brugeren skal se vejnavnet:

Do While Not ReturData.EOF
    Combo1.AddItem ReturData("VEJ_KODE") & " | " & ReturData("VEJNAVN")
    ReturData.moveNext
Loop
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester