Ado spørgsmål

Prøv:

rs.find = "felt like '%find mig%'"

Eller måske rs.filter?

rs.find har jeg forsøgt mig med, men får en besked om at det ikke er understøttet, hvordan virker rc.filter

På samme måde:

rs.filter = "[felt] = 'test'"

Du kan jo skrive

MsgBox(rs("felt"))

//>Rune

Enten noget i stil med:
rs.findfirst ???

Eller kan du bruge noget i stil med:

Dim dbbrugere As Database
dim index as integer
Set dbbrugere = DBEngine.Workspaces(0).OpenDatabase("c:\dindbase.mdb")
dbbrugere.Execute ("SELECT * WHERE [id] = " & index & "")


- Mikker

Du kan jo gøre som følgende:

'** Betingelser:
'** Reference: Microsoft ActiveX Data Objects 2.5 Library

    Dim Conn As New Connection
    Dim rs As Recordset
    Dim strSQL As String
   
  Function Connection()
      Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\DB.mdb"
  End Function

'** Udskrivning **
    Connection
    strSQL = "SELECT * FROM tabel"
    Set rs = Conn.Execute (strSQL)

    While Not rs.EOF
      MsgBox(rs("felt"))
    rs.MoveNext()
    Wend

//>Rune

Hele ideen er at jeg har et 'snapshot' af en en tabel, som jeg i min klasse har åben konstant.
Tabellen har to felter hvor af det ene er indexseret.
Mit program skal MANGE gange finde den ene værdi(indexet) og retunere værdigen fra det andet felt.
før brugte jeg while not rc.eof, men man bør jo kunne 'slå op' på indexet, uden at skulle lave en ny .execute.
Jeg har fået .filter til at virke, og det har forbedret hastighedden en del.

så medions er lidt forkert på den :) (i forhold til hvad jeg vil)

men hvad med jet laget, er der ingen der har brugt det til access 2000?

Går det her hurtigt nok?

.Recordset.FindFirst "index = 2212"
Text1.Text = .Recordset.Fields("navn").Value

Det er det bedste JEG kan klare :-)

- Mikker