ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с макросом...
50 сообщений из 50, показаны все 2 страниц
  все  
помогите с макросом...
    #36728741
malvas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
malvas
Гость
Добрый день!
Мне необходимо сделать следующее.
У меня есть таблица на SQL Server. Данные из этой таблицы надо переместить в определенные ячейки Excel, потом они пересчитаются с помощью формул и уже из посчинанных ячеек в Excele с результатом их надо переместить в определенные пустые столбцы того же SQL Server (пустые поля в базе данных будут созданы для этих целей). Если знаете, подскажите пожалуйста или подскажите где посмотреть... Я даже не знаю с чего начать (думаю надо писать макрос)...
Заранее спасибо!!!
...
Рейтинг: 0 / 0
07.07.2010, 18:09
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36728749
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
malvas,

А какие знания имеются?
Как соединиться с сервером?
Как работать с ячейками?
...
Рейтинг: 0 / 0
07.07.2010, 18:11
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36728758
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: malvas
> Добрый день!
> Мне необходимо сделать следующее.

Вот код для получения данных
из MSSQL и разбрасывания полученных данных по ячейкам. подумай, исправь под свои нужды и на этой основе напиши код
получения нужных данных из ячеек, составление запроса на вставку и отправку этого запроса на сервер.
Вообщем обычная обыденщина

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
07.07.2010, 18:13
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36728906
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
этим навеяло...
А нужен ли экселевский файл как результат?
SQL Server обладает достаточно мощными средствами, чтобы обрабатывать данные "не выходя из дома", в смысле прямо на сервере.

А то помню тут дама пыталась достать данные с сервера, чтобы высчитать в страшном цикле на VB среднеквадратичное отклонение и была очень рада, когда я ей подсказал, что в SQL это делается одной-единственной(!) функцией
...
Рейтинг: 0 / 0
07.07.2010, 19:16
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732027
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Игорь Горбонос
> Автор: malvas
> Добрый день!
> Мне необходимо сделать следующее.

Вот код для получения данных
из MSSQL и разбрасывания полученных данных по ячейкам. подумай, исправь под свои нужды и на этой основе напиши код
получения нужных данных из ячеек, составление запроса на вставку и отправку этого запроса на сервер.
Вообщем обычная обыденщина




Игорь, добрый день!
Не могу разобраться, почему он ругается на строку объявления переменной -
Dim cn As New ADODB.Connection
В чем может быть проблема ?
...
Рейтинг: 0 / 0
09.07.2010, 11:17
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732035
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
stavdius,

Project - References -
найти и подключить библиотеку Micrisoft ActiveX Data Objects
...
Рейтинг: 0 / 0
09.07.2010, 11:20
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732051
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.ProProject - References -
в экселе: Tools - References -
...
Рейтинг: 0 / 0
09.07.2010, 11:25
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732061
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Shocker.Pro,
Но там этого меню нет, это не VB Net, а VB для Ecxel
...
Рейтинг: 0 / 0
09.07.2010, 11:27
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732063
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Shocker.Pro,

