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

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
1  berpox 2425
2  pete 1435
3  CADmageren 1251
4  gibson 1230
5  Phylock 887
6  AntonV 790
7  strarup 750
8  Benjamin... 700
9  tom.kise 610
10  EXTERMINA.. 600
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 : 177817
Tips : 31980
Nyheder : 719565
Indlæg : 6410968
Brugere : 218912
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2026 kandu.dk. Alle rettigheder forbeholdes.