Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выборка с присвоением значений / 7 сообщений из 7, страница 1 из 1
21.02.2008, 14:04
    #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:12
    #35147577
Petr_I
Petr_I
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выборка с присвоением значений
прошу подскажите!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 14:20
    #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:22
    #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:26
    #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:32
    #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:44
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выборка с присвоением значений / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 384ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162676]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 242ms
total:  384ms
x
x
Закрыть


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