Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обьединенный запрос в DataReport / 8 сообщений из 8, страница 1 из 1
10.12.2007, 19:13
    #34999390
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обьединенный запрос в DataReport
Народ подскажите плз, Есть таблица , есть два поля в запросе резултаты которых нужно поместить в один DataReport
tckb делаю запрос на один результат то все нормально, а вот когда на оба то пишет Метод Open объекта Recordset filed
вот такой вот у менязапрос , подскжите что не так либо возможен другой вариант?
Код: 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.
[/src]......
Private Sub OKButton_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cm As String
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = App.Path & "\ReportITD.mdb"
    .Open
End With

    cm = "SELECT *, (100*tblDataInput.FirstLine/tblDataInput.AllDemand) AS Rezultat, (100*tblDataInput.Close/tblDataInput.PlanDemand) AS Rezultat1" & _
    " FROM tblDataInput Where Month = '" & Me.Combo1.Text & "' and Year='" & Me.Combo2.Text & "'"

With rs
    .ActiveConnection = cn
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open cm     'ВОТ НА ЭТОМ МЕСТЕ ПИШЕТ ОШИБКУ  ПРИ ПРОВЕРКЕ ПО ШАГАМ
End With
If rs.RecordCount >  0  Then
    Set DataReport3.DataSource = rs
    DataReport3.Sections("Section1").Controls("txtRezultat").DataField = "Rezultat"
    DataReport3.Sections("Section1").Controls("txtRezultat1").DataField = "Rezultat1"
    DataReport3.Sections("Section4").Controls("lblRHeader").Caption = "за " & Me.Combo1.Text
    DataReport3.Sections("Section4").Controls("lblRHeader1").Caption = Me.Combo2.Text
.....[SRC vba]
все данные из одной записи из разных полей
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2007, 08:18
    #34999925
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обьединенный запрос в DataReport
Не совсем понятно что имеется в виду. авторделаю запрос на один результат то все нормально, а вот когда на оба то пишет...
Если еще раз ткнуть OKButton ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2007, 08:28
    #34999935
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обьединенный запрос в DataReport
какую шибку пишет
Open cm 'ВОТ НА ЭТОМ МЕСТЕ ПИШЕТ ОШИБКУ ПРИ ПРОВЕРКЕ ПО ШАГАМ
имена полей типа Month Year лучше писать через кв.скобки [Month] или переименовать
так попробуй
"SELECT *, (100*[FirstLine]/AllDemand) AS Rezultat, (100* [Close]/PlanDemand) AS Rezultat1" & _
" FROM tblDataInput Where [Month] = '" & Me.Combo1.Text & "' and [Yea]r='" & Me.Combo2.Text
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2007, 08:30
    #34999939
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обьединенный запрос в DataReport
поправочка
[Year]=
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2007, 09:01
    #34999992
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обьединенный запрос в DataReport
TIKO как всегда большое спасибо
сделал селект как порекомендовал
Код: plaintext
1.
2.
[/src]" SELECT *, (100*[FirstLine]/AllDemand) AS Rezultat, (100* [Close]/PlanDemand) AS Rezultat1" & _
" FROM tblDataInput Where Month = '" & Me.Combo1.Text & "' and Year='" & Me.Combo2.Text & "'"
[SRC vba]
все равно спасибо теперь хоть запрос стал выполнятся, вся моя ошибка была в скобках выражений хотя Month Year без скобок тоже работают:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2007, 09:05
    #34999998
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обьединенный запрос в DataReport
TIKO ещё вопросик можно , простой надеюсь, сам что то недогоняю
Как ограничить количество цифирек после запятой , а то в расчете Rezulalt в отчет пишется по 5-7 цифирек , пробовал подсунуть ему другие форматы , почему то не правильно их понимает , пришлось оставить General
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2007, 10:03
    #35000121
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обьединенный запрос в DataReport
Попробуй использовать ROUND(FieldName ,2) в запросе.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.12.2007, 11:01
    #35000331
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обьединенный запрос в DataReport
Спасиб за подсказку , оказалось в самом репорте всетаки можно настроить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обьединенный запрос в DataReport / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 380ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162968]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 57ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 250ms
total:  380ms
x
x
Закрыть


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