VBNet - Форум - Сохранение отчета на рабочем компьютере

Вопрос: Сохранение отчета на рабочем компьютере Добавлено: 13.01.09 14:04

Автор вопроса: Iren | ICQ: 496876583

Добрый день! В общем вопрос такой у меня есть Web-приложение, в котором есть отчеты. Эти отчеты выгружают данные в Excel...

Dim conn As New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ApplicationConnectionString").ConnectionString)
        Dim app As New Excel.Application
        Dim wb As Excel.Workbook
        Dim ws As Excel.Worksheet
        wb = app.Workbooks.Add
        ws = wb.Worksheets(1)

        Dim i, y As Integer
        i = 4
        y = 1
        ws.Cells(3, 1) = "№ п/п"
        ws.Cells(3, 2) = "Дата собеседования"
        ws.Cells(3, 3) = "Фамилия"
        ws.Cells(3, 4) = "Имя"
        ws.Cells(3, 5) = "Отчество"
        ws.Cells(3, 6) = "Дата рождения"

        Dim comm1 As New SqlCommand("SELECT c.candidateID, " & _
"c.date_interview, " & _
"c.surname, " & _
"c.name, " & _
"c.patronymic, " & _
"c.birthday " & _
"FROM candidates c " & _
"WHERE c.date_interview BETWEEN @START_DATE AND @END_DATE", conn)
        comm1.CommandType = CommandType.Text

        Dim psd, ped, prs As New SqlClient.SqlParameter
        psd.ParameterName = "@START_DATE"
        psd.Direction = ParameterDirection.Input
        psd.SqlDbType = SqlDbType.DateTime
        psd.Value = TbStartDate.Text
        comm1.Parameters.Add(psd)

        ped.ParameterName = "@END_DATE"
        ped.Direction = ParameterDirection.Input
        ped.SqlDbType = SqlDbType.DateTime
        ped.Value = TbEndDate.Text
        comm1.Parameters.Add(ped)

        conn.Open()

        Dim dr As SqlDataReader
        dr = comm1.ExecuteReader

        While dr.Read
            ws.Cells(i, 1) = y
            ws.Cells(i, 2) = dr(1)
            ws.Cells(i, 3) = dr(2)
            ws.Cells(i, 4) = dr(3)
            ws.Cells(i, 5) = dr(4)
            ws.Cells(i, 6) = dr(5)
            i = i + 1
            y = y + 1
        End While
        conn.Close()
        dr.Close()
        app.Visible = True
    End Sub

Этот Excel-ий файл формируется на сервере, и пользователь не может сохранить его на своей машине. Подскажите пожалуйста, как сделать чтобы нажатии кнопки сформировать отчет, программа сразу предлагала его сохранить?[/CODE]
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Father Вопросов: 0 Ответов: 159	Профиль \| \| #1	Добавлено: 14.01.09 02:57
	wb.SaveAs ? Вообще не понятно, как клиент использует приложение, содержащее этот код? Как Excel-ий файл может формироваться на сервере? Ответить

Страница: 1 |