ADODC by date problem

[opie]

I am trying to move through records in a table using the ADODC tool. But I want to move through those records that occur on a specigic date, a date that was selected on a calandar using another form.

I was using the following code and I cannot get it to work.

Any Ideas?

Thank You in advance.


RecordSource = SELECT * FROM tblLog WHERE EventDate = #Forms!EditEntryByDate!calLog#

[Dököll]

I am trying to move through records in a table using the ADODC tool. But I want to move through those records that occur on a specigic date, a date that was selected on a calandar using another form.

I was using the following code and I cannot get it to work.

Any Ideas?

Thank You in advance.


RecordSource = SELECT * FROM tblLog WHERE EventDate = #Forms!EditEntryByDate!calLog#

Hello, opie!

I got just the thing. I urge you to search through the pages under adodc1...If it means looking through specific records, I can show you how to do this in DAO or you can look it up yourself here:

 
Dim myDatabase As Database
Dim myRecord As Recordset
Set myDatabase = OpenDatabase("C:\DataMining\Data_Central.mdb")
Set myRecord = myDatabase.OpenRecordset("SELECT * FROM YourTable WHERE UserID='" & Text1(0).Text & "'")
 
 

You can turn UserID into the date field to search for specific date.

Please look for that post for added support. Adodc1 helps you page through the data... I thought to have read ADO is not that far off, you also fetch results here or Google on it; perhaps something of a difference between the two is posted.

Good luck:-)

Dököll

[opie]

I have looked through the post several times. I cannot get this to work after about a week of working at it off and on.

It work fine when I insert the the exact date as the recordSource as shown below.

SELECT * FROM tblLog WHERE EventDate = #12/7/2007#

But when I try to refer it to a form that is still in memory (I have not unloaded the form) it gives me a syntax error. Now I am using MS Access Syntax so maybe that is the problem, but in this instance I figured it would be the same and I am unable to find the proper syntax.

SELECT * FROM tblLog WHERE EventDate = #forms!EditEntryByDate!calLog#

[daniel aristidou]

If your getting a data type error or the wrong records.
Try using
The CDate This converts the the record feild and criteria into the same date format.

WHERE Cdate(EventDate) = cdate(forms!EditEntryByDate!calLog)

Ps im not too sure about the " ' " that are needed.
i usually just use trial error.
When i first got this problem took me ages to find solution :)

Hope this helps you......... if not it may others.

Holiday Greetings
Daniel

[Dököll]

I have looked through the post several times. I cannot get this to work after about a week of working at it off and on.

It work fine when I insert the the exact date as the recordSource as shown below.

SELECT * FROM tblLog WHERE EventDate = #12/7/2007#

But when I try to refer it to a form that is still in memory (I have not unloaded the form) it gives me a syntax error. Now I am using MS Access Syntax so maybe that is the problem, but in this instance I figured it would be the same and I am unable to find the proper syntax.

SELECT * FROM tblLog WHERE EventDate = #forms!EditEntryByDate!calLog#

Bummer, let's try to muscle through it then togheter, how's that for a deal?

Are you saying you did not find the post mentioned?

If you click on my handle and go through, has to be further in the pages, I'll race ya:-)

I am having look by the way because I must fire my notebook to get a real look...

Also there are bits of information you can use from others that have posted.
I'll attempt to type it up an try it.

In a bit!

[Dököll]

Beat ya:-)

Alright, this is one of two links, my apologies I thought I had it all in one post...

I must fetch another old post:-)

http://www.thescripts.com/forum/thre...65-adodc1.html


Got it. I decided to just strip it for spare parts, it is a rather large post...

Private Sub cmdAdd_Click()  
 
        Dim my_database As Database 
 
        Set my_database = OpenDatabase("C:\Yoda1.mdb")
 
        my_database.Execute "insert into Yoda1.Yoda(UserID, Name, Address, Phone, Email) Values('" & Text1.Text & "','" & Text2.Text & "' , '" & Text3.Text & "' , '" & Text4.Text & "','" & Text5.Text & "')"
        my_database.Close ' 
 
Text1.Text="" 
Text2.Text="" 
Text3.Text="" 
Text4.Text="" 
Text5.Text="" 
 
End Sub
 

You'll need to reference DAO 3.6, I think.

So if you have a date field in your access database, you should be able to load into VB using this code.

Try it, and good luck:-)

[Dököll]

Beat ya:-)

Alright, this is one of two links, my apologies I thought I had it all in one post...

I must fetch another old post:-)

http://www.thescripts.com/forum/thre...65-adodc1.html


Got it. I decided to just strip it for spare parts, it is a rather large post...

Private Sub cmdAdd_Click()  
 
        Dim my_database As Database 
 
        Set my_database = OpenDatabase("C:\Yoda1.mdb")
 
        my_database.Execute "insert into Yoda1.Yoda(UserID, Name, Address, Phone, Email) Values('" & Text1.Text & "','" & Text2.Text & "' , '" & Text3.Text & "' , '" & Text4.Text & "','" & Text5.Text & "')"
        my_database.Close ' 
 
Text1.Text="" 
Text2.Text="" 
Text3.Text="" 
Text4.Text="" 
Text5.Text="" 
 
End Sub
 

You'll need to reference DAO 3.6, I think.

So if you have a date field in your access database, you should be able to load into VB using this code.

Try it, and good luck:-)

Sorry wrong code, you need SELECT FROM, I have been doing this lately, fogetting stuff:-)

 
'this is searching for existing data in your access
 
Private Sub Seek_Click() 'this is your button
Dim my_database As Database           'dimension database as database 
Dim my_record As Recordset              'dimension recordset as recordset
 
Set my_database = OpenDatabase("C:\DataMining\Yoda.mdb")  
 
'You can change above path/folder name to location of your own access 
'database
 
'Going forward, above function will open your database 
'Make sure your databse is closed
 
Set my_record = my_database.OpenRecordset("select * from Yodamania where UserID like '" & Text1.Text & "'")    ' this is used to search by user id
 
   Do While Not my_record.EOF  
 
'this function will keep searching for fields matching each textbox
 
        Text1.Text = my_record.Fields("UserID")
        Text2.Text = my_record.Fields("Name")
        Text3.Text = my_record.Fields("Address")
        Text4.Text = my_record.Fields("Phone")
        Text5.Text = my_record.Fields("Email")
 
 my_record.MoveNext 
   Loop
   my_database.Close
End Sub
 
 

Remember to use DAO, you will get an error without a reference; I am sure you know that, just saying it before I forget:-)

Also, rest assure your adodc1 control will work just fine with DAO...

In a bit!