|
By the way, the code you posted contains some flaws that will cause part of the code to never execute:
Private Sub TMPTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TMPTimer.Tick
If oldTemp < newTemp Then
oldTemp += 1
DirectCast((Me.BaseUI1.Frame(0)), CircularFrame).ScaleCollection(0).Pointer(0).Value = oldTemp
'The following code will never be executed
'because you already established that oldTemp is smaller than newTemp:
If oldTemp = newTemp Then
oldTemp = newTemp
DirectCast(Me.BaseUI1.Frame(0).FrameCollection(0), NumericalFrame).Indicator.DisplayValue = oldTemp.ToString() & "°"
TMPTimer.Enabled = False
End If
End If
If oldTemp > newTemp Then
oldTemp -= 1
DirectCast((Me.BaseUI1.Frame(0)), CircularFrame).ScaleCollection(0).Pointer(0).Value = oldTemp
'The following code will never be executed
'because you already established that oldTemp is larger than newTemp:
If oldTemp = newTemp Then
oldTemp = newTemp
DirectCast(Me.BaseUI1.Frame(0).FrameCollection(0), NumericalFrame).Indicator.DisplayValue = oldTemp.ToString() & "°"
TMPTimer.Enabled = False
End If
End If
End Sub
Move the bit that is the same in both:
Private Sub TMPTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TMPTimer.Tick
'Is it smaller?
If oldTemp < newTemp Then
oldTemp += 1
DirectCast((Me.BaseUI1.Frame(0)), CircularFrame).ScaleCollection(0).Pointer(0).Value = oldTemp
End If
'Is it larger?
If oldTemp > newTemp Then
oldTemp -= 1
DirectCast((Me.BaseUI1.Frame(0)), CircularFrame).ScaleCollection(0).Pointer(0).Value = oldTemp
End If
'Is it the same?
If oldTemp = newTemp Then
oldTemp = newTemp
DirectCast(Me.BaseUI1.Frame(0).FrameCollection(0), NumericalFrame).Indicator.DisplayValue = oldTemp.ToString() & "°"
TMPTimer.Enabled = False
End If
End Sub
My advice is free, and you may get what you paid for.
|
|
|
|
|
When my program first boots up, oldTemp = 0, newTemp = 84, newTemp is the current temperature
in my home town. The guage starts moving from 0 to 84. Now oldtemp = newTemp and the DirectCast statement gets executed. Now I change my zipcode to somewhere in Alaska, newTemp = 54, seeing oldTemp = 84, the guage starts moving backwards till it gets to 54 and and the DirectCast statement gets executed.
My code works just as it is suppose to. So far I have not had any exceptions popup on me and I have checked it with multiple zipcodes. The temperature, wind direction and wind speed guages all move
to thier correct temp, wind direction, and wind speed integers that are retrieved from yahoo.
rspercy
If "You wash your feet and find a pair of socks " Then
"You ARE a Redneck"
End If
|
|
|
|
|
You know what, I read your code wrong. Sorry about that. You are right, your code will work nicely.
My advice is free, and you may get what you paid for.
|
|
|
|
|
Dear friends
I need help, I'm developing a VB.net -SQL server 2000 application VB.net 2008 but i cannot connect Excel by the code:
Dim xlapp As Microsoft.Office.Tools.
or
Dim xlapp As Microsoft.Office.Interop.
'ExcelApplication doesn' appear by autocomplete
knowing that i added the Microsoft excel object library 11 and downloaded the PIA application
I have:
Microsoft Visual Studio Team System 2008
.Net Framework 3.5
Is my application incomplete
if i should use OLE DB please guide me how to Import and Export to an existant excel file
ezzat oraby
|
|
|
|
|
|
Hi Experts,
I want the code to fetch the last record of customer . I had written the code but it gives error when there is no record found in the table for the requested customer . Please help.
Thanking you,
My Code is ....
rss.Open("select max(orderno) As ono from measurementpant where custno='" & txtcustno.Text & "' AND length<>0 ")
no = Convert.ToInt32(rss.Fields("ono").Value) // here gives error
rss.Close()
rssearch.Open("select * from measurementpant where custno='" & txtcustno.Text & "' AND orderno='" & no & "' ", con, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic)
|
|
|
|
|
Two possible options are:
1. check that the record count is greater than 0.
2. use Integer.TryParse() to do the conversion.
1 will tell you that there are no records for customer.
2 will tell you that it could not convert to integer - there may be a record but the field does not contain something that can be converted.
Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis
|
|
|
|
|
hi friend try this code:
Public Function GetMaxVal(ByVal TableN As String, ByVal FieldN As String)
If ConSql.State = ConnectionState.Closed Then ConSql.Open()
Dim CmdSqlGetMax As New SqlCommand("Select Max(" & FieldN &") _
As MaxVal From " & TableN, ConSql)
If Not DBNull.Value.Equals(CmdSqlGetMax.ExecuteScalar) Then
GetMaxVal = CmdSqlGetMax.ExecuteScalar
Else
GetMaxVal = 0
End If
End Function
I used the If statement to escape from the DBNull Hell, If cannot do you may use try .. Catch .. End Try to do
Good Luck
ezzat oraby
|
|
|
|
|
Hi,
Thanks but i want the code for Ms-access database
|
|
|
|
|
Third option, add an ISNULL function to your query;
SELECT ISNULL(MAX(orderno), 0) AS ono
FROM measurementpant
|
|
|
|
|
Sorry bro
SELECT ISNULL(MAX(orderno), 0) AS ono
FROM measurementpant
I suggest it may be
<pre>SELECT NOT ISNULL(MAX(orderno), 0) AS ono </pre>
<pre> FROM measurementpant</pre>
Tell me if wrong
ezzat oraby
|
|
|
|
|
I just ran them on SQL Server, with these results;
SELECT ISNULL(MAX(orderno), 0) AS ono
FROM measurementpant
-- Result for an empty table: '0'
SELECT ISNULL(MAX(orderno), 0) AS ono
FROM measurementpant
-- Result for a table with two tuples: '2'
SELECT NOT ISNULL(MAX(orderno), 0) AS ono
FROM measurementpant
-- Result: Incorrect syntax near the keyword 'NOT'.
Zizo_nis wrote: Tell me if wrong
Your SQL did not compute.
"Some mainframe users still wonder if SQL Server is reliable enough for them. We're a nuclear power plant—how much more reliable do they need it to be?"
-- Janice Hoerber[ ^]
|
|
|
|
|
Hi,
Thanks, But it gives syntax error
|
|
|
|
|
AjitMourya wrote: But it gives syntax error
My apologies, didn't try it on MSAccess. Here is the Access version;
SELECT IIf(IsNull(Max([orderno])), 0, Max([orderno])) AS ono
FROM measurementpant;
|
|
|
|
|
Hi ,
Thanks for sending the code but it gives an error
[Microsoft][ODBC Microsoft Access Driver] Wrong number of arguments used with function in query expression 'isnull (max(orderno),0)'.
|
|
|
|
|
The problem is that if your query does not return any results, there will be no rows, and therefore no value can be assigned to your integer.
Using ISNULL, will not necessarily work either. It also can return zero rows.
So you can either count the rows after AjitMourya wrote: rss.Open("select max(orderno) As ono from measurementpant where custno='" & txtcustno.Text & "' AND length<>0 ")
and before
AjitMourya wrote: no = Convert.ToInt32(rss.Fields("ono").Value)
or you can force a result in your query, and then take that into account when you assign the value to your integer:
rss.Open("select (1 + ISNULL(max(orderno),0)) As ono from measurementpant where custno='" & txtcustno.Text & "' AND length<>0 ")
no = (Convert.ToInt32(rss.Fields("ono").Value) - 1)
My advice is free, and you may get what you paid for.
|
|
|
|
|
HI
I am new to coding and I was in need of a little help.
I have a contacts form and there is a textbox "tbNewContact.Text" and two buttons. When one buttone is pressed I was wanting the following to happen. An sql connection has been opened at form_load.
When the user enters a contacts name it does a check on the database table. If it returns any rows then it displays a message.
If not rows returned then it will submitted the contact to the SQL database.
But it does not work. I get the message "Contacted Added" but nothing has been.
If the code is cra then sorry like i said Im new to this. 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddContact.Click
'Check Contacts
Dim SQLSearch As SqlCommand = sqlconn.CreateCommand
Dim sqlinsert As SqlCommand = sqlconn.CreateCommand
SQLSearch.CommandText = "SELECT * FROM Contacts WHERE ContactName = '%" & tbNewContact.Text & "%';"
Dim SQLDR As SqlDataReader = SQLSearch.ExecuteReader
If SQLDR.HasRows Then
MsgBox("That contact name already exists." & tbNewContact.Text & _
"If you wish to add this contact, please cancel and choose 'Add Existing Contact'", MsgBoxStyle.Information)
SQLDR.Close()
Else
sqlinsert.CommandText = "insert into contacts (contactName) values '%" & tbNewContact.Text & "%';"
MsgBox("Contact Added")
Exit Sub
End If
SQLDR.Close()
End Sub
Thansk In advance
|
|
|
|
|
The error is here:
sqlinsert.CommandText = "insert into contacts (contactName) values '%" & tbNewContact.Text & "%';"
You should change it to:
sqlinsert.CommandText = "insert into contacts (contactName) values ('" & tbNewContact.Text & "');"
Also note that opening the connection at form startup and keeping it open is not a good idea. It may time out or suffer from other connection problems.
You should open a connection each time you need to access the db, and then close it.
Do not worry about opening too many connections, since you will not: pooling and re-using of existing connections is done at driver level.
2+2=5 for very large amounts of 2
(always loved that one hehe!)
|
|
|
|
|
Hi
Thanks for your responce but that does not seem to work either? 
|
|
|
|
|
As a try, you may check
dim My_Value as string=trim(tbNewContact.text.tostring)
And
sqlinsert.CommandText = "insert into contacts (contactName) values '%" & My_Value & "%'
|
|
|
|
|
After the user has checked a box and the program has done it's thing, I want to uncheck that box.
I thought this would work, but nothing happens.
CheckBox1.CheckState.Equals(False)
Visual Studio 8
Version 9
Thanks.
modified on Saturday, August 15, 2009 1:07 PM
|
|
|
|
|
Seriously, pickup a beginners book on VB.NET and work through it. The Equals method checks to see if the object that you called Equals on is equivilent to the object in the parenthesis. Essentially, you asked in the value of CheckState is equal to False. It returns a True/Value value (which you completely ignored.) It does NOT set the value of CheckState to False. To do that, you write this:
CheckBox1.CheckState = False
|
|
|
|
|
Thanks for the quick reply.
I have read, and worked though a few books.
I still don't comprehend some things.
I thought this was an easy task, but I kept going down the wrong path.
I have Step by step 2003, by JulianTempleman
Programers Refrence by Dan Rahmel
Step by step 2008 by Michael Halvorson
Thanks again.
|
|
|
|
|
Hi
I have set combo's Setfocus property on an button click.But when i click another exit button ,I have to click 2 times to exit the application .i wanna exit on just single So kindly help me anyone please????????
[Look the code is in VB6]
Thanks in advance
|
|
|
|
|
mdrizwan_1 wrote: So kindly help me anyone please
Not without seeing some code. It could be anything and I'm no mid reader, nor is anyone else to the best of my knowledge. 
Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
