Visual Basic

2 month between now and date

20-Aug-06 18:58

It is difficult to help you without more info. Where is the error being thrown? How is the FontColor setting defined? (Application settings cannot be altered and persisted at runtime, so you need to make sure it is defined as a User setting).

Re: Application Settings

Andrew Sturm21-Aug-06 14:52

Andrew Sturm

21-Aug-06 14:52

Well, I thought I was explaining it the best I could, but I guess I could do better. Well, my startup form Index is the one that needs to be able to load the settings for cdgFont(the Color Dialog control), and The code I tried to use is here:

Private Sub Index_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Prefs.cdgFont.Color = My.Settings.FontColor
Prefs.cdgBackground.Color = My.Settings.Background
Prefs.UpdateCheckState()
End Sub

And that code is not loading it up like it should. Here is the code for my button(in the Prefs form) that is supposed to save the application settings. By the way, all my strings are set to User.

Private Sub btnFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFont.Click
'Declare the variables
cdgFont.Color = My.Settings.FontColor

'Show the Color Dialog
If cdgFont.ShowDialog = Windows.Forms.DialogResult.OK Then
'Set the FontColor property of the form
Index.txtFile.ForeColor = cdgFont.Color
My.Settings.FontColor = cdgFont.Color
End If

End Sub

My problem is that the program is NOT saving the information, so when I load up the Index form, the settings that should have been saved, are not, or maybe they are, and they do not load up, please help.

I'm new...

campbells20-Aug-06 16:03

20-Aug-06 16:03

i try to have an SQL to show the data that is between today date and the specific date which is 2 months b4 the specific date. but i just cant get it write

sql = "select * from SoftContract where BETWEEN [ContractEnd]AND NOW "

i try many way like where [ContractEnd]-NOW =60 , contractend >=now AND now <60 but not really got the result i want

anyone can help?

Keith Malwitz20-Aug-06 16:17

Re: 2 month between now and date [modified]

20-Aug-06 16:17

If you are looking to return all records between [ContractEnd] and two months before, the WHERE clause should be something like:

WHERE [ContractEnd] BETWEEN DATEADD(MONTH, -2, [ContractEnd]) AND [ContractEnd]

Hope this helps.

campbells20-Aug-06 17:41

20-Aug-06 17:41

there is error when i use that,

Run-time error
no value given for one or more required parameters

highlight---> Adodc1.Refresh
i wonder y dateadd?

Actually i want to show it in datagrid so there will be many data show if the value is there.
-- modified at 23:43 Sunday 20th August, 2006

Keith Malwitz20-Aug-06 18:32

20-Aug-06 18:32

What type of database are you executing this query against? Also, it would be helpful if you could better explain exactly what data you are trying to return and post the entire query you are currently executing.

campbells20-Aug-06 19:48

20-Aug-06 19:48

i use microsoft access as the database .mdb

I have create a button to run that function to show the result in a data grid in VB

Here the coding::

Private Sub Image3_Click()
MsgBox ("Following are customer contract that going to expire in the next 2 months.")
sql = "select * from SoftContract WHERE [ContractEnd] BETWEEN DATEADD(MONTH, -2, [ContractEnd]) AND [ContractEnd]"

Adodc1.RecordSource = sql
Adodc1.Refresh
DataGrid1.Visible = True
Adodc1.Visible = True
showtotal
End Sub

Guffa20-Aug-06 21:47

Guffa

20-Aug-06 21:47

The syntax is different in Access. Use "m" instead of MONTH.

---
b { font-weight: normal; }

campbells20-Aug-06 22:15

20-Aug-06 22:15

i try it but thinks not that error cause if syntax error it will show the msg

Re: 2 month between now and date [modified]

Guffa20-Aug-06 23:14

Guffa

20-Aug-06 23:14

No, there will not be a syntax error, as the syntax is valid.

It will think that MONTH is a parameter that you want to pass to the query, and as you don't pass any parameters to the query, the error message will be that it is missing parameters.

---
b { font-weight: normal; }

Keith Malwitz21-Aug-06 2:07

21-Aug-06 2:07

Ok, since you want to return the data where [ContractEnd] is between today's date and two months from today's date, the where clause would be:

WHERE [ContractEnd] BETWEEN NOW AND DATEADD("m", 2, NOW)

I am relying on guffa's post for the Access syntax here, as I haven't used Access in many years. This should return all the records from your table where the [ContractEnd] falls between today's date and two months from today's date.

Hope this helps.

-- modified at 8:08 Monday 21st August, 2006

campbells21-Aug-06 15:13

21-Aug-06 15:13

yes i got it work.
is with the single quote '
thanks

WHERE [ContractEnd] BETWEEN NOW AND DATEADD('m', 2, NOW)

i was trying to enchance it to let user to search their own specific month but it not really working when i place a varible with it. Is it not allow to put variable inside? Example:
----
Public userin

userin = InputBox("Search data (Month)", "How many month do you want to check before the expire date?")

WHERE [ContractEnd] BETWEEN NOW AND DATEADD('m', userin, NOW)

Keith Malwitz21-Aug-06 15:19

21-Aug-06 15:19

Are you receiving an error, or is it just giving unexpected data?

campbells21-Aug-06 15:58

Re: 2 month between now and date [modified]

21-Aug-06 15:58

recieve error

Run-time error
no value given for one or more required parameters

Keith Malwitz21-Aug-06 16:25

21-Aug-06 16:25

Ok, you will need to create the SQL Query string to incorporate the user's input. The way you are trying to do it is causing the Database to treat userin as a parameter.

Dim myQuery as String
myQuery = "SELECT yourFields FROM yourTables WHERE [ContractEnd] BETWEEN NOW AND DATEADD('m'," & userin & ",NOW)"

This simply concatenates the string to include the user input. Of course, it is likely better to create a parameter for the user's input in the query, then pass the user's input to it. I am not sure how you would do this in Access, as I have not used it in many years.

-- modified at 23:07 Monday 21st August, 2006

campbells21-Aug-06 16:30