|
yes, a Control-in-Control technique is the easy way out. PictureBox-in-Panel is fine.
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read code that is properly formatted, adding PRE tags is the easiest way to obtain that. [The QA section does it automatically now, I hope we soon get it on regular forums as well]
|
|
|
|
|
I am working on an application in which month and year is selected through combobox.
On selection on both, a checklistbox is filled with data for the selected month and year.
When I select the month and then year in application that is connecting to remote server, the system hangs. But the same when I do on a machine that connects to another remote server works fine.
What could be the possible reason for this?
I call a sub procedure on the selectedindexchange event of the combobox
Code in the sub proc is as below:
Private Sub FillClients()
Dim sqlComIns As SqlCommand
Dim iRec As Integer
Dim sSQL_Temp As String
If CboMonth.Text = "" Or cboYear.Text = "" Then Exit Sub
Call DisposeAllObjects()
sSQL_Temp = "DELETE FROM GlobCustNonZeros_Cust"
sSQL = "INSERT INTO GlobCustNonZeros_Cust(Global_Cust)SELECT DISTINCT GLOBALCUST FROM tbMain WHERE FeesAmt<>0" & _
" AND UpMonth='" & CboMonth.Text & "' and UpYear='" & cboYear.Text & "' AND GlobalCust NOT IN (SELECT Global_Cust from GlobCustZeros_Cust)"
LstClient.Items.Clear()
Try
objDB = New ClsConnection
sqlcon = New SqlConnection(objDB.conStr)
sqlcon.Open()
sqlComIns = New SqlCommand(sSQL_Temp, sqlcon)
sqlComIns.CommandTimeout = CMDTimeOutFirst
sqlComIns.CommandTimeout = CMDTimeOutSec
iRec = sqlComIns.ExecuteNonQuery
sqlComIns = Nothing
sqlComIns = New SqlCommand(sSQL, sqlcon)
sqlComIns.CommandTimeout = CMDTimeOutFirst
sqlComIns.CommandTimeout = CMDTimeOutSec
iRec = sqlComIns.ExecuteNonQuery
sSQL = "SELECT Global_Cust FROM GlobCustNonZeros_Cust ORDER BY Global_Cust"
sqlComm = New SqlCommand(sSQL, sqlcon)
sqlComm.CommandTimeout = CMDTimeOutFirst
sqlComm.CommandTimeout = CMDTimeOutSec
sqlRead = sqlComm.ExecuteReader
Do While sqlRead.Read
LstClient.Items.Add(sqlRead("GLOBAL_CUST"))
Loop
sqlRead.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Any help will be highly appreciated as its very urgent.
thanks in advance
Regards
Imran
|
|
|
|
|
GSS_imran wrote: Do While sqlRead.Read
LstClient.Items.Add(sqlRead("GLOBAL_CUST"))
Loop
Put a break point here to see if your code is getting into an infinite loop.
Me, I'm dishonest. And a dishonest man you can always trust to be dishonest.
Honestly. It's the honest ones you want to watch out for...
|
|
|
|
|
|
Have you tried stepping through the processes using the remote server that seems to hang? You need to identify which process is either getting stuck or whether you do go into an infinite loop somewhere. The
Do While sqlRead.Read
loop shouldn't go into an infinite loop.
Another thing that I would do is to create more Try/Catch segments. It would be more informational for you if you had separate messages for separate processes. Like:
objDB = New ClsConnection
sqlcon = New SqlConnection(objDB.conStr)
Try
sqlcon.Open()
Catch ex as Exception
MessageBox.Show("Open ConnectionString" & vbNewLine & ex.Message)
End Try
sqlComIns = New SqlCommand(sSQL_Temp, sqlcon)
sqlComIns.CommandTimeout = CMDTimeOutFirst
sqlComIns.CommandTimeout = CMDTimeOutSec
Try
iRec = sqlComIns.ExecuteNonQuery
Catch ex as Exception
MessageBox.Show("Execute " & sSQL_Temp & vbNewLine & ex.Message)
End Try
sqlComIns = Nothing
sqlComIns = New SqlCommand(sSQL, sqlcon)
sqlComIns.CommandTimeout = CMDTimeOutFirst
sqlComIns.CommandTimeout = CMDTimeOutSec
Try
iRec = sqlComIns.ExecuteNonQuery
Catch ex as Exception
MessageBox.Show("Execute " & sSQL & vbNewLine & ex.Message)
End Try
sSQL = "SELECT Global_Cust FROM GlobCustNonZeros_Cust ORDER BY Global_Cust"
sqlComm = New SqlCommand(sSQL, sqlcon)
sqlComm.CommandTimeout = CMDTimeOutFirst
sqlComm.CommandTimeout = CMDTimeOutSec
Try
sqlRead = sqlComm.ExecuteReader
Catch ex as Exception
MessageBox.Show("Execute " & sSQL & vbNewLine & ex.Message)
End Try
Do While sqlRead.Read
LstClient.Items.Add(sqlRead("GLOBAL_CUST"))
Loop
Try
sqlRead.Close()
Catch ex As Exception
MsgBox("Close ConnectionString" & vbNewLine & ex.Message)
End Try
A lot of your code within your Try/Catch doesn't need to be there. You're not getting the information you could be getting if you had an error.
|
|
|
|
|
My original code looked like this:
If strNumber <> vbNull And strProvider <> vbNull And strEmail <> vbNull Then
But that would throw an error @ strProvider saying that i was trying to convert a string to a double.
So I changed it to:
If strNumber <> vbNull & strProvider <> vbNull & strEmail <> vbNull Then
(replaced "And" with '&')
Now it throws an error @ strEmail saying that im trying to convert string strEmail to a Boolean.
Can someone please tell me what Im doing wrong?
|
|
|
|
|
What if You replace the vbNull with Nothing?
|
|
|
|
|
if you want to test if the string is empty use if strNumber.Equals(string.empty), if you want to test the object is an actual object use if strNumber isNot Nothing
So to test the list you have above;
If (strNumber isnot nothing) and (strProvider isNot Nothing) and (strEmail isNot nothing) then
or if you are testing for empty string i.e "" then
if strnumber.equals(string.empty) and strProvider.equals(string.empty) and strEmail.equals(string.empty) then
|
|
|
|
|
If it's VB.NET you can also combine them in one:
String.IsNullOrEmpty(strNumber)
Possibly not relevant to the original question, but useful to know.
|
|
|
|
|
The problem here is that vbNull is not the same as Null. vbNull is an integer value. It is the code value which represents a variant type of null. So,
VarType(Null) = vbNull
If this is VB6 you check for a null variant value with:
IsNull(aValue)
If it is VB.NET, as mentioned elsewhere you should use
strNumber IsNot Nothing
or, if you are still using an older version of .NET you will have to turn it round and say
Not (strNumber Is Nothing)
since the IsNot keyword was introduced in .NET 2 (I think).
Also, the & operator does something completely different to the And keyword. You can't simply replace one with the other.
|
|
|
|
|
Sudden thought: if it's VB6 you may also need to read up on the difference between IsNull and IsEmpty.
|
|
|
|
|
I thought the new ruling on the VB board was assume .Net unless the OP tells you differently, that way [vb6 users] will be bomarded with all the .net goodness, and have to admit they are using VB6 and realise its maybe time to move on.
|
|
|
|
|
that would be good, if only it got displayed on top of this forum so all can see it.
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read code that is properly formatted, adding PRE tags is the easiest way to obtain that. [The QA section does it automatically now, I hope we soon get it on regular forums as well]
|
|
|
|
|
Luc Pattyn wrote: that would be good, if only it got displayed on top of this forum so all can see it.
I mentioned it previously that it was maybe time to splinter of the formum for VB6, and let it die gracefully in the background, and rename this one VB.Net
VB6 is the new Fight Club
First rule of VB6 - You don't talk about VB6!
|
|
|
|
|
the problem with splitting this forum (or any other) is it would leave a lot of old messages in the wrong half.
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read code that is properly formatted, adding PRE tags is the easiest way to obtain that. [The QA section does it automatically now, I hope we soon get it on regular forums as well]
|
|
|
|
|
Granted, but the benefits of a split outweigh the inconvenience of having old messages either here or in the newly split VB6 forum. Since, I can only assume it is safe to say that the majority of old messages or threads revolve around .net, and a solid percentage of the posts of VB6 are a standard 'upgrade to .net, ms no longer supports vb6, or you can't do that in vb6' posts then it would be wiser to leave the content within the vb.net forum as it is more likely to be beneficial to other members here.
Splitting them isn't that bad an idea.
|
|
|
|
|
Thanks alot for the input! It works now 
|
|
|
|
|
Well, it works.
But before you use the next time the "&" operator, you should know that he is the string concatenation operator (yes, also in VBx age ...)
|
|
|
|
|
If the designer creates a progressbar it does this
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
and a bit further down
'ProgressBar1
'
Me.ProgressBar1.Location = New System.Drawing.Point(630, 181)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(453, 23)
Me.ProgressBar1.Step = 1
Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
Me.ProgressBar1.TabIndex = 54
If I want to increment the progressbar at runtime I just do this
Progressbar1.Value = Progressbar1.Value + 1
Is the word Progressbar1 that is used to access the .value assigned by the .name or is it from the Me.ProgressBar1 = New System.Windows.Forms.ProgressBar assignment?
I have created some controls that include progress bars that are created at runtime by going through a dataset. Each record has a name field and I create a progress bar for every record using the record name as the progressbars.name property
This is some of my code:
Dim progName(RobotRecordsCount) As ProgressBar
Dim myLoop as integer
For myLoop = 0 To (RobotRecordsCount - 1)
currentName = (Mafia_Wars_ManagerDataSet.Robots(myLoop).Name)
'Create a progressbar
progName(myLoop) = New ProgressBar()
progName(myLoop).Location = New Drawing.Point(ProgBarPosVer, lblposHoz) 'lblposVer, ProgBarPosHoz)
progName(myLoop).Name = "Prog" + currentName
progName(myLoop).Width = 300
progName(myLoop).Height = 20
progName(myLoop).Minimum = 0
progName(myLoop).Maximum = 30
TabControl1.TabPages(0).Controls.Add(progName(myLoop))
How do I then do the equiv of
progName???.Value = progName???.Value + 1
1. I am confused how to update it after it has been created
2. As it is created at runtime how will intellisense know it exists without complaining (is this called late binding)?
I know that this is probably a fundamentals question so i'm sorry if it bugs you trying to run before i can walk. I am obviously lacking in foundation so I have ordered some books to rectify this.
Again thankyou for your previous response. I have been working and learning for 3 weeks without reulting to asking questions but I seem to have hit a wall.
|
|
|
|
|
the normal way to refer an object is by a reference, which you keep in a variable.
dim P as ProgressBar = new ProgressBar()
is what makes
P.Value = 42
possible. But "P" is NOT the name of the progress bar. It is the name of the variable that you can use to refer to the progress bar. And there is no Name property involved.
dim P as ProgressBar = new ProgressBar()
dim Q as ProgressBar = P
P.Value = 42
Q.Value = 13
uses two variables to refer to one and only one progress bar, which ends with a value of 13.
As such, the progressbar *has* no name, the variable(s) referring to it have a name.
On top of that, Controls have a Name property, which is not directly useful, however it is where Visual Designer stores the name of the variable it creates to hold the reference to that Control, so it can later on generate more code for that Control.
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read code that is properly formatted, adding PRE tags is the easiest way to obtain that. [The QA section does it automatically now, I hope we soon get it on regular forums as well]
|
|
|
|
|
I assume that what you want is to refer to the ProgressBar by the name field.
There are a couple of ways that you can do that. One way that I see is to use a Hashtable. Declare it globally like
Public myProgressBars as Hashtable
Then, when you set up each ProgressBar add a line of code to add that ProgressBar to the Hashtable like
myProgressbars.Add(currentName, New ProgressBar())
Instead of what you have, it could look like
Dim myProgressBars As Hashtable
Dim myLoop as integer
For myLoop = 0 To (RobotRecordsCount - 1)
currentName = (Mafia_Wars_ManagerDataSet.Robots(myLoop).Name)
myProgressBars.Add(currentName,New ProgressBar())
With CType(myProgressBars(currentName), ProgressBar)
.Location = New Drawing.Point(ProgBarPosVer, lblposHoz)
.Name = "Prog" + currentName
.Width = 300
.Height = 20
.Minimum = 0
.Maximum = 30
End With
TabControl1.TabPages(0).Controls.Add(CType(myProgressBars(currentName),ProgressBar))
Then, whenever you want to update that ProgressBar you just call
CType(myProgressbars(progName),ProgressBar).Value = x
|
|
|
|
|
You could use a generic Dictionary rather than a Hashtable because a Dictionary can be typed, which avoids the need for the ugly CType when you read it back again:
Dim myProgressBars as New Dictionary(Of String, ProgressBar)
...
With myProgressBars(aName)
...
myProgressBars(aName).value = x
|
|
|
|
|
Hi,
I'm using a simple method to validate XML against an XSD. Here's how it looks:
Private Sub ValidateXML(ByVal xml As String)
Dim settings As New XmlReaderSettings()
settings.ValidationType = ValidationType.Schema
settings.Schemas.Add("", "c:\apps\srg\uhc\interfaces\web\services\xsd\DirectCallToASE.xsd")
AddHandler settings.ValidationEventHandler, AddressOf OnValidationError
Dim reader As XmlReader = XmlReader.Create(xml)
Try
While reader.Read()
End While
Catch ex As Exception
End Try
reader.Close()
End Sub
I get a run time error here:
settings.Schemas.Add("", "c:\apps\srg\uhc\interfaces\web\services\xsd\DirectCallToASE.xsd")
System.Web.Services.Protocols.SoapException: Server was unable to process request. ---> System.ArgumentException: Illegal characters in path.
I tried just "DirectCallToASE.xsd" and that returned File Not Found. I also tried Server.MapPath("xsd/DirectCallToASE.xsd") and that also returned Illegal characters in path.
It's a valid path.... I'm not sure what it doesn't like. Any ideas?
Thanks!
|
|
|
|
|
Oops! I just looked at my stack trace a little more closely, and I see that the actual error is here:
Dim reader As XmlReader = XmlReader.Create(xml)
On XmlReader.Create, Overload 4 will accept the parameter as System.IO.Stream. I take it a string of XML won't work? How would I convert a string to a stream, and them use it create the XML reader.
Or better yet, this is what I am really trying to do: Validate an object against an XSD. There never is an XML file, just an memory resident object. Is there a better way to approach this?
Thanks!
|
|
|
|
|
Hi there.
Sorry if this is long winded. I am relatively new to programming and have managed so far with google and a lot of patience! I am having a problem naming timer contols at runtime. This is what I am trying to achieve.
1. I connect to my dataset and to my first record
2. I create a loop for the recordset
3. I create various objects on a form and name them using the info in the dataset
I also need to create timers and name them using the first field of my dataset. It needs to be dynamic as its database driven. There could be as many as 100 timers at any one point.
I can use the Button.name = "myname" fine for most controls
but doing a Timer.name does not work
This is some of my code (some variable values not shown):
'Counter to move through the database Dataset
Dim RecordsCount As Integer
RecordsCount = ManagerDataSet.Robots.Count
'Declare name incremented with record number to make it unique
Dim btnSSName(RecordsCount) As Button
For myLoop = 0 To (RecordsCount - 1)
'Create a button
btnSSName(myLoop) = New Button()
btnSSName(myLoop).Location = New Drawing.Point(btnSSPosVer, lblposHoz) 'lblposVer, ProgBarPosHoz)
btnSSName(myLoop).Name = "btnSS" + currentRobot
btnSSName(myLoop).Text = currentRobot
btnSSName(myLoop).Width = 70
btnSSName(myLoop).Height = 23
btnSSName(myLoop).BackColor = Color.Red
btnSSName(myLoop).ForeColor = Color.White
TabControl1.TabPages(0).Controls.Add(btnSSName(myLoop))
next myLoop
That all works great for populating objects on the form.
When I create a timer in a similar way:
Dim tmr(RecordsCount) As Timer
tmr(myLoop) = New Timer
tmr(myLoop).Interval = whatevermydatasetrecordis
tmr(myLoop).Name = "myuniquename"
AddHandler tmr(myLoop).Tick, AddressOf hndlifespan
*****The Problem ******
Using . .
tmr(myLoop).Name = "myuniquename"
I get a error of 'Name' is not a member of 'System.Windows.Forms.Timer'
When one of my dynamicly created buttons is pressed it goes to the dynamically created button click handler. This in turn knows which button was pressed by asking its name. At this point I want to launch a specific timer based on the button name.
So if the button "Alpha" was pressed I want to enable the "Alpha" timer (that was created dynamically from the dataset with its associated interval).
I have created a timer at design time which does this:
Friend WithEvents billy As System.Windows.Forms.Timer
Me.billy = New System.Windows.Forms.Timer(Me.components)
If I do the same
Dim billy As Timer
billy = New Timer
The timer is stuck with the name "billy" still and I am unable to change it.
I wish to name the timer with a name that is held in a string. At the moment I acn see that
Dim myString As Timer
can not work as It is an assigned string
so
Dim tmr(CInt(myString)) As Timer
tmr(CInt(myStringt)) = New Timer
AddHandler tmr(CInt(myString)).Tick, AddressOf hndlifespan
does not flag errors in intellisense but I have no idea why it asked me to convert my string into an Integer and if it will work.
I am burned out and lost !!!!!!!!
Many thanks and sorry if I made your head hurt!
Paul
|
|
|
|
|
Take the property field Tag instead of Name. Its designed for user purposes only.
Greetings
Covean
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
