Kandu.dk - Hvordan !!


/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg

Glemt dit kodeord?

Brugernavn*

Kodeord *

Husk mig

Brugerservice

Kom godt i gang

Bliv medlem

Seneste indlæg

Find en bruger

Stil et spørgsmål

Skriv et tip

Fortæl en ven

Pointsystemet

Kontakt Kandu.dk

Emnevisning

Kategorier

Alfabetisk

Karriere

Interesser

Teknologi

Reklame

Top 10 brugere

VB/Basic

#	Navn	Point
1	berpox	2425
2	pete	1435
3	CADmageren	1251
4	gibson	1230
5	Phylock	887
6	gandalf	836
7	AntonV	790
8	strarup	750
9	Benjamin...	700
10	tom.kise	610

Hvordan !!
Fra : Teknik danlamp

Dato : 12-01-01 12:31

Hejsa
Jeg bruger følgende kode i et program :

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("dan_data.mdb")
Set rs = db.OpenRecordset("SELECT Dato FROM Afprøvning WHERE Ordrenr = " &
DataCombo1.BoundText & " AND Afslutordre=-1")

Så kunne jeg godt tænke at få den sidste dato som "rs" finder, lagt over i
"lblTest"
Hvordan gør jeg det !!!

Henrik

Helge Bjørkhaug (12-01-2001)

Kommentar
Fra : Helge Bjørkhaug

Dato : 12-01-01 14:11

"Teknik danlamp" <danlamp@danlamp.dk> skrev i melding news:G0C76.4$Ez7.5845125@news.mobilixnet.dk...
> Hejsa
> Jeg bruger følgende kode i et program :
>
> Dim db As Database
> Dim rs As Recordset
> Set db = OpenDatabase("dan_data.mdb")
> Set rs = db.OpenRecordset("SELECT Dato FROM Afprøvning WHERE Ordrenr = " &
> DataCombo1.BoundText & " AND Afslutordre=-1")
>
> Så kunne jeg godt tænke at få den sidste dato som "rs" finder, lagt over i
> "lblTest"
> Hvordan gør jeg det !!!
>

("SELECT TOP 1 Dato FROM Afprøvning WHERE Ordrenr = " &
DataCombo1.BoundText & " AND Afslutordre=-1")

eller

("SELECT TOP 1 Dato FROM Afprøvning WHERE Ordrenr = " &
DataCombo1.BoundText & " AND Afslutordre=-1" ORDER BY dato)

Mvh,

Helge

Peter Lykkegaard (12-01-2001)

Kommentar
Fra : Peter Lykkegaard

Dato : 12-01-01 14:53

"Helge Bjørkhaug" <helge.bjorkhaug@jensenco.no> wrote in message
news:_nD76.1056$H6g.175481856@news.telia.no...

>
> ("SELECT TOP 1 Dato FROM Afprøvning WHERE Ordrenr = " &
> DataCombo1.BoundText & " AND Afslutordre=-1")
>
> eller
>
> ("SELECT TOP 1 Dato FROM Afprøvning WHERE Ordrenr = " &
> DataCombo1.BoundText & " AND Afslutordre=-1" ORDER BY dato)
>
Hmm, skulle det ikk' være MAX?

"SELECT Max(Dato) FROM Afprøvning WHERE Ordrenr = " &
DataCombo1.BoundText & " AND Afslutordre=-1"

btw - prøv at undgå reserverede ord og æøå i dine tabel/feltnavne
Skal du sidenhen have din database over på noget "rigtigt" rdbms, så gi'r
det problemer

mvh/Peter Lykkegaard

Peter Lykkegaard (12-01-2001)

Kommentar
Fra : Peter Lykkegaard

Dato : 12-01-01 14:14

"Teknik danlamp" <danlamp@danlamp.dk> wrote in message
news:G0C76.4$Ez7.5845125@news.mobilixnet.dk...
> Hejsa
> Jeg bruger følgende kode i et program :
>
> Dim db As Database
> Dim rs As Recordset
> Set db = OpenDatabase("dan_data.mdb")
> Set rs = db.OpenRecordset("SELECT Dato FROM Afprøvning WHERE Ordrenr = " &
> DataCombo1.BoundText & " AND Afslutordre=-1")
>
> Så kunne jeg godt tænke at få den sidste dato som "rs" finder, lagt over i
> "lblTest"
> Hvordan gør jeg det !!!
>
lblTest.Caption = rs("dato")

mvh/Peter Lykkegaard

Søg

Reklame

Statistik

Spørgsmål :	177552
Tips :	31968
Nyheder :	719565
Indlæg :	6408848
Brugere :	218887

Månedens bedste

Årets bedste

Sidste års bedste