Protected Sub FindGuest()
strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DbRegister.accdb"
con.ConnectionString = strcon
con.Open()
Dim sql As String = "SELECT CustomerName as 'ชื่อ Guest' FROM DbCustomer WHERE CustomerIntroducer = '" & Introtxt.Text & "'"
cmd = New OleDbCommand(sql, con)
Dim da As New OleDbDataAdapter(sql, con)
ds = New DataSet()
da.Fill(ds)
GridView1.DataSource = ds
GridView1.DataBind()
If GridView1.DataSource <> False Then ' <================ ตรงนี้มันยัง Error อยู่ค่ะ เพราะมันบอกว่าเป็น Boolean ไม่ได้ แล้วก็ลองแบบเป็น <> "" แล้วก็ไม่ได้เหมือนกัน
GridView1.Visible = True
Else
GridView1.Visible = False
End If
End Sub
อันนี้เป็นรูปค่ะ
Protected Sub FindGuest()
strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DbRegister.accdb"
con.ConnectionString = strcon
con.Open()
Dim sql As String = "SELECT CustomerName as 'ชื่อ Guest' FROM DbCustomer WHERE CustomerIntroducer = '" & Introtxt.Text & "'"
cmd = New OleDbCommand(sql, con)
Dim da As New OleDbDataAdapter(sql, con)
ds = New DataSet()
da.Fill(ds)
if ds.table(0).rows.count>0 Then
GridView1.DataSource = ds
GridView1.DataBind()
else
GridView1.visible=false
end if
End Sub
Protected Sub FindGuest()
strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DbRegister.accdb"
con.ConnectionString = strcon
con.Open()
Dim sql As String = "SELECT CustomerName as 'ชื่อ Guest' FROM DbCustomer WHERE CustomerIntroducer = '" & Introtxt.Text & "'"
cmd = New OleDbCommand(sql, con)
Dim da As New OleDbDataAdapter(sql, con)
ds = New DataSet()
da.Fill(ds,"Customer")
if ds.Tables("Customer").Rows.Count>0 Then
GridView1.DataSource = ds
GridView1.DataBind()
else
' Do something here
end if
End Sub
อันนี้เป็นรูปค่ะ