|
I have a search page with 3 textboxes. I want to do a search on any text that may be in the text boxes. Let's say we have box1, box2, and box3. I want to do a search as follows:
If box1 <> "" Then
do this...
ElseIf box2 <>"" then
do this..
ElseIF box3 <> "" Then
Do this...
Else
do this ...
Does anyone know how to do this using CASE statement?
macca
|
|
|
|
|
Hi there,
Instead of using the two else statement in the if block i would rather use one as follows
If box1= "" and box2="" and box3="" then
SQL= no query or no search
else
' this indicates at least one box has the a text
'then SQl query can be as follows
SQl = "Select * from Table where ColumnA=box1.text or ColumnA=box2.text or columnA=box3.text
end if
I hope this helps
Mandar Patankar
Microsoft Certified professional
|
|
|
|
|
Hi All,
Point function of Form object returns color of the pixel at a
partcular location on the form.
I tried to use this function in a project of Graphics.
I found that the behaviour of the function was strange.
Sometimes, the function returned a color value upon clicking
a pixel on form.
Other times, it simply falied to return anything.
It just kept returning -1 eventhought the color of the pixel was red.
The same code worked on other PCs while on still others it failed.
Can anyone explain why Point function behaves like this ?
I need a quick reply.
Thank you.
Varun
|
|
|
|
|
 Hi!
