/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
SQL problemer
Fra : Danlamp Teknik


Dato : 08-05-02 13:24

Hejsa

Er der en der kan hjælpe mig med følgende problem.

Jeg vil gerne have flyttet medarbejdernummer og medarbejdernavn over i en
combo box, men jeg kan ikke få det til at virke ?
Jeg har prøvet med følgende kode

udsnit ---

Combo1.Clear
adoRs.Open "SELECT Medarbejdernummer||'.'||Medarbejdernavn AS Test FROM
Medarbejder ORDER BY Medarbejdernavn", adoConn

If adoRs.BOF And adoRs.EOF Then
MsgBox "Der er ingen poster", 16, "Database problemer"
Exit Sub
End If
adoRs.MoveFirst

Do Until adoRs.EOF
Combo1.AddItem adoRs.Fields("Test")
adoRs.MoveNext
Loop

Slut ----

Er der en eller anden måde som man kan lave dette på ?

Henrik




 
 
Harald Staff (08-05-2002)
Kommentar
Fra : Harald Staff


Dato : 08-05-02 14:56

Hei Henrik

Jeg er usikker på sammenslåingen din i SQL. Uanset skal du helst definere
Cursor or Lock. Her er det jeg bruger:

Sub HentKontTyperCombo(Kombo As Combobox)
Dim cnn As New ADODB.Connection 'hvis ingen eksisterer
Dim rst As New ADODB.Recordset
Dim SQLstreng as String

SQLstreng = "SELECT Nummer, Navn FROM T_Tabel ORDER BY Navn"

cnn.Open strConnection 'global variabel. Brug evt eksisterende connection
rst.Open SQLstreng, cnn, adOpenForwardOnly, adLockReadOnly

'if rst.EOF = true then Msgbox "Intet"
Kombo.Clear
Do Until rst.EOF
Kombo.AddItem rst(1) 'eventuelt rst(0) & "." & rst(1) om jeg forstår deg
ret
Kombo.ItemData(Kombo.NewIndex) = rst(0)
rst.MoveNext
Loop
rst.Close
End Sub

"Danlamp Teknik" <ha@danlamp.dk> skrev i melding
news:abb689$p04$1@sunsite.dk...
> Hejsa
>
> Er der en der kan hjælpe mig med følgende problem.
>
> Jeg vil gerne have flyttet medarbejdernummer og medarbejdernavn over i en
> combo box, men jeg kan ikke få det til at virke ?
> Jeg har prøvet med følgende kode
>
> udsnit ---
>
> Combo1.Clear
> adoRs.Open "SELECT Medarbejdernummer||'.'||Medarbejdernavn AS Test FROM
> Medarbejder ORDER BY Medarbejdernavn", adoConn
>
> If adoRs.BOF And adoRs.EOF Then
> MsgBox "Der er ingen poster", 16, "Database problemer"
> Exit Sub
> End If
> adoRs.MoveFirst
>
> Do Until adoRs.EOF
> Combo1.AddItem adoRs.Fields("Test")
> adoRs.MoveNext
> Loop
>
> Slut ----
>
> Er der en eller anden måde som man kan lave dette på ?
>
> Henrik
>
>
>



Henrik Absalon (11-05-2002)
Kommentar
Fra : Henrik Absalon


Dato : 11-05-02 09:27

Hejsa
Tak for svaret, jeg har fået det til at virke.
Men hvad gør følgende linie :

Combo1.ItemData(Combo1.NewIndex) = adoRs(0)

Det ser ud til at det virker selv om jeg ikke tager denne linie med ?

Henrik


"Harald Staff" <harald.staff@nrk.no> skrev i en meddelelse
news:abbapi$kl2$1@oslo-nntp.eunet.no...
> Hei Henrik
>
> Jeg er usikker på sammenslåingen din i SQL. Uanset skal du helst definere
> Cursor or Lock. Her er det jeg bruger:
>
> Sub HentKontTyperCombo(Kombo As Combobox)
> Dim cnn As New ADODB.Connection 'hvis ingen eksisterer
> Dim rst As New ADODB.Recordset
> Dim SQLstreng as String
>
> SQLstreng = "SELECT Nummer, Navn FROM T_Tabel ORDER BY Navn"
>
> cnn.Open strConnection 'global variabel. Brug evt eksisterende connection
> rst.Open SQLstreng, cnn, adOpenForwardOnly, adLockReadOnly
>
> 'if rst.EOF = true then Msgbox "Intet"
> Kombo.Clear
> Do Until rst.EOF
> Kombo.AddItem rst(1) 'eventuelt rst(0) & "." & rst(1) om jeg forstår
deg
> ret
> Kombo.ItemData(Kombo.NewIndex) = rst(0)
> rst.MoveNext
> Loop
> rst.Close
> End Sub
>
> "Danlamp Teknik" <ha@danlamp.dk> skrev i melding
> news:abb689$p04$1@sunsite.dk...
> > Hejsa
> >
> > Er der en der kan hjælpe mig med følgende problem.
> >
> > Jeg vil gerne have flyttet medarbejdernummer og medarbejdernavn over i
en
> > combo box, men jeg kan ikke få det til at virke ?
> > Jeg har prøvet med følgende kode
> >
> > udsnit ---
> >
> > Combo1.Clear
> > adoRs.Open "SELECT Medarbejdernummer||'.'||Medarbejdernavn AS Test FROM
> > Medarbejder ORDER BY Medarbejdernavn", adoConn
> >
> > If adoRs.BOF And adoRs.EOF Then
> > MsgBox "Der er ingen poster", 16, "Database problemer"
> > Exit Sub
> > End If
> > adoRs.MoveFirst
> >
> > Do Until adoRs.EOF
> > Combo1.AddItem adoRs.Fields("Test")
> > adoRs.MoveNext
> > Loop
> >
> > Slut ----
> >
> > Er der en eller anden måde som man kan lave dette på ?
> >
> > Henrik
> >
> >
> >
>
>



