Visual Basic&database, Date Criteria In VB Recordsource? HOW!

Date Criteria In VB Recordsource? HOW!

Author	Message
Lurk #1 / 3	Date Criteria In VB Recordsource? HOW! This is quite a simple one, which I am sure you can all solve. Basically, I have written a VB application that accesses MS ACCESS 2.0, dBASE III/IV and Paradox files. This is fine and well, and I can search any file using any criteria except dates, even if the field is a date field. I am using something like data1.recordsource = "select * from transactions where inv_date > 31/12/95" I get no errors or anything, it just doesnt't find any records, or it finds all of them. I have tried putting the date in single quotes, dd/mm/yy, yy/mm/dd, mm/dd/yy format, but nothing seems to work. I must be failing somewhere in a very simple way. PLEASE HELP ME!!! Unending thanks in advance,
Sat, 04 Apr 1998 03:00:00 GMT

Kevin Hog #2 / 3	Date Criteria In VB Recordsource? HOW! Quote: >This is quite a simple one, which I am sure you can all solve. >Basically, I have written a VB application that accesses MS ACCESS >2.0, dBASE III/IV and Paradox files. This is fine and well, and I can >search any file using any criteria except dates, even if the field is >a date field. I am using something like >data1.recordsource = "select * from transactions where inv_date > >31/12/95" >I get no errors or anything, it just doesnt't find any records, or it >finds all of them. I have tried putting the date in single quotes, >dd/mm/yy, yy/mm/dd, mm/dd/yy format, but nothing seems to work. I must >be failing somewhere in a very simple way. PLEASE HELP ME!!! Try placing # on either end of the date
Sun, 05 Apr 1998 03:00:00 GMT

Giuseppe Girardel #3 / 3	Date Criteria In VB Recordsource? HOW! Quote: >data1.recordsource = "select * from transactions where inv_date > >31/12/95" >I get no errors or anything, it just doesnt't find any records, or it >finds all of them. I have tried putting the date in single quotes, >dd/mm/yy, yy/mm/dd, mm/dd/yy format, but nothing seems to work. I must >be failing somewhere in a very simple way. PLEASE HELP ME!!! Dates must be enclosed between "#" characters. I hope that the following code will help you. Sub CmdSeleziona_Click () Dim SQLText, Date1, Date2 As String 'If date is in the dd-mm-yy, ' I get an error when FrmPatenti.DtAnag.Refresh, 'so I have to change it. Date1 = Format$(MkeDal.Text, "mm-dd-yy") Date2 = Format$(MkeAl.Text, "mm-dd-yy") 'MkeDal and MkeAl are contents of MaskEdit controls SQLText = "SELECT * FROM PATENTI WHERE (DAT_SCAD BETWEEN #" SQLText = SQLText & Date1 SQLText = SQLText & "# AND #" SQLText = SQLText & Date2 SQLText = SQLText & "#) ORDER BY COGN, NOM " ' FrmPatenti is another form, DtAnag is a data control FrmPatenti.DtAnag.RecordSource = SQLText 'Activate, VERY IMPORTANT or you will never see any change FrmPatenti.DtAnag.Refresh Unload Me End Sub Giuseppe Girardelli
Fri, 10 Apr 1998 03:00:00 GMT

Page 1 of 1

[ 3 post ]