HOME > .NET Framework > Forum > ขอถามหน่อยนะคะว่าเวลาเราทำปุ่มค้นหาแล้วเมื่อคลิกค้นหาถ้าไม่พบข้อมูลที่ค้นหาอยากให้ขึ้นแมสเซสบ๊อกว่าไม่พบข้อมูลต้องทำอย่างไรคะ
Private Sub btnfind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfind.Click
If MsgBox("คุณต้องการค้นหาข้อมูลใช่หรือไม่ ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "ค้นหาข้อมูล") = MsgBoxResult.Ok Then
Try
ds.Tables.Clear()
Dim ra As String = ""
If RadioButton1.Checked Then
ra = "cusid"
End If
If RadioButton2.Checked Then
ra = "cusname"
End If
If TextBox4.Text = "" Then
MsgBox("กรุณากรอกข้อมูลที่ต้องการค้นหา", MsgBoxStyle.Information)
Else
Dim sql As String = "Select*from customer where " & ra & " like '" & TextBox4.Text & "%'"
da = New OleDbDataAdapter(sql, Conn)
da.Fill(ds, "customer")
dgv1.DataSource = ds.Tables("customer")
TextBox4.Clear()
End If
Catch ex As Exception
MessageBox.Show(ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub (VB.NET)
if (ds.Tables("customer").Rows.Count() > 0) then
messagebox.show("มีจำนวน rows = " & ds.Tables("customer").Rows.Count().ToString())
else
messagebox.show("ไม่มีข้อมูลจ้า")
end if
Load balance : Server 04
)