Harald Staff (11-05-2002)
Kommentar
Fra : Harald Staff


Dato : 11-05-02 15:57

Hei Henrik

En combobox og en listbox kan lagre et Long nummer sammen med hvert item. Så
jeg pleier å legge IDnr der.

Combo1.List(5) returnerer "Harald"
Combo1.Itemdata(5) returnerer 999 -om dette nå er mitt idnummer.

Så slipper du å ha en separat list eller array til å huske korresponderende
id-numre.

HTH. Beste hilsen Harald

"Henrik Absalon" <absalon@it.dk> skrev i melding
news:abikmq$dtt$1@news.cybercity.dk...
> Hejsa
> Tak for svaret, jeg har fået det til at virke.
> Men hvad gør følgende linie :
>
> Combo1.ItemData(Combo1.NewIndex) = adoRs(0)
>
> Det ser ud til at det virker selv om jeg ikke tager denne linie med ?
>
> Henrik
>
>
> "Harald Staff" <harald.staff@nrk.no> skrev i en meddelelse
> news:abbapi$kl2$1@oslo-nntp.eunet.no...
> > Hei Henrik
> >
> > Jeg er usikker på sammenslåingen din i SQL. Uanset skal du helst
definere
> > Cursor or Lock. Her er det jeg bruger:
> >
> > Sub HentKontTyperCombo(Kombo As Combobox)
> > Dim cnn As New ADODB.Connection 'hvis ingen eksisterer
> > Dim rst As New ADODB.Recordset
> > Dim SQLstreng as String
> >
> > SQLstreng = "SELECT Nummer, Navn FROM T_Tabel ORDER BY Navn"
> >
> > cnn.Open strConnection 'global variabel. Brug evt eksisterende
connection
> > rst.Open SQLstreng, cnn, adOpenForwardOnly, adLockReadOnly
> >
> > 'if rst.EOF = true then Msgbox "Intet"
> > Kombo.Clear
> > Do Until rst.EOF
> > Kombo.AddItem rst(1) 'eventuelt rst(0) & "." & rst(1) om jeg forstår
> deg
> > ret
> > Kombo.ItemData(Kombo.NewIndex) = rst(0)
> > rst.MoveNext
> > Loop
> > rst.Close
> > End Sub
> >
> > "Danlamp Teknik" <ha@danlamp.dk> skrev i melding
> > news:abb689$p04$1@sunsite.dk...
> > > Hejsa
> > >
> > > Er der en der kan hjælpe mig med følgende problem.
> > >
> > > Jeg vil gerne have flyttet medarbejdernummer og medarbejdernavn over i
> en
> > > combo box, men jeg kan ikke få det til at virke ?
> > > Jeg har prøvet med følgende kode
> > >
> > > udsnit ---
> > >
> > > Combo1.Clear
> > > adoRs.Open "SELECT Medarbejdernummer||'.'||Medarbejdernavn AS Test
FROM
> > > Medarbejder ORDER BY Medarbejdernavn", adoConn
> > >
> > > If adoRs.BOF And adoRs.EOF Then
> > > MsgBox "Der er ingen poster", 16, "Database problemer"
> > > Exit Sub
> > > End If
> > > adoRs.MoveFirst
> > >
> > > Do Until adoRs.EOF
> > > Combo1.AddItem adoRs.Fields("Test")
> > > adoRs.MoveNext
> > > Loop
> > >
> > > Slut ----
> > >
> > > Er der en eller anden måde som man kan lave dette på ?
> > >
> > > Henrik
> > >
> > >
> > >
> >
> >
>
>



Søg
Reklame
Statistik
Spørgsmål : 177559
Tips : 31968
Nyheder : 719565
Indlæg : 6408938
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste