Access 2007, Using Recordset and Sql statements in VBA

Question

0.00/5 (No votes)

See more:

I want this code to work, I have tried all possible combinations and finally posting here. All this code is supposed to do is to get a row from the table using 3 input parameters. The problem comes when using the date in Sql statement, it dosent work but if I use a variable "nam" and change the condition criteria accordingly it works.

Your help will be greatly appreciated.

VB

Dim dbs1 As DAO.Database
Dim rst1 As DAO.Recordset
Dim strSQL1 As String
Dim temp As Date
nam = "DeEx"
 temp = [Forms]![AllProjects1]![Combo3].Value
 temp = Format(temp, "dd-mm-yyyy")
Set dbs1 = CurrentDb
'strSQL1 = "SELECT * FROM AllProjects WHERE Team= '" & nam & "'" & " AND Team= '" & nam & "'"
strSQL1 = "SELECT * FROM AllProjects " & "WHERE [StartDate]=" & Format(temp, "dd.mm.yyyy")
Set rst1 = dbs1.OpenRecordset(strSQL1)

Posted 27-Aug-12 21:59pm

Darshan Nagaraj

Updated 28-Aug-12 3:39am

Wes Aday

v4

Add a Solution

Comments

[no name] 28-Aug-12 9:43am

Does it work if you format your data to be in the form dd/MM/yyyy?

Maciej Los 28-Aug-12 11:48am

It should works for dd/mm/yyyy, but default, prefered MS format for date is: MM/dd/yyyy.

[no name] 28-Aug-12 11:50am

And he is formatting his string to something very weird. Which may or may not be the format of his database.

Maciej Los 28-Aug-12 12:07pm

Yes, and this is the reason of his trouble. ;)

Maciej Los 28-Aug-12 11:45am

Please, answer me few simple questions:
1) Why do you use DAO? Access 2k7 default engine: ADO!
2) Is the above code calling from standard module, class module or from UserForm module?
3) Why do you format data as dd.mm.yyy? Is this default format for "AllProjects" table?

ZurdoDev 28-Aug-12 12:05pm

Just put single quotes around the date. WHERE [StartDate] = '" & ... & "'"

ChandraRam 30-Aug-12 8:57am

I think the delimiter is # (not single quotes) for Access tables.

ChandraRam 30-Aug-12 8:59am

The first format statement
temp = Format(temp, "dd-mm-yyyy")
is not really necessary.

Try this:
strSQL1 = "SELECT * FROM AllProjects WHERE [StartDate]=#" & temp & "#"

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2012-09-18T06:49:00

First of all, read this article[^] and thread on ozgrid forum[^] and all related articles.

To get data from table, use the following query:

SQL

SELECT *
FROM AllProjects
WHERE [StartDate]= #09/18/2012#

I recommend you to build a query and check its content in the run-time using MsgBox, for example:

VB

strSQL1 = "SELECT * FROM AllProjects " & "WHERE [StartDate]=#" & Format(temp, "dd.mm.yyyy") & "#"
MsgBox strSQL1

What you see now?