Option Strict On Option Explicit On Dim CategoryRdr As OleDbDataReader = GetCategoryReader() Try Dim pptt As New PowerPointTemplate()
Dim CategoryRdr As OleDbDataReader = GetCategoryReader()
Try
Dim pptt As New PowerPointTemplate()
pptt.BindData(CategoryRdr, _
_
"Category", _
_
PowerPointTemplate.CreateDataBindingProperties()) Catch ex As System.Exception Finally
Catch ex As System.Exception
Finally
'--- The OleDbDataReader must be open when it's passed
passed
'--- to PowerPointTemplate. Remember to close it after use. If Not CategoryRdr = Nothing
If Not CategoryRdr = Nothing
CategoryRdr.Close() End If End Try
End If
End Try
'--- Get an OleDbDataReader containing a list of product categories Private Function categories
Private Function GetCategoryReader() As OleDbDataReader Dim Conn As New OleDbConnection() Conn.ConnectionString = OleDbDataReader
Dim Conn As New OleDbConnection()
Conn.ConnectionString = Application("connstring").ToString()
'--- SQL query for a list of categories Dim CategorySQL As String = "SELECT CategoryName FROM Categories" Dim Cmd As New categories
Dim CategorySQL As String = "SELECT CategoryName FROM Categories"
Dim Cmd As New OleDbCommand(CategorySQL, Conn)
Conn.Open() Return
Return Cmd.ExecuteReader() End Function
End Function
|