Спасибо, нашел.
но он не активен... ((
Что о нужно включить ?
...
Рейтинг: 0 / 0
09.07.2010, 11:28
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732067
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
stavdiusShocker.Pro,

Спасибо, нашел.
но он не активен... ((
Что о нужно включить ?

Включил МозГ. Работает )
...
Рейтинг: 0 / 0
09.07.2010, 11:29
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732232
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Еще один вопрос. Считать данные из БД получилось. В шаблоне Excel зашиваю формулу, к примеру в ячейке D зашита формула - B+C
Мне нужно полученный результат записать в БД.
В цикле вывожу, я так понимаю в этом же цикле, нужно и вставлять данные.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Do Until rs.EOF
        Cells(q,  1 ) = rs.Fields( 0 )
        Cells(q,  2 ) = rs.Fields( 1 )
        Cells(q,  3 ) = rs.Fields( 2 )
        Cells(q,  4 ) = rs.Fields( 3 )
        Cells(q,  5 ) = rs.Fields( 4 )
        Cells(q,  6 ) = rs.Fields( 5 )
        Cells(q,  7 ) = rs.Fields( 6 )
        Cells(q,  8 ) = rs.Fields( 7 )
        Cells(q,  9 ) = rs.Fields( 8 )
        Cells(q,  10 ) = rs.Fields( 9 )
        Cells(q,  11 ) = rs.Fields( 10 )
        Cells(q,  12 ) = rs.Fields( 11 )
        Cells(q,  13 ) = rs.Fields( 12 )
        Cells(q,  14 ) = rs.Fields( 13 )
        Cells(q,  15 ) = rs.Fields( 14 )
        Cells(q,  16 ) = rs.Fields( 15 )
        Cells(q,  17 ) = rs.Fields( 16 )
        q = q +  1 
        rs.MoveNext
    Loop
...
Рейтинг: 0 / 0
09.07.2010, 12:16
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732274
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: stavdius
> Еще один вопрос. Считать данные из БД получилось. В шаблоне Excel зашиваю формулу, к примеру в ячейке D зашита
> формула - B+C
> Мне нужно полученный результат записать в БД.

> В цикле вывожу
Замени на:
Код: plaintext
1.
2.
3.
4.
5.
6.
Do Until rs.EOF
    For i =  1  To  16  ' или rs.Fields.Count
        Cells(q, i) = rs.Fields(i -  1 )
    Next i
    q = q +  1 
    rs.MoveNext
Loop

> я так понимаю в этом же цикле, нужно и вставлять данные.

Не понял вопроса
Или ты спрашиваешь что после вставки данных можно сразу и забирать данные??
Это отсюда не видно. Потому что расчет может вестись по всем данным из рекордсета.
Если брать за основу твой пример с формулой B+C то здесь будет зависить от того какое второе слагаемое. Если вторым
слагаемым стоит простое число, то да - забирать можно сразу, а если в ячейку второго слагаемого будет записыватся число
из рекордсета, то нет - забирать нельзя пока не будут прописанны оба слагаемых :)

И это сложение можно было сделать прямо на сервере, не вытаскивая данные в ексел :)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
09.07.2010, 12:27
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732347
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Да, считали данный в ячейку А1 = 2, В1=2 - а в ячейке D1 сложили А1+В1 = 4
Значение 4 нужно записать в БД.
И так далее построчно
...
Рейтинг: 0 / 0
09.07.2010, 12:55
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732354
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
stavdiusДа, считали данный в ячейку А1 = 2, В1=2 - а в ячейке D1 сложили А1+В1 = 4
Значение 4 нужно записать в БД.
И так далее построчно
это учебное задание что ли?
или на работу устраиваетесь?
...
Рейтинг: 0 / 0
09.07.2010, 12:57
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732359
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Shocker.ProstavdiusДа, считали данный в ячейку А1 = 2, В1=2 - а в ячейке D1 сложили А1+В1 = 4
Значение 4 нужно записать в БД.
И так далее построчно
это учебное задание что ли?
или на работу устраиваетесь?

Да нет, работаю )))
Просто первый раз столкнулся с VB в Excel.
Немного программирую в VB Net
...
Рейтинг: 0 / 0
09.07.2010, 12:59
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732362
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
stavdiusДа нет, работаю )))
тогда зачем нужен эксель, чтобы сложить два поля БД?
...
Рейтинг: 0 / 0
09.07.2010, 13:00
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732383
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
задача какая то мутная у вас. рассказывайте, что вам действительно надо , а не то как вам приснилось, что это можно сделать таким образом
...
Рейтинг: 0 / 0
09.07.2010, 13:04
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732390
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Shocker.ProstavdiusДа нет, работаю )))
тогда зачем нужен эксель, чтобы сложить два поля БД?

Давайте по существу...
Я привел пример с двумя полями потому, что я не пойму как записывать в БД рассчитанные значения.
Excel - удобен для аналитики. А в БД у нас сливаются циыфирьки, по которым нужно провести расчет...
...
Рейтинг: 0 / 0
09.07.2010, 13:05
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732398
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
stavdiusShocker.ProstavdiusДа нет, работаю )))
тогда зачем нужен эксель, чтобы сложить два поля БД?

Давайте по существу...
Я привел пример с двумя полями потому, что я не пойму как записывать в БД рассчитанные значения.
Excel - удобен для аналитики. А в БД у нас сливаются циыфирьки, по которым нужно провести расчет...


вы опять что-то недоговариваете
...
Рейтинг: 0 / 0
09.07.2010, 13:06
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732412
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
stavdius[Давайте по существу...
Я привел пример с двумя полями потому, что я не пойму как записывать в БД рассчитанные значения.
Я вам задал вопрос про наличествующие знания, вы не ответили.
Писать в БД можно по-разному. Можно сформировать и выполнить "insert" на клиенте. Можно выполнить SP на сервере. Какой нужен вариант?
...
Рейтинг: 0 / 0
09.07.2010, 13:08
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732421
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Konst_OnestavdiusShocker.ProstavdiusДа нет, работаю )))
тогда зачем нужен эксель, чтобы сложить два поля БД?

