Code: Private Sub btnSerach_Click(ByVal sender As System.Object, ByVal e As Syst

Question

Code:

    Private Sub btnSerach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSerach.Click

        Dim dt As DataTable
        Dim sqlstr As String

        sqlstr = "Select * from StudProfile where StudID = " & CInt(txtS.Text) & ""

        dt = New DataTable
        da = New OleDb.OleDbDataAdapter(sqlstr, con)
        da.Fill(dt)
        da.Dispose()

        If dt.Rows.Count = 0 Then

            MessageBox.Show("Not Found")

        Else

            txtID.Text = CStr(dt.Rows(0)(0))
            MessageBox.Show("Found")

        End If

Image database

Any error here?
please correct

Code: Private Sub btnSerach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSerach.Click Dim dt As DataTable Dim sqlstr As String sqlstr = "Select * from StudProfile where StudID = " & CInt(txtS.Text) & "" dt = New DataTable da = New OleDb.OleDbDataAdapter(sqlstr, con) da.Fill(dt) da.Dispose() If dt.Rows.Count = 0 Then MessageBox.Show("Not Found") Else txtID.Text = CStr(dt.Rows(0)(0)) MessageBox.Show("Found") End If Image database Any error here? please correct

Explanation / Answer

Connection variable (con) not decalred in program.

And if StudID is integer data type then no need to use single quotes in sqlstr...

Related Questions

Navigate

• Browse (All)
• Browse C
• Subjects

---