visual-basic - Søg i accessDB (findfirst) - Udvikleren.dk

Tags: visual-basic

Bruger #8186 @ 08.08.06 08:27

Min database indeholder feltet ON som indeholder værdier fra 8030001 til 8039999 af typen LONG

Kode

Dim BaseDB As Database
Dim SalesRS As Recordset
Set BaseDB = OpenDatabase("base.mdb")
Set SalesRS = BaseDB.OpenRecordset("Sales", dbOpenDynaset)

Dim sval As Long
sval = 8030007

SalesRS.FindFirst "ON= " & sval

Den finder brik? Hjælp tak :o)

2 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 4 karma

Sorter efter stemmer Sorter efter dato

Bruger #8913 @ 08.08.06 20:53

DAO driveren og Access kan godt lide en firkant klamme såå:

Kode

Dim BaseDB As Database
Dim SalesRS As Recordset
Set BaseDB = OpenDatabase("base.mdb")
Set SalesRS = BaseDB.OpenRecordset("Sales", dbOpenDynaset)

Dim sval As Long
Dim Result As Variant
sval = 8030007

SalesRS.FindFirst "[ON] = " & sval
If SalesRS.NoMatch = False Then
    Result = SalesRS.Fields("ON").Value
Else
    Result = "Ikke fundet"
End If

Bruger #8186 @ 08.08.06 22:34

Perfekt! Tak for begge svar!

Søg i accessDB (findfirst)

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler