Page History

          OleDbDataReader CategoryRdr = GetCategoryReader();
          try
          {
               PowerPointTemplate pptt = new PowerPointTemplate();
               pptt.BindData(CategoryRdr,
                    "Category",
                    PowerPointTemplate.CreateDataImportProperties());
          } catch(System.Exception ex) {
          } finally {
               //--- The OleDbDataReader must be open when it's passed
               //--- to PowerPointTemplate. Remember to close it after use.
               if(CategoryRdr!=null)
                    CategoryRdr.Close();
          }

          //--- Get an OleDbDataReader containing a list of product categories
          private OleDbDataReader GetCategoryReader()
          {
               OleDbConnection Conn = new OleDbConnection();
               Conn.ConnectionString = Application["connstring"].ToString();

               //--- SQL query for a list of categories
               string CategorySQL = "SELECT CategoryName FROM Categories";
               OleDbCommand Cmd = new OleDbCommand(CategorySQL, Conn);
               Conn.Open();
               return Cmd.ExecuteReader();
          }
        

Option Strict On
Option Explicit On

Dim CategoryRdr As OleDbDataReader = GetCategoryReader()
Try
Dim pptt As New PowerPointTemplate()
pptt.BindData(CategoryRdr, _
"Category", _
PowerPointTemplate.CreateDataBindingProperties())
Catch ex As System.Exception
Finally
'--- The OleDbDataReader must be open when it's passed
'--- to PowerPointTemplate. Remember to close it after use.
If Not CategoryRdr = Nothing
CategoryRdr.Close()
End If
End Try

'--- Get an OleDbDataReader containing a list of product categories
Private Function GetCategoryReader() As 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 OleDbCommand(CategorySQL, Conn)
Conn.Open()
Return Cmd.ExecuteReader()
End Function