• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 188
  • Last Modified:

ADO Simple SEEK Problem

Still having a simple problem with SEEK>>>>>>

Set db = OpenDatabase("c:\accounting\accounting.mdb")
    Set td = db.OpenRecordset("TheData", dbOpenTable)
    Set td2 = db.OpenRecordset("DataUnique", dbOpenTable)
    Set td3 = db.OpenRecordset("Results", dbOpenTable)
    td3.Index = "MainKey"
 
    td3.Seek "=", #3/11/2002#, "RR", 2
--------------------This Works**--------------------------
    DIM Vd as date
    vd=date ' for the sake of this question

    Dim lookd As String  
    lookd = "#" & Format(vd, "mm/dd/yyyy") & "#"    
    td3.Seek "=", lookd, "RR", 2
---------------------This does not work-----------------
If i put a message box and look at lookd, it looks ok.

RUN TIME ERROR 3421   DATA CONVERSION ERROR

?? How do you pass a set of parameters, both dates,char,numeric to seek.???
0
turnermich
Asked:
turnermich
1 Solution
 
xSinbadCommented:
You could try and convert lookd to a string first with Cstr() as I belive that seeks requires a string as the argument I think.

td3.Seek "=", Cstr(lookd), "RR", 2
0
 
aikimarkCommented:
define lookd as Date instead of String
0
 
turnermichAuthor Commented:
I have played around with cstr...  and now have it working.

Appreciate the help.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: C++ 11 Fundamentals

This course will introduce you to C++ 11 and teach you about syntax fundamentals.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now