I wanna send a value to a field on a site, i m using AxWebBroeser Control in vb.net, i 've displayed the page in the control..how can i do this...plz help me
Thanks!
Sufyan
|
|
|
|
|
You need to obtain a reference to the control to which you want to send the value and then set it. The trick is to get the Name of the control to obtain the reference. For this you can inspect the source code for the target page.
This is some sample code that loads the Google web site in an AxWebBrowser control, sets the search value to "axwebbrowser" and auto-presses the Search button. I based this example on one I found on the web somehere a while ago.
Assuming the web browser control is named web1, navigate to the web site in your Sub Main() (or whatever).
web1.Navigate("http://www.google.com")
In web1's DocumentComplete event:
Private Sub web1_DocumentComplete(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles web1.DocumentComplete
' Get the web document
Dim myDoc As mshtml.HTMLDocument
myDoc = DirectCast(web1.Document, mshtml.HTMLDocument)
' Get the reference to the search text input box.
' The name of this control is "q" which I found from
' inspecting the page's source code.
Dim otxtSearchBox As mshtml.HTMLInputElement
otxtSearchBox = DirectCast(myDoc.all.item("q", 0), mshtml.HTMLInputElement)
' Set the search value to "axwebbrowser"
otxtSearchBox.value = "axwebbrowser"
' Get a reference to the search button and simulate
' pressing it by calling the control's Click() event.
Dim btnSearch As mshtml.HTMLInputElement
btnSearch = DirectCast(myDoc.all.item("btnG", 0), mshtml.HTMLInputElement)
btnSearch.click()
' The web control will now update and presnet the search results.
End Sub
...Steve
|
|
|
|
|
:-DHi Steve!
your tip was indeed very help ful for me thanks!!!
i 'll looking forward for any future help from u
thanks aloooot!!!
Sufyan_shani
|
|
|
|
|
Hi,
I have just completed making my user control for the VB.NET studio,which I have built as a DLL file. Now, when it comes to setting up the deployment project, I am unable to determine the appropriate location to install the DLL file so that another VB.NET programmer can easily access this file and make use of the control.
Thanks in advance!
|
|
|
|
|
Could someone helpe me,please.
I want to make two buttons in my form ,one search the DB by the patient_no and the other by the patient_name.
I did one button search by the patient_No and it worked, but the other didn't What should I do?
this is part from my code:
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click<br />
DataSet11.Clear()<br />
<br />
OleDbDataAdapter1.Fill(DataSet11, "PatientsTable")<br />
End Sub<br />
<br />
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click<br />
Dim delc As New OleDbCommand()<br />
Dim message As String<br />
Try<br />
delc.CommandText = " Delete from PatientsTable where Patient_No =" & TextBox1.Text<br />
delc.Connection = OleDbConnection1<br />
OleDbConnection1.Open()<br />
delc.ExecuteNonQuery()<br />
<br />
MsgBox("The deletion procees done successfully .")<br />
<br />
Catch<br />
message = "choose a record first"<br />
MsgBox(message)<br />
Finally<br />
OleDbConnection1.Close()<br />
clear()<br />
End Try<br />
End Sub<br />
<br />
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click<br />
Dim selcom As New OleDbCommand()<br />
Dim drobj As OleDbDataReader<br />
Dim message As String<br />
<br />
Try<br />
selcom.Connection = OleDbConnection1<br />
selcom.CommandText = "select* from PatientsTable where(Patient_No= " & TextBox1.Text & ")"<br />
OleDbConnection1.Open()<br />
drobj = selcom.ExecuteReader<br />
If drobj.Read Then<br />
TextBox1.Text = drobj.GetValue(0)<br />
TextBox2.Text = drobj.GetValue(1)<br />
TextBox3.Text = drobj.GetValue(2)<br />
TextBox4.Text = drobj.GetValue(3)<br />
TextBox5.Text = drobj.GetValue(4)<br />
TextBox6.Text = drobj.GetValue(5)<br />
TextBox7.Text = drobj.GetValue(6)<br />
<br />
Else<br />
MsgBox("The record not found .")<br />
End If<br />
<br />
drobj.Close()<br />
<br />
Catch<br />
message = "You must write just a patient number in it's field "<br />
MsgBox(message)<br />
Finally<br />
<br />
OleDbConnection1.Close()<br />
<br />
End Try<br />
<br />
End Sub<br />
<br />
<br />
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click<br />
Close()<br />
End Sub
with thanks
deema
-- modified at 23:28 Thursday 10th November, 2005
|
|
|
|
|
On which line of the above code is an error being thrown, and what is the error?
...Steve
|
|
|
|
|
There is no any error in the above code ,but I want to make a button search by the patient_name in a DB when I wrote the following code I got an error:
Dim selcom As New OleDbCommand()<br />
Dim drobj As OleDbDataReader<br />
Dim message As String<br />
Try<br />
selcom.Connection = OleDbConnection1<br />
selcom.CommandText = "select* from PatientsTable where(Patient_Name= " & TextBox2.Text & ")"<br />
OleDbConnection1.Open()<br />
drobj = selcom.ExecuteReader<br />
<br />
If drobj.Read Then<br />
TextBox1.Text = drobj.GetValue(0)<br />
TextBox2.Text = drobj.GetString(1)<br />
TextBox3.Text = drobj.GetValue(2)<br />
TextBox4.Text = drobj.GetValue(3)<br />
TextBox5.Text = drobj.GetValue(4)<br />
TextBox6.Text = drobj.GetValue(5)<br />
TextBox7.Text = drobj.GetValue(6)<br />
<br />
Else<br />
MsgBox("The record not found")<br />
End If<br />
drobj.Close()<br />
Catch<br />
message = "You must write just a patient name in it's field "<br />
MsgBox(message)<br />
Finally<br />
<br />
OleDbConnection1.Close()<br />
End Try<br />
<br />
End SubSo what is the write code to make the search by name work?
deema.
-- modified at 23:29 Thursday 10th November, 2005
|
|
|
|
|
Deema Jack wrote: There is no any error in the above code ,but I want to make a button search by the patient_name in a DB when I wrote the following code I got an error:
Ok, so you DID get an error! What was it? Provide more information and thou shall receive quality help...
Anyway I can see one obvious coding problem with this line:
Deema Jack wrote: selcom.CommandText = "select* from PatientsTable where(Patient_Name= " & TextBox2.Text & ")"
It should read:
selcom.CommandText = "select * from PatientsTable where Patient_Name = '" & TextBox2.Text & "'"
Note the use of single quotes surrounding the TextBox2.Text value otherwise SQL Server will most likely throw out the query. All strings should be quoted in queries. Additionally there should be no parentheses where you have used them in the WHERE clause.
...Steve
-- modified at 23:02 Thursday 10th November, 2005
|
|
|
|
|
Thanks Steve,thank you very much. Do you know,I tried the statement which you wrote above before you tell me ,but I got an error,I think my error was in the quotes,but when I copyed yours it's done, Thank you again. I want to say that I'm a begginer student in Vb.net in an institute for computer ,there,they're just teaching us the basics of the vb.net language.
So, would you tell me about the try-catch-finally statements, what is the correct method in writing them, I don't know more about it,and could you tell me the name of a helping book in the structured exception handling.
with thanks,
deema
-- modified at 3:30 Friday 11th November, 2005
|
|
|
|
|
Deema, you are welcome. Glad I could help you.
The best first place to find more information on structured exception handling would be a Google search. Also try searching through The Code Project archives for articles on the subject. The VB.NET online help is also useful.
I could not provide a tutorial on the subject in this forum - it is not the place for it and I simply don't have the time to do so but I will answer any specific questions if you get stuck at any stage as will many other contributors.
...Steve
|
|
|
|
|
Thanks Steve ,I really appreciate your helpe,it's true that google is the huge source for this and any other information. Also,this forume butI'll need more time to search it,but it's o.k.
Thanks
deema
|
|
|
|
|
i want a function in the web service to return a xml file which contains multiple value i need, how to write this function ? using Array ???
I am Entry level person
|
|
|
|
|
I just made a BIG, STUPID mistake. I deleted all the .resx and .aspx.vb files on my machine through Dreamwaver Test Server view! It will kill me to re-write all the code  .
I have recently re-built the project into .DLL file before deleting those files. Is there anybody know how to decompile .DLL file to get source code back????
I also find there is a tempporary folder "_vti_cnf" under my wwwroot/project folder. In this folder, there are .aspx.vb and .RESX files. However, .aspx.vb file only contains the information like :
vti_encoding:SR|utf8-nl
vti_timelastmodified:TR| 17 Oct 2005 16:58:30 -0000
vti_extenderversion:SR| 4.0.2.8912
Could anybody help me out???
Thank you in advance!!!!!
|
|
|
|
|
Vicky,
Stupid question, but are the files in the recycle bin or do you do what I do and delete bypassing the r/c bin?
If you have not already done so, I suggest downloading a file undelete utility from the web - there are several out there, try FreeUndelete for a start but of course download it on another machine or to a different drive etc so you won't overwrite any deleted files.
Programs do exist to extract resources etc from DLLs but I cannot help in that regard. They certainly won't be able to recover your source code.
...Steve
|
|
|
|
|
Assuming you compiled to the DLL to msil and not all the way to native then Reflector works reasonably well - you will have to massage the code a lot to restore it to it's original state, but it is a lot faster than rewriting it ...
http://www.aisto.com/roeder/dotnet/[^]
|
|
|
|
|
I would like to know how to code a class library that will show the number of sentences in any document or file that is open. The number has to show in a label.
Thanks
|
|
|
|
|
los_coronado wrote: I would like to know how to code a class library that will show the number of sentences in any document or file that is open. The number has to show in a label.
This sounds like a homework/project/assignmnent question to me.
Where do you want to start? Do you have any idea how to approach this task? What you have asked for is rather vague and open-ended. What part are you particularly having trouble understanding? How to read the file, parsing the file's contents into sentences, creating the label (and where the label is to appear), is this a standalone program, part of a Word addin component, or what?
Be more specific with your questiosn and we can provide more useful help to you. We will not however, write the code for you. For that see www.rentacoder.com
...Steve
|
|
|
|
|
Sorry, this is the first time I post a question here.
Ok, here is what I need to do. I have a text box and labels to get the number of characters, words, sentences, paragraphas in it. I want to get the number of sentences, but I keep getting one when there is no "." in it.
Here is the code
Dim pstrStringString
Dim mintWords As Integer
Dim pstrSentences() As String = Split(pstrString, "." -1)
For s As Integer = 0 To pstrSenteces.Length - 1
mintWords +=1
I have to show the number of sentences in a label when a button is click. Why do I keep gettin one even tough there is no "."
|
|
|
|
|
los_coronado wrote: Why do I keep gettin one even tough there is no "."
I assume that you have typed in this code directly rather than copy/paste since there are a few syntax errors in it?
Anyway the problem is that Split(pstrString, ".", -1) will return ALL substrings of the input string regardless of the number of delimiters found. In other words Split("abc.def.ghi", "." , -1) will return an array of three substrings viz: "abc", "def", "ghi" whilst an input string of Split("this is a sentence without a period", ".", -1) will return an array of one element (look at the previous example too - there are only two periods in that string and it returned three).
Tip: when you observe unexpected behaviour like this, the first port of call should be to the online Visual Studio help. Just review the description of the function/method/property with which you seem to have trouble and it may explain why that behaviour occurs.
This is all part of the learning process, and thanks for posting a more comprehensive description of the problem since it helped me to help you.
...Steve
|
|
|
|
|
Thanks Steve.
I will follow your advice.
|
|
|
|
|
los_coronado wrote: I would like to know how to code a class library
Just type for a bit, then when it feels like you're done, stop.
los_coronado wrote: show the number of sentences in any document or file that is open.
OK, here's where you're really not telling us what you want.
1. Any document of what format ?
2. What does 'open' mean ?
3. How do you define a sentence, is it a line in a text file, or a full stop on the end of a word ? Or something else ?
Once you can define those things, then you can write some code. If you have *specific* questions about code you tried to write yourself, then ask here. Otherwise, as someone has said, try rentacoder, and accept that you will never be a programmer.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Hello Forum Members,
I'm a newbie and I'm working on a small windows application that does an "activity" calculation. I would like to send the result of the calculation along with other information gathered (from text boxes) on the application to an excel file, with the ability to re-send new calculations done to the same excel file in the subsequent rows below (with the ability to add as many as I want). I have it working now where I have the headers, and the corresponding values below them going into an excel file. I'm trying to find information on how to get a new calculation into a new row below but I'm stumped. I took me forever to realize that I had to add an excel reference to my project to get the extraction to work. Not even sure if I'm going about this the right way. Any help would be greatly appreciated!!!
Here is the code for my "ExtractData" subroutine.
Private Sub ExtractData2()<br />
<br />
'Initialize Excel and create a new workbook/worksheet<br />
Dim excelApp As New Excel.Application<br />
Dim excelBook As Excel.Workbook = excelApp.Workbooks.Add<br />
Dim excelWorksheet As Excel.Worksheet = _<br />
CType(excelBook.Worksheets(1), Excel.Worksheet)<br />
'Makes Excel invisible to the user until spreadsheet is populated<br />
excelApp.Visible = False<br />
<br />
With excelWorksheet<br />
excelApp.Visible = True<br />
<br />
<br />
.Range("A1").Value = lblDate.Text ' these are labels that I am using from the designer view<br />
.Range("A1").Font.Bold = True<br />
.Range("A1").ColumnWidth = 10<br />
.Range("B1").Value = lblIDnumber2.Text<br />
.Range("B1").Font.Bold = True<br />
.Range("B1").ColumnWidth = 12<br />
.Range("C1").Value = lblFname2.Text<br />
.Range("C1").Font.Bold = True<br />
.Range("D1").Value = lblLname2.Text<br />
.Range("D1").Font.Bold = True<br />
.Range("D1").ColumnWidth = 15<br />
.Range("E1").Value = lblHeight2.Text<br />
.Range("E1").Font.Bold = True<br />
.Range("E1").ColumnWidth = 15<br />
.Range("F1").Value = lblWeight2.Text<br />
.Range("F1").Font.Bold = True<br />
.Range("F1").ColumnWidth = 15<br />
.Range("G1").Value = lblCounts2.Text<br />
.Range("G1").Font.Bold = True<br />
.Range("G1").ColumnWidth = 15<br />
.Range("H1").Value = lblCounttime2.Text<br />
.Range("H1").Font.Bold = True<br />
.Range("H1").ColumnWidth = 15<br />
.Range("I1").Value = lblIsotope2.Text<br />
.Range("I1").Font.Bold = True<br />
.Range("I1").ColumnWidth = 15<br />
.Range("J1").Value = lblEnergy2.Text<br />
.Range("J1").Font.Bold = True<br />
.Range("J1").ColumnWidth = 15<br />
.Range("K1").Value = lblRatio2.Text<br />
.Range("K1").Font.Bold = True<br />
.Range("K1").ColumnWidth = 15<br />
.Range("L1").Value = lblEfficiency2.Text<br />
.Range("L1").Font.Bold = True<br />
.Range("L1").ColumnWidth = 15<br />
.Range("M1").Value = lblActivity2.Text<br />
.Range("M1").Font.Bold = True<br />
.Range("M1").ColumnWidth = 15<br />
<br />
.Range("A2").Value = txtDate2.Text ' these are text boxes where the user enters values to do the calculation<br />
.Range("A2").Font.Bold = True<br />
.Range("A2").ColumnWidth = 10<br />
.Range("B2").Value = txtIDnumber2.Text<br />
.Range("B2").Font.Bold = True<br />
.Range("B2").ColumnWidth = 12<br />
.Range("C2").Value = txtFname2.Text<br />
.Range("C2").Font.Bold = True<br />
.Range("D2").Value = txtLname2.Text<br />
.Range("D2").Font.Bold = True<br />
.Range("D2").ColumnWidth = 15<br />
.Range("E2").Value = txtHeight2.Text<br />
.Range("E2").Font.Bold = True<br />
.Range("E2").ColumnWidth = 15<br />
.Range("F2").Value = txtWeight2.Text<br />
.Range("F2").Font.Bold = True<br />
.Range("F2").ColumnWidth = 15<br />
.Range("G2").Value = txtCounts2.Text<br />
.Range("G2").Font.Bold = True<br />
.Range("G2").ColumnWidth = 15<br />
.Range("H2").Value = txtCounttime2.Text<br />
.Range("H2").Font.Bold = True<br />
.Range("H2").ColumnWidth = 15<br />
.Range("I2").Value = txtIsotope2.Text<br />
.Range("I2").Font.Bold = True<br />
.Range("I2").ColumnWidth = 15<br />
.Range("J2").Value = txtEnergy2.Text<br />
.Range("J2").Font.Bold = True<br />
.Range("J2").ColumnWidth = 15<br />
.Range("K2").Value = txtRatio2.Text<br />
.Range("K2").Font.Bold = True<br />
.Range("K2").ColumnWidth = 15<br />
.Range("L2").Value = txtEfficiency2.Text<br />
.Range("L2").Font.Bold = True<br />
.Range("L2").ColumnWidth = 15<br />
.Range("M2").Value = txtActivity2.Text<br />
.Range("M2").Font.Bold = True<br />
.Range("M2").ColumnWidth = 15<br />
<br />
<br />
End With<br />
<br />
End Sub<br />
<br />
Private Sub btnSaveRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveRecord.Click<br />
ExtractData2()<br />
<br />
<br />
End Sub<br />
DCgamer
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
