asked on

Adodc1.CommandType

Hello.

I am new to Visual Basic and I am trying to write a simple program. I have an Access Database that I have set up as an ODBC connection usign the ADODC form. When I draw the text boxes I see the data and I can scroll through it using the ADODC buttons.

However, I wanted to set something up so it could ask a user what date they needed and only display that data. Below is my code:Private Sub cmdgetdata_Click()
Dim dtDate As Date
Dim sSQL As String

dtDate = InputBox("Enter Date Needed")
sSQL = "Select * from MainData"

sSQL = sSQL & " WHERE Date = '" & dtDate & "'"

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = sSQL
Adodc1.Refresh

End Sub

But when it runs it gets to the Adodc1.CommandType = adCMdTxt and errors - saying missing an object.

I can't figure this out although I am sure it is pretty easy.

Thanks.

aikimark

you've spelled the command type two different ways:
adCmdText
adCMdTxt

That might be the source of your error.

priya_pbk

try this:

sSQL = "Select * from MainData"

sSQL = sSQL & " WHERE Date = '" & format(dtDate,"dd-mmm-yy") & "'"

Hope this helps

If still it gives an error check at what line you get the error!!

-priya

aikimark

if the SQL is your problem, I'd recommend:
sSQL = sSQL & " WHERE Date = #" & dtDate & "#"

ASKER CERTIFIED SOLUTION

priya_pbk

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

priya_pbk

sorry this way..

sSQL = sSQL & " WHERE Date between #" & format(dtDate,"dd-mmm-yy") & "# and #" & format(dtdate+1,"dd-mmm-yy") & "#"