ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выборка с присвоением значений
7 сообщений из 7, страница 1 из 1
Выборка с присвоением значений
    #35147528
Petr_I
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Petr_I
Гость
Достаю из базы Access данные
вставляю их в эксель и нужные результаты возвращаю в таблицу в Acccess в пустые строки

Код: 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.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Sub dataaccess()
Dim db As Database
Dim rs As Recordset

Dim Sh As Worksheet
Dim wb As Workbook
'Set wb = ActiveWorkbook
Set Sh = ActiveSheet

Set db = OpenDatabase("C:\Мои Документы\All credits.mdb")
Set rs = db.OpenRecordset("select * from autoaccs")

Do While Not rs.EOF
  Sh.Cells( 35 ,  3 ) = rs![Ставка] /  100 
  Sh.Cells( 38 ,  3 ) = rs![Разовая комиссия USD]
  Sh.Cells( 40 ,  3 ) = rs![Ежемесячная комиссия %] /  100 
  Sh.Cells( 36 ,  3 ) = rs![r]
  Sh.Cells( 9 ,  3 ) = rs![Сумма USD]
  Sh.Cells( 10 ,  3 ) = rs![Срок]
  Sh.Cells( 39 ,  3 ) = rs![Первонач USD]
  Sh.Cells( 5 ,  3 ) = rs![Город]
  Sh.Cells( 6 ,  3 ) = rs![Segment1]
  Sh.Cells( 7 ,  3 ) = rs![Тип акции]
  Sh.Cells( 8 ,  3 ) = rs![Категоря авто]
  Sh.Calculate
  rs.Edit
  rs!IntRate = Sh.Cells( 15 ,  4 )
  rs!NCL = Sh.Cells( 25 ,  3 )
  rs!OpEx = Sh.Cells( 26 ,  3 ) + Sh.Cells( 28 ,  3 )
  rs!FeesRate = Sh.Cells( 19 ,  4 ) + Sh.Cells( 20 ,  4 )
  rs!InsurRate = Sh.Cells( 21 ,  4 )
  rs!CoFRate = Sh.Cells( 16 ,  4 )
  rs!NCLRate = Sh.Cells( 25 ,  4 )
  rs!OpExRate = Sh.Cells( 26 ,  4 ) + Sh.Cells( 28 ,  4 )
  rs.Update

rs.MoveNext
Loop
rs.Close
db.Close
End Sub

мне сейчас нужно:
выбирая из [Город] и получая значения Москва, Казань, Саратов, Курск
в ячейку Sh.Cells(5, 3) подставлять Москва или Регион(вместо Казань, Курск, Саратов)
спасибо!
...
Рейтинг: 0 / 0
21.02.2008, 14:04
| Ответить | Цитировать | Написать  
Выборка с присвоением значений
    #35147577
Petr_I
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Petr_I
Гость
прошу подскажите!
...
Рейтинг: 0 / 0
21.02.2008, 14:12
| Ответить | Цитировать | Написать  
Выборка с присвоением значений
    #35147612
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
вероятно так

Код: plaintext
Sh.Cells( 5 ,  3 ) = iif(rs![Город] = "Москва", rs![Город], "Регион")

либо в самом запросе получать нужные значения


I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
21.02.2008, 14:20
| Ответить | Цитировать | Написать  
Выборка с присвоением значений
    #35147628
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Petr_I
Ну так и напиши
If rs![Город] = "Москва" then
> Sh.Cells(5, 3) = rs![Город]
else
> Sh.Cells(5, 3) = "Регион"
end if


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.02.2008, 14:22
| Ответить | Цитировать | Написать  
Выборка с присвоением значений
    #35147646
Petr_I
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Petr_I
Гость
HandKotвероятно так

Код: plaintext
Sh.Cells( 5 ,  3 ) = iif(rs![Город] = "Москва", rs![Город], "Регион")

либо в самом запросе получать нужные значения


I Have Nine Lives You Have One Only
THINK!

не работает! синтах ерор! что так
Sh.Cells(5, 3) = if(rs![Город] = "Москва", rs![Город], "Регион")
что так
Sh.Cells(5, 3) = rs!(if([Город] = "Москва",[Город],"Регион"))
...
Рейтинг: 0 / 0
21.02.2008, 14:26
| Ответить | Цитировать | Написать  
Выборка с присвоением значений
    #35147678
Petr_I
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Petr_I
Гость
[quot Игорь Горбонос]
> Автор: Petr_I
Ну так и напиши
If rs![Город] = "Москва" then
> Sh.Cells(5, 3) = rs![Город]
else
> Sh.Cells(5, 3) = "Регион"
end if

написал! error 2042 method 'Collect' of object 'Recordset' faild
...
Рейтинг: 0 / 0
21.02.2008, 14:32
| Ответить | Цитировать | Написать  
Выборка с присвоением значений
    #35147746
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Ну так и напиши
Dim s as String
s = rs![Город]
> If s = "Москва" then
> > Sh.Cells(5, 3) = rs![Город]
> else
> > Sh.Cells(5, 3) = "Регион"
> end if
или перепиши на использование ADO

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.02.2008, 14:44
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выборка с присвоением значений
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35147678&tid=2162676]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 57ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 244ms
total:  388ms
созд. / загр.: 388ms
x
x
Закрыть


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