Visual Basic

johnalwaysweb wrote:

I am new to .NET please help me out to start it

web1.Navigate("http://www.google.com")

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

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 Sub

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:

Deema Jack wrote:

selcom.CommandText = "select* from PatientsTable where(Patient_Name= " & TextBox2.Text & ")"