| Вопрос: Вывод данных | Добавлено: 13.01.10 10:55 |
Автор вопроса:  Iren | ICQ: 496876583 |
|
Добрый день! Я данные рекордсета вывожу в нужные ячейки
Dim rspricall1 As ADODB.Recordset: Set rspricall1 = New ADODB.Recordset
Set rspricall1.ActiveConnection = con Sql = " select count(t.chrg_id), sum(t.amount_$) " Sql = Sql & " from bis.charges t" Sql = Sql & " where t.prcl_prcl_id=10109" Sql = Sql & " and t.amount_$=0" Sql = Sql & " and t.del_user is null" 'Sql = Sql & " and t.navi_date like '09.01.10'" Sql = Sql & " and t.navi_date like '" + dt + "'" rspricall1.Open Sql, con Sheets("Лист1").Select Cells(3, 2).CopyFromRecordset rspricall1 Cells(4, 2).CopyFromRecordset rspricall1 rspricall1.Close Я знаю что каждый столбец рекордсета записывается в столбце листа. а нельзя сделать чтобы значение следующего столбца рекордсета записывалось не в следующий столбец листа а строчкой ниже? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: Iren ICQ: 496876583 Вопросов: 11 Ответов: 25 |
Профиль | | #1 | Добавлено: 13.01.10 12:21 |
| может я не совсем понятно объяснила. в моем запросе 2 поля: кол-во и сумма. и при выгрузке значения этих полей записываются в строчку Cells(3,2) Cells(3,3). но мне нужно сделать чтобы эти значения выводились в столбик Cells(3,2) Cells(4,2), как нужно заказчику. конечно можно это сделать 2-мя запросами, но это увеличивает код. можно ли как то это обойти, используя один запрос? | ||
|
Номер ответа: 2 Автор ответа: IrenICQ: 496876583 Вопросов: 11 Ответов: 25 |
Профиль | | #2 | Добавлено: 14.01.10 12:08 |
|
Я попробовала использовать это
Cells(3, 2).rspricall1.Field(1).Value Но при запуске дает ошибку. Возможно здесь чего то не хватает. Помогите пожалуйста. |
||
Страница: 1 |