Database

<br />
SELECT *<br />
FROM schedule <br />
WHERE DATEPART(MONTH,sel_date) = @MonthParameter<br />
AND DATEPART(YEAR,sel_date) = @YearParameter<br />

Bassam Saoud wrote:

and then Added a report from the Add New Item dialog

Bit_Flipper wrote:

I know how to do everything. Any comments are greatly appreciated.

Sub WriteToExcel(objAdoResultSet, strTemplateFile, strNewFilePath)
   Dim objFSO, objExcelConn, objExcelRS, arrData, lngRow, intField

   'Copy the template spreadsheet, and open a recordset.
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Call objFSO.CopyFile(strTemplateFile, strNewFilePath, True)
   Set objExcelConn = CreateObject("ADODB.Connection")
   Call objExcelConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=" & strNewFilePath & ";" & _
         "Extended Properties=""Excel 8.0;HDR=NO""")
   Set objExcelRS = CreateObject("ADODB.RecordSet")
   Call objExcelRS.Open("SELECT * FROM [Sheet1$]", objExcelConn, _
         adOpenKeyset, adLockOptimistic)
   Call objExcelRS.MoveLast() 'Position cursor on formatting row.

   'Write data to the spreadsheet recordset.
   arrData = objAdoResultSet.GetRows()
   With (objExcelRS)
      For lngRow = 0 To UBound(arrData, 2)
         Call .AddNew()
         For intField = 0 To UBound(arrData, 1)
            .Fields(intField).Value = arrData(intField, lngRow)
         Next
         Call .Update()
      Next
   End With

   'Tidy up.
   Call objExcelRS.Close()
   Set objExcelRS = Nothing
End Sub

adnanrafiq wrote:

first i m getting these two errors

adnanrafiq wrote:

when i try to call the from my DAL layer i got exception