VB Code :: โค้ดรวมตาราง 2 ตารางเข้าใน 1 ฟอร์ม
VB Code :: โค้ดรวมตาราง 2 ตารางเข้าใน 1 ฟอร์ม
Private Sub ShowData()
sb = New StringBuilder()
sb.Remove(0, sb.Length())
sb.Append("SELECT Room.Room_ID,Room.Room_Des,Room.Room_Rate,RoomType.RoomType_Des")
sb.Append(",RoomType.RoomType_ID")
sb.Append(" FROM Room,RoomType")
sb.Append(" WHERE (Room.RoomType_ID= RoomType.RoomType_ID)")
Dim sqlRoom As String = sb.ToString()
com = New SqlCommand()
With com
.CommandText = sqlRoom
.CommandType = CommandType.Text
.Connection = Conn
dr = .ExecuteReader()
End With
If dr.HasRows Then
dt = New DataTable()
dt.Load(dr)
dgvRoom.DataSource = dt
Else
dgvRoom.DataSource = Nothing
End If
dr.Close()
End Sub
Private Sub cmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClose.Click
Close()
End Sub
sb = New StringBuilder()
sb.Remove(0, sb.Length())
sb.Append("SELECT Room.Room_ID,Room.Room_Des,Room.Room_Rate,RoomType.RoomType_Des")
sb.Append(",RoomType.RoomType_ID")
sb.Append(" FROM Room,RoomType")
sb.Append(" WHERE (Room.RoomType_ID= RoomType.RoomType_ID)")
Dim sqlRoom As String = sb.ToString()
com = New SqlCommand()
With com
.CommandText = sqlRoom
.CommandType = CommandType.Text
.Connection = Conn
dr = .ExecuteReader()
End With
If dr.HasRows Then
dt = New DataTable()
dt.Load(dr)
dgvRoom.DataSource = dt
Else
dgvRoom.DataSource = Nothing
End If
dr.Close()
End Sub
Private Sub cmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClose.Click
Close()
End Sub
Permissions in this forum:
คุณไม่สามารถพิมพ์ตอบ
|
|