Source Code:
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
Dim DA As OleDb.OleDbDataAdapter
Dim DT As New DataTable
Dim SQL As String
CheckConectionState()
SQL = "SELECT * FROM tbl_Database WHERE Name LIKE N'%" & txtSearch.Text & "%'"
DA = New OleDb.OleDbDataAdapter(SQL, CNN)
DA.Fill(DT)
If DT.Rows.Count <= 0 Then
MsgBox("Search not found")
DTV_Info.DataSource = Nothing
Else
DTV_Info.DataSource = DT
End If
CNN.Close()
End Sub
0 Comments