4
Contributors
4
Replies
10
Views
6 Years
Discussion Span
Last Post by akuvidz
0

Hi,

This code is not the best but it works..

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
If txtSearch.Text.Trim.Length = 0 Then
MsgBox("Search Box cannot be empty! Please put something to search.", MsgBoxStyle.Critical)
End If
Dim mMySQLConnectionString As String = My.Settings.MySQLConnectionString
Dim MyADOConnection As New MySqlConnection
MyADOConnection.ConnectionString = mMySQLConnectionString
Dim mMySqlCommand As New MySqlCommand
Dim mMySqlAdapter As New MySqlDataAdapter
Dim mMyData As New DataTable
dgvSuppliers.DataSource = Nothing
Try
MyADOConnection.Open()
mMySqlCommand.Connection = MyADOConnection
mMySqlCommand.CommandText = "SELECT Code, Name, Phone, Fax, Email, Website FROM Suppliers WHERE Code LIKE '" & txtSearch.Text & "' OR Name LIKE '" & txtSearch.Text & "%" & "' OR fax LIKE '" & txtSearch.Text & "%" & "'"
mMySqlAdapter.SelectCommand = mMySqlCommand
mMySqlAdapter.Fill(mMyData)
dgvSuppliers.DataSource = mMyData
dgvSuppliers.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells

mMySQLConnectionString = Nothing
MyADOConnection = Nothing
mMySqlCommand = Nothing
mMySqlAdapter = Nothing
mMyData = Nothing

Catch ex As Exception
MsgBox(ex.Message)

End Try
End Sub

0

please give me full coding for searching data from textbox and display it in gridview using vb.net and Access.

0

This should suffice. Just how to display the result in datagridview, do some research. It's not that difficult.

Conn = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; Data Source =KDE.mdb;")
            Conn.Open()
            If comBoxSearch.Text = "Member ID" Then
                Str = "SELECT * FROM members WHERE memberid = '" & txtInput.Text & "'"
            Else
                Str = "SELECT * FROM members WHERE NRIC = '" & txtInput.Text & "'"
            End If
            Cmd = New OleDbCommand(Str, Conn)
            Dir = Cmd.ExecuteReader
            Dir.Read()
            If Dir.HasRows Then
                MemSrcResult.lblID.Text = Dir(0)
                MemSrcResult.txtFirstName.Text = Dir(1)
                MemSrcResult.txtMiddleName.Text = Dir(2)
                MemSrcResult.txtLastName.Text = Dir(3)
                MemSrcResult.txtTitle.Text = Dir(4)
                MemSrcResult.txtNRIC.Text = Dir(5)
                MemSrcResult.txtDateOfBirth.Text = Dir(6)
                MemSrcResult.txtCompany.Text = Dir(7)
                MemSrcResult.txtProfession.Text = Dir(8)
                MemSrcResult.txtOfficeNo.Text = Dir(9)
                MemSrcResult.txtOfficeAdd.Text = Dir(10)
                MemSrcResult.txtContact.Text = Dir(11)
                MemSrcResult.txtHouseAdd.Text = Dir(12)
                MemSrcResult.lblJoinedDate.Text = Dir(13)
                MemSrcResult.lblStatus.Text = Dir(14)
                If Dir(14) = "ACTIVE" Then
                    MemSrcResult.lblStatus.ForeColor = Color.Green
                Else
                    MemSrcResult.lblStatus.ForeColor = Color.Red
                End If
                MemSrcResult.Show()
                Dir.Close()
                Conn.Close()
            Else
                MsgBox("No such record found.", MsgBoxStyle.Exclamation)
            End If
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.