Private Sub cmdSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
If txtSearch.Text <> "" Then
Dim sqlSearch As String = ""
sqlSearch = "SELECT * FROM Job WHERE Jobref='" & txtSearch.Text & "'"
da = New OleDbDataAdapter(sqlSearch, ConnectAccess)
da.Fill(ds, "JobSearch")
'ถ้ามีจำนวนเร็คคอร์ด 1 เร็คคอร์ดแล้ว
If (ds.Tables("JobSearch").Rows.Count <> 0) Then
ConToData() 'เชื่อมต่อกับฐานช้อมูล
IsFind = True
With grdJobref
.DataSource = ds.Tables("JobSearch")
.Columns(0).HeaderText = "JOBID"
.Columns(1).HeaderText = "JOBREF"
.Columns(0).Width = 80
.Columns(1).Width = 172
.Columns(0).ReadOnly = False
.Columns(1).ReadOnly = False
End With
Else 'ถ้าไม่มีข้อมูล
IsFind = False 'กำหนดสถานะให้ Dataset เป็น False
grdJobref.DataSource = Nothing 'กำหนดค่าให้ DataGridView เท่ากับค่าว่าง
End If
Else 'ถ้า txtSearch.text เท่ากับค่าว่าง
With grdJobref
.DataSource = ds.Tables("Jobref")
.Columns(0).HeaderText = "JOBID"
.Columns(1).HeaderText = "JOBREF"
.Columns(0).Width = 80
.Columns(1).Width = 172
.Columns(0).ReadOnly = False
.Columns(1).ReadOnly = False
End With
End If
End Sub