01.Private Sub LoadRoomList()
02. Try
03. objConn = New SqlConnection(sysconfig)
04. If (objConn.State = ConnectionState.Open) Then
05. objConn.Close()
06. End If
07. objConn.Open()
08. Dim sqlRoomName As String
09. Dim dt As New DataTable
10. sqlRoomName = "SELECT RoomID,RoomName,RoomLocation FROM MeetingRoom_V2 WHERE RoomStatus='A' AND RoomLV<='" & Session("mLV") & "'"
11. objCmd = New SqlCommand(sqlRoomName, objConn)
12. dtAdapter = New SqlDataAdapter(objCmd)
13. dtAdapter.Fill(dt)
14. If dt.Rows.Count > 0 Then
15. ddlRoomSL.DataSource = dt
16. ddlRoomSL.DataTextField = "RoomName"
17. ddlRoomSL.DataValueField = "RoomID"
18. ddlRoomSL.DataBind()
19. ddlRoomSL.Items.Insert(0, "Please select room.")
20. End If
21. Catch ex As Exception
22. Finally
23. objConn.Close()
24. End Try
25. End Sub
