/ 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
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 : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste