VBNet - Форум - Работа с Excel

Вопрос: Работа с Excel Добавлено: 12.06.07 09:45

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

Добрый день! Не могли бы вы помочь в решении одной задачи. Необходимо сделать выгрузить данные запроса в Excel. Есть такой код:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As New OracleConnection
        conn.ConnectionString = "Data Source=название БД;User Id=Иванов;Password=****;Integrated Security=no"
        conn.Open()
        Dim commMMS As OracleCommand = New OracleCommand("select count(t.dialed) as COUNT_OUT, sum(t.duration) as SUMMA_D from calls t where and t.start_time>=:START_DATE and t.start_time<=to_date(:END_DATE)+1", conn)
        commMMS.CommandType = CommandType.Text

        Dim ps, pe As New OracleClient.OracleParameter
        ps.ParameterName = ":START_DATE"
        ps.Direction = ParameterDirection.Input
        ps.OracleType = OracleType.DateTime
        ps.Value = DTP1.Text
        commMMS.Parameters.Add(ps)

        pe.ParameterName = ":END_DATE"
        pe.Direction = ParameterDirection.Input
        pe.OracleType = OracleType.DateTime
        pe.Value = DTP2.Text
        commMMS.Parameters.Add(pe)

        Dim dr As OracleDataReader = commMMS.ExecuteReader

        Dim app As New Excel.Application
        Dim wb As Excel.Workbook
        Dim ws As Excel.Worksheet

        app.Visible() = True
        wb = app.Workbooks.Add
        ws = wb.Worksheets(1)
        ws.Cells(2, 2) = "Кол-во звонков"
        ws.Cells(2, 3) = "Кол-во минут"

        With ws.Range("B2", "С2")
            .Font.Bold() = True
            '.VerticalAlignment() = XlVAlign
            .BorderAround()
            .ColumnWidth = 15
            .RowHeight = 60
        End With


        While dr.Read()
'Здесь нужно прописать логику выгрузки данных из DataReader в Excel.

Помогите пожалуйста это сделать.

        End While
        dr.Close()
        conn.Close()

    End Sub

Ответить

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

Номер ответа: 1 Автор ответа: ПтирЯ Вопросов: 11 Ответов: 71	Профиль \| \| #1	Добавлено: 14.06.07 17:41
	А что тебя смущает? не знаешь откуда брать данные? не знаешь куда их писать? P.S. app.Visible = True - рекомендую это делать(если только не отлаживаешься пошагово) только после заполнения. даже в начале работы стоит сделать app.Visible= False, и в конце заполнения уже сделать app.Visible = True. Это позволит ускорить заполнение данными (у меня получалось даже в 1,5-2 раза). Ответить

Страница: 1 |