Давайте по существу...
Я привел пример с двумя полями потому, что я не пойму как записывать в БД рассчитанные значения.
Excel - удобен для аналитики. А в БД у нас сливаются циыфирьки, по которым нужно провести расчет...


вы опять что-то недоговариваете

Делаем расчет доходности проекта.
Исходные данные, у нас заливаются ежедневно джобом на сервере. В итоге, расчет весь находится в ecxel, в него подставляет значения из БД, и рассчитанные значения записываем в БД.
Далее, по этим данным строим сводную таблицу с графиками...
...
Рейтинг: 0 / 0
09.07.2010, 13:10
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732424
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
stavdiusKonst_OnestavdiusShocker.ProstavdiusДа нет, работаю )))
тогда зачем нужен эксель, чтобы сложить два поля БД?

Давайте по существу...
Я привел пример с двумя полями потому, что я не пойму как записывать в БД рассчитанные значения.
Excel - удобен для аналитики. А в БД у нас сливаются циыфирьки, по которым нужно провести расчет...


вы опять что-то недоговариваете

Делаем расчет доходности проекта.
Исходные данные, у нас заливаются ежедневно джобом на сервере. В итоге, расчет весь находится в ecxel, в него подставляет значения из БД, и рассчитанные значения записываем в БД.
Далее, по этим данным строим сводную таблицу с графиками...

так , если у вас всё работает, то в чём собственно вопрос?
...
Рейтинг: 0 / 0
09.07.2010, 13:11
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732451
malvas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
malvas
Гость
у нас действительно всё работает но с access, но теперь встала задача сделать подобное с SQL Server.
В access мы делали вот так


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Sub dataaccess()
Dim db As Database
Dim rs As Recordset

Dim Sh As Worksheet
Dim wb As Workbook
Dim s As String
Set Sh = ActiveSheet

Set db = OpenDatabase("D:\Мои документы\BRB\BRB.mdb")
Set rs = db.OpenRecordset("select * from KK10t")

Do While Not rs.EOF
  Sh.Cells( 15 ,  5 ) = rs![limit_usd]
  Sh.Cells( 10 ,  7 ) = rs![product_podname]
  Sh.Cells( 9 ,  7 ) = rs![platsys]
  Sh.Cells( 8 ,  7 ) = rs![podnaim]

 
  Sh.Calculate
  rs.Edit
  rs!IntRate = Sh.Cells( 16 ,  7 )
  rs.Update

rs.MoveNext
Loop
rs.Close
db.Close
End Sub
это я написала упрощенный вариант...
...
Рейтинг: 0 / 0
09.07.2010, 13:19
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732457
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
так же почти и будет, только сделайте на ADO, примеров открытия соединения с SQL-сервер и выполнения запросов, получения/одновления рекордсета на форуме полно
...
Рейтинг: 0 / 0
09.07.2010, 13:21
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732458
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
malvasу нас действительно всё работает но с access, но теперь встала задача сделать подобное с SQL Server.
Если не заниматься рефакторингом, то ADO пофиг, работать с аксессом или с SQL-сервером. Меняется только строка подключения.
...
Рейтинг: 0 / 0
09.07.2010, 13:21
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732486
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Shocker.Promalvasу нас действительно всё работает но с access, но теперь встала задача сделать подобное с SQL Server.
Если не заниматься рефакторингом, то ADO пофиг, работать с аксессом или с SQL-сервером. Меняется только строка подключения.

Парни, спасибо за помощь, но я писал, что в VB Ecxel пока не разбираюсь. На форуме попросил помощи. В ответ получаю критику....

В цикле нужно вывести значение в ячейки, рассчитать, и записать в БД..

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
q =  2 
Do Until rs.EOF
    For i =  0  To rs.Fields.Count -  1 
        Cells(q, i +  1 ) = rs.Fields(i)
        Cells(q,  3 ) = Cells(q,  1 ) + Cells(q,  2 )
    Next i
    q = q +  1 
    rs.MoveNext
Loop
...
Рейтинг: 0 / 0
09.07.2010, 13:30
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732502
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
stavdiusПарни, спасибо за помощь, но я писал, что в VB Ecxel пока не разбираюсь.
А и писал, что там то же самое, что в аксесс.
Код: plaintext
1.
2.
  rs.Edit
  rs!IntRate = Sh.Cells( 16 ,  7 )
  rs.Update
это ваш же код.
...
Рейтинг: 0 / 0
09.07.2010, 13:33
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732514
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
stavdiusVB Ecxel пока не разбираюсь.
чтобы было понятнее
Сам VB Excel не отличается от VB Access. Отличаются только объекты.
Но ADO - объект внешний, он тоже одинаков для аксесса и для экселя.

