/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
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
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177558
Tips :
31968
Nyheder :
719565
Indlæg :
6408903
Brugere :
218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.