Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
Conn.Open()
If txtSearch.Text.Trim() = "" Then
MessageBox.Show("กรุณาระบุรหัสลูกค้าก่อน!!!", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
Dim sb As New StringBuilder()
sb.Remove(0, sb.Length)
sb.Append("Select*From Customers Where (IDcus=@IDCus)")
Dim sqlCustomers As String = sb.ToString()
Dim com As New OleDbCommand()
Dim dr As OleDbDataReader
Dim dt As DataTable
With com
.CommandType = CommandType.Text
.CommandText = sqlCustomers
.Connection = Conn
.Parameters.Clear()
.Parameters.Add("@IDCus", OleDbType.VarChar).Value = txtSearch.Text.Trim()
dr = .ExecuteReader()
If dr.HasRows Then
dr.Read()
dt = New DataTable()
dt.Load(dr)
****** ตรงนี้อะคับ จะใส่ว่าไรที่จะให้แสดงใน DataGrid (DataGridView ชื่อ DGVCus นะคับ********
Else
MessageBox.Show("ไม่มีรายชื่อลูกค้า ตามที่คุณต้องการ!!!", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtSearch.Focus()
txtSearch.SelectAll()
End If
End If
End With
dr.Close()
Conn.Close()
End Sub