|
Quite possibly. To many beers ago to remember 
Bob
Ashfield Consultants Ltd
Proud to be a 2009 Code Project MVP
|
|
|
|
|
If you're going to ask questions on any forum, not just CP's, you really need to specify that you're using VB6. Everyone will assume you're using VB.NET since VB6 has not been support by Microsoft for quite some time now.
|
|
|
|
|
We should boycott all VB6 questions in the forum!!!!
Until I get stuck on some dumb legacy code and need help.
It would help if the OP would be a bit more specific. Very rarely is there too much info. in the orig. post.
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
|
--> dim currentTime as Date=DateTime.Now()
--> Me.TextBox.Text=currentTime.ToShortDate()
--> Now it will work.... Enjoy....
J A Nasir K
|
|
|
|
|
Hi
- command button cannot be named "new record", it should be named "new_record" or "NewRecord", no space is allowed in the name of object, or you are talking about "caption" ?
' in CommandButton Click
Text1 = Time()
Text2 = Date
hth
Samir R. Ibrahim
|
|
|
|
|
Hi,
In code a loop has perfomed an heavy task in minutes. There is a cancel button on the form which must immediately cancels the currently running loop inside a procedure.
How could you do that? How could you stop all the running tasks (loop) inside the form and execute the Button1_Click procedure which should closes the form when it gets clicked at once. I tought the easiest way might be the just immediately closing the form or disposing it. But when I push the button it is not responding on time because of running loops inside another procedure with even application.doevents statement inside the loops.
But I beleive that there should be more professional approaches to do that and I have no idea about it. 
Thank You.
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
You have to move the tasks to a background thread. Then the UI will become responsive and you can tell the thread to stop from in there.
Have a look at the BackgroundWorker class.
|
|
|
|
|
You could try using DoEvents in the loop.
This might be simpler than using BackGroundWorker but not as resposive.
See 'My.Application.DoEvents Method' in VB help.
Regards
David R
|
|
|
|
|
that is bad practice, a waste of CPU cycles and potentially dangerous.
Any work that takes or may take more than say 30 msec should be handled by another thread, which could be from a ThreadPool, a BackgroundWorker, whatever.
Luc Pattyn [Forum Guidelines] [My Articles]
- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets
|
|
|
|
|
DoEvents is the kiddie-size method of handling this problem. It also introduces adult-size problems if not handled correctly.
|
|
|
|
|
Hello Everyone
i have made a project of stock control. This is the coding for my save records command button. this is a presence check for the four text boxes which have different range
If Text3 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Then
MsgBox "Please Fill in the required fields", vbInformation, "Presence Error"
Else
Adodc1.Recordset.Save
MsgBox "Record has been saved"
End If
the problem is that i want a different msg box message for each text box. how can i do that? 
please help me!
ST
|
|
|
|
|
Multiple If statements, one for each TextBox maybe??
|
|
|
|
|
Something like this...
If text3="" Then
MsgBox "Enter value for textbox3"
Else If text4="" Then
MsgBox "Enter value for textbox4"
Else If text5="" Then
MsgBox "Enter value for textbox5"
Else If text6="" Then
MsgBox "Enter value for textbox6"
Else
Adodc1.Recordset.Save
MsgBox "Record has been saved"
End If
|
|
|
|
|
This is giving a compile error
Thanks for the help!
regards
ST
|
|
|
|
|
Its not that hard to figure it out!
Where it says text3="" you just need to type text3.text=""!
Lloyd J. Atkinson
I used Vista the other day. It was also the last time I will ever voluntarily use the damn thing. I would rather use Windows 1.0 just because it dosent literally chew the RAM just to draw pretty colours.
|
|
|
|
|
You can use the System.Windows.Forms.ErrorProvider to do this.
Or you could deal with them one at a time by having:
If Text3 = "" Then
MsgBox "Please Fill in the Text3 field", vbInformation, "Presence Error"
ElseIf Text4 = "" Then
MsgBox "Please Fill in the Text4 field", vbInformation, "Presence Error"
ElseIf Text5 = "" Then
MsgBox "Please Fill in the Text5 field", vbInformation, "Presence Error"
ElseIf Text6 = "" Then
MsgBox "Please Fill in the Text6 field", vbInformation, "Presence Error"
Else
Adodc1.Recordset.Save
MsgBox "Record has been saved"
End If
If you do the latter, then the user could be faced with four message boxes.
By the way, I think you should use MessageBox.Show() rather tham MsgBox - see the How to: Display Message Boxes topic in VB help.
Regards
David R
|
|
|
|
|
Thanks for the help.
It works fine
Regards
ST
|
|
|
|
|
You're welcome.
I assume you used the nested Ifs - I think it's worth looking at the ErrorProvider when you get a chance. It's really very flexible and makes it simple to do multi-field validations that would need complex code.
Regards
David R
|
|
|
|
|
Postscript to my previous reply.
Look up 'ErrorProvider Component' in VB help to see how it can be used.
Regards
David R
|
|
|
|
|
Why wont the following code give me any results, is 'said' a preserved word?
SELECT id FROM [table] where Contains ([fulltextcolumn], 'FORMSOF(INFLECTIONAL,aa) and FORMSOF(INFLECTIONAL,Said ) and FORMSOF(INFLECTIONAL,advocate)’;
while
SELECT id FROM [table] where Contains ([fulltextcolumn], 'FORMSOF(INFLECTIONAL,aa) and FORMSOF(INFLECTIONAL,bldg ) and FORMSOF(INFLECTIONAL,advocate)’;
Gives me the desired Results
Any thing am ready
|
|
|
|
|
You'll have to ask in the General Database forum. What you asked has nothing to do with VB.NET, so the level of expertise doesn't center around SQL in here.
|
|
|
|
|
SQL books is your friend. If it is, wrap said in [] like [Said]
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
Hello all, I have a problem here need someone to help here.
I'm doing a searching function from the database which is using MySQL5.0. A textbox(textbox2) is used for the user to search data by clicking the search button(Button1). The search return result will be display using a DataGridView1.
Well,when I search for the 1st time,it runs well with the result expected show at DataGridView1. But when I search for the second time,the result display is out of alliengment. It grows at a new row but shown on column2 and column3.It should be at column1 and column2.And beside that,the previous data is shown at the datagridview as well.
After test the above scenarios,I also found that after I search a data which is not inside the datatable.And try to search for something that available with result,the datagridview only display me the header of the column1 and column2 but no result.
I have try about 2hrs to find this solution,but I can't figure out how to solve this. I paste the search button code below,anyone can give me some solution? Sorry,please feel free to ask. I know its difficult to understand my poor english.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As String
Try
If Trim(TextBox2.Text) <> "" Then
x = TextBox2.Text.ToUpper
SQL = "SELECT Comp_Code,Comp_Name FROM company_detail WHERE Comp_Name LIKE '" & x & "%'"
ObjComm = New MySqlCommand(SQL, ObjMyConn)
ObjMyConn.Open()
ObjRead = ObjComm.ExecuteReader
If ObjRead.Read Then
ObjRead.Close()
DataGridView1.DataSource = Nothing
ObjAdapter = New MySqlDataAdapter(SQL, ObjMyConn)
ObjAdapter.Fill(ds, "Client_Comp")
dt = ds.Tables("Client_Comp")
dt.Columns(0).ColumnName = "Company Code"
dt.Columns(1).ColumnName = "Company Name"
DataGridView1.DataSource = dt.DataSet.Tables("Client_Comp")
DataGridView1.Refresh()
TextBox2.Clear()
Else
dt.DataSet.Tables("Client_Comp").Reset()
DataGridView1.DataSource = Nothing
MessageBox.Show("No such company stored.")
TextBox2.Clear()
End If
Else
MessageBox.Show("Please insert a search text into company column")
dt.DataSet.Tables("Client_Comp").Reset()
DataGridView1.DataSource = Nothing
DataGridView1.Refresh()
End If
ObjMyConn.Close()
Catch ex As Exception
MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly)
Finally
ObjMyConn.Close()
End Try
End Sub
|
|
|
|
|
Your code makes no sense in certain sections.
SQL = "SELECT Comp_Code,Comp_Name FROM company_detail WHERE Comp_Name LIKE '" & x & "%'"
ObjComm = New MySqlCommand(SQL, ObjMyConn)
ObjMyConn.Open()
ObjRead = ObjComm.ExecuteReader
If ObjRead.Read Then
ObjRead.Close()
DataGridView1.DataSource = Nothing
You open a reader on a returned set, but if there is a result, you close the read immediately?? Then execute the same SQL to fill a dataset?? That's completely unnecessary. Just execute a fill on the DataSet, then bind the DataGridView to it. There's no need to check if something came back first.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