Как работать с ячейками в эксели - вы уже разобрались. Остальное - то же самое.
...
Рейтинг: 0 / 0
09.07.2010, 13:35
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732559
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Shocker.ProstavdiusПарни, спасибо за помощь, но я писал, что в VB Ecxel пока не разбираюсь.
А и писал, что там то же самое, что в аксесс.
Код: plaintext
1.
2.
  rs.Edit
  rs!IntRate = Sh.Cells( 16 ,  7 )
  rs.Update
это ваш же код.

Ругается...
q = 2
Do Until rs.EOF
For i = 0 To rs.Fields.Count - 1
Cells(q, i + 1) = rs.Fields(i)
Cells(q, 3) = Cells(q, 1) + Cells(q, 2)
rs.Edit
rs!IntRate = Sh.Cells(q, 3)
rs.Update
Next i
q = q + 1
rs.MoveNext
Loop
...
Рейтинг: 0 / 0
09.07.2010, 13:41
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732570
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
stavdiusРугается...
Либо определяйте и программируйте SH так же, как делаете в аксессе, либо просто уберите. Ну нельзя же так тупо подходить к вопросу. Включайте мозг, вы ж делали это на предыдущей странице
...
Рейтинг: 0 / 0
09.07.2010, 13:44
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732609
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Edit у рекордсета ADO отстуствует, его не нужно использовать
...
Рейтинг: 0 / 0
09.07.2010, 13:54
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732630
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.Open SQL, , adOpenKeyset, adLockBatchOptimistic, adCmdText

Do While Not rs.EOF
    'тут считываете
    ...
    'собственно обновление записей в базе
    rs!Field1 = "efgse" 'текст
    rs!Field2 =  12123   'число
    rs.MoveNext 'следующая запись
Loop

rs.UpdateBatch 'обновление всего массива
...
Рейтинг: 0 / 0
09.07.2010, 14:00
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732740
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Konst_One
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.Open SQL, , adOpenKeyset, adLockBatchOptimistic, adCmdText

Do While Not rs.EOF
    'тут считываете
    ...
    'собственно обновление записей в базе
    rs!Field1 = "efgse" 'текст
    rs!Field2 =  12123   'число
    rs.MoveNext 'следующая запись
Loop

rs.UpdateBatch 'обновление всего массива


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
 q =  2 
    Do Until rs.EOF
        For i =  0  To rs.Fields.Count -  1 
           Cells(q, i +  1 ) = rs.Fields(i)
           Cells(q,  3 ) = Cells(q,  1 ) + Cells(q,  2 )
        Next i
            'rs.Fields(i) = Cells(q, 3)
            rs!Fields(i) =  12   'Cells(q, 3)
            q = q +  1 
        rs.MoveNext
    Loop
        rs.UpdateBatch
...
Рейтинг: 0 / 0
09.07.2010, 14:44
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732743
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
stavdius,

А строку указывать, на которой возникает ошибка, слабо?
А то гадать тяжело...
...
Рейтинг: 0 / 0
09.07.2010, 14:45
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732745
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
rs!Fields(i) = 12 'Cells(q, 3)


и какое i вы там наблюдаете?
...
Рейтинг: 0 / 0
09.07.2010, 14:45
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732748
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.Prostavdius,

А строку указывать, на которой возникает ошибка, слабо?
А то гадать тяжело...
А, вот угадал.
Код: plaintext
rs!Fields(i) =  12
это внутри цикла надо делать, чему у вас в этот момент i равно?
...
Рейтинг: 0 / 0
09.07.2010, 14:46
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732752
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Konst_Oners!Fields(i) = 12 'Cells(q, 3)


и какое i вы там наблюдаете?

в место "Fields(i) " нужно вписывать название столбца и БД ?
...
Рейтинг: 0 / 0
09.07.2010, 14:48
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732753
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
упс, я только что обнаружил, что мы общаемся не с автором топика....
...
Рейтинг: 0 / 0
09.07.2010, 14:48
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732760
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.Pro упс, я только что обнаружил, что мы общаемся не с автором топика....

авторша топика уже давно всё сама сделала, а этот товарищ всё блуждает в 3-х соснах
...
Рейтинг: 0 / 0
09.07.2010, 14:50
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732772
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Konst_OneShocker.Pro упс, я только что обнаружил, что мы общаемся не с автором топика....

авторша топика уже давно всё сама сделала, а этот товарищ всё блуждает в 3-х соснах

Авторша в отпуск пошла ... =)))))
...
Рейтинг: 0 / 0
09.07.2010, 14:53
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732774
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
stavdiusKonst_Oners!Fields(i) = 12 'Cells(q, 3)


и какое i вы там наблюдаете?

в место "Fields(i) " нужно вписывать название столбца и БД ?
охохох
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
 q =  2 
    Do Until rs.EOF
        For i =  0  To rs.Fields.Count -  1 
           Cells(q, i +  1 ) = rs.Fields(i)
           Cells(q,  3 ) = Cells(q,  1 ) + Cells(q,  2 )
            'rs.Fields(i) = Cells(q, 3)
            rs!Fields(i) =  12   'Cells(q, 3)
        Next i

            q = q +  1 
        rs.MoveNext
    Loop
        rs.UpdateBatch
...
Рейтинг: 0 / 0
09.07.2010, 14:54
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732800
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Shocker.ProstavdiusKonst_Oners!Fields(i) = 12 'Cells(q, 3)


и какое i вы там наблюдаете?

в место "Fields(i) " нужно вписывать название столбца и БД ?
охохох
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
 q =  2 
    Do Until rs.EOF
        For i =  0  To rs.Fields.Count -  1 
           Cells(q, i +  1 ) = rs.Fields(i)
           Cells(q,  3 ) = Cells(q,  1 ) + Cells(q,  2 )
            'rs.Fields(i) = Cells(q, 3)
            rs!Fields(i) =  12   'Cells(q, 3)
        Next i

            q = q +  1 
        rs.MoveNext
    Loop
        rs.UpdateBatch



Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 q =  2 
    Do Until rs.EOF
        For i =  0  To rs.Fields.Count -  1 
           Cells(q, i +  1 ) = rs.Fields(i)
           Cells(q,  3 ) = Cells(q,  1 ) + Cells(q,  2 )
        Next i
            'rs.Fields(i) = Cells(q, 3)
           rs![f] = Cells(q,  3 )
           rs.UpdateBatch
            q = q +  1 
        rs.MoveNext
    Loop

Все, считать, рассчитать и залить получилось.
Новый вопрос. =)))
Если в столбце уже есть значения, то он ругается. Можно как то перезаписать значения ?
...
Рейтинг: 0 / 0
09.07.2010, 15:02
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732803
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
stavdius
Если в столбце уже есть значения, то он ругается. Можно как то перезаписать значения ?

в каком столбце? кто ругается и как?
...
Рейтинг: 0 / 0
09.07.2010, 15:04
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732836
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Konst_Onestavdius
Если в столбце уже есть значения, то он ругается. Можно как то перезаписать значения ?

в каком столбце? кто ругается и как?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
  Do Until rs.EOF
        For i =  0  To rs.Fields.Count -  1 
           Cells(q, i +  1 ) = rs.Fields(i)
           Cells(q,  3 ) = Cells(q,  1 ) + Cells(q,  2 )
        Next i
           rs![f] = ""
           rs.UpdateBatch
            q = q +  1 
        rs.MoveNext
    Loop

Ругается на строку - rs.UpdateBatch
...
Рейтинг: 0 / 0
09.07.2010, 15:14
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732853
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
stavdius,

Ключ в таблице определен?
...
Рейтинг: 0 / 0
09.07.2010, 15:19
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732864
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Полезные советы. Содержимое сообщения об ошибке можно скопировать в буфер через Ctrl+C
...
Рейтинг: 0 / 0
09.07.2010, 15:22
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732883
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Shocker.Prostavdius,

Ключ в таблице определен?

Ключ не определен.
...
Рейтинг: 0 / 0
09.07.2010, 15:28
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732888
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
stavdiusShocker.Prostavdius,

Ключ в таблице определен?

Ключ не определен.

ну так определите PK в своей таблице и создайте новое поле с identity и сделайте его PK
...
Рейтинг: 0 / 0
09.07.2010, 15:29
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36732891
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Konst_OnestavdiusShocker.Prostavdius,

Ключ в таблице определен?

Ключ не определен.

ну так определите PK в своей таблице или создайте новое поле с identity и сделайте его PK
...
Рейтинг: 0 / 0
09.07.2010, 15:29
| Ответить | Цитировать | Написать  
помогите с макросом...
    #36733000
stavdius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stavdius
Участник
Konst_OnestavdiusShocker.Prostavdius,

Ключ в таблице определен?

Ключ не определен.

ну так определите PK в своей таблице и создайте новое поле с identity и сделайте его PK

Konst_One, спасибо. Добавил Ключ, записи обновляются.
...
Рейтинг: 0 / 0
09.07.2010, 16:10
| Ответить | Цитировать | Написать  
50 сообщений из 50, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с макросом...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]