ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / как задать параметр null в crystal reports?
32 сообщений из 32, показаны все 2 страниц
  все  
как задать параметр null в crystal reports?
    #35845557
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
Доброго времени суток, уважаемые

Имеется хранимая процедура с параметрами в созданном отчете rpt. Программно я открываю данный отчет и программно опять же хочу задать входные параметры к хранимой процедуре.
Не пустые значения параметра задаются отлично. Но вот как задать пустое значение (на визуальном окне параметра(Enter values) это флаг "set to null" )? и еще вопрос: мне надо задать значение параметра true как это сделать?

код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim crxRep As CRAXDDRT.Report
...

Dim i%
For i =  1  To crxRep.ParameterFields.Count
    If UCase(Trim(crxRep.ParameterFields.Item(i).ParameterFieldName)) = "@ID01" Then
        crxRep.ParameterFields.Item(i).ClearCurrentValueAndRange
        crxRep.ParameterFields.Item(i).AddCurrentValue ( 521521 )
    ElseIf UCase(Trim(crxRep.ParameterFields.Item(i).ParameterFieldName)) = "@A_ID" Then
        crxRep.ParameterFields.Item(i).ClearCurrentValueAndRange
        'вот тут он ругается, что неправильно задается значение параметра
        crxRep.ParameterFields.Item(i).AddCurrentValue (Null)
    ElseIf UCase(Trim(crxRep.ParameterFields.Item(i).ParameterFieldName)) = "@ACTUAL" Then
        crxRep.ParameterFields.Item(i).ClearCurrentValueAndRange
        crxRep.ParameterFields.Item(i).AddCurrentValue (True)
    End If
Next i
...
Рейтинг: 0 / 0
02.03.2009, 11:48
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845577
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
Ошибка, которая вываливается это
автор13 Project1 Type mismatch
...
Рейтинг: 0 / 0
02.03.2009, 11:52
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845615
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
какого типа параметр @A_ID?
Null попробуй заменить на 0
...
Рейтинг: 0 / 0
02.03.2009, 12:04
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845620
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
указанную проблему решила с помощью:
Код: plaintext
1.
crxRep.ParameterFields.Item(i).ClearCurrentValueAndRange
        crxRep.ParameterFields.Item(i).EnableNullValue = True
но остался вопрос: почему выплывает окошко с входными параметрами поле выполнения команды Verify?
...
Рейтинг: 0 / 0
02.03.2009, 12:05
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845623
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
или vbVNull попробуй
...
Рейтинг: 0 / 0
02.03.2009, 12:06
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845632
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
что за Verify?
покажи что ты делаешь и зачем это надо тебе.
...
Рейтинг: 0 / 0
02.03.2009, 12:07
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845641
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
ок, код:
Код: 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.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
Dim CrxApp As New CRAXDDRT.Application
Dim crxRep As CRAXDDRT.Report
....

Private Sub Command1_Click()
Dim sErr As String
Dim Server1$, Database1$, user1$, Password1$
Dim ReportFileName As String

Dim ConInf As ConnectionProperties

On Error GoTo ErrorHandler


ReportFileName = "D:\CrystalReports\MyRep1.rpt"

Set crxRep = CrxApp.OpenReport(ReportFileName)


If Option1.Value Then
    Database1 = DB1Name
ElseIf Option2.Value Then
    Database1 = DB2Name
End If
Server1 =ServerName
user1 = ""
Password1 = ""


Set ConInf = crxRep.Database.Tables( 1 ).ConnectionProperties

ConInf.DeleteAll
ConInf.Add "Provider", "SQLOLEDB"


If crxRep.Database.Tables( 1 ).DllName <> "crdb_ado.dll" Then
    crxRep.Database.Tables( 1 ).DllName = "crdb_ado.dll"
End If


ConInf.Add "Data Source", Server1
ConInf.Add "Initial Catalog", Database1
If (user1 = "") Then
ConInf.Add "Integrated Security", True
End If
'ConInf.Add "User ID", user1
'ConInf.Add "Password", Password1
If Not crxRep.Database.Tables( 1 ).TestConnectivity Then
    MsgBox "No Connection"
End If


Dim i%
For i =  1  To crxRep.ParameterFields.Count
    If UCase(Trim(crxRep.ParameterFields.Item(i).ParameterFieldName)) = "@ID01" Then
        crxRep.ParameterFields.Item(i).ClearCurrentValueAndRange
        crxRep.ParameterFields.Item(i).AddCurrentValue ( 521521 )
    ElseIf UCase(Trim(crxRep.ParameterFields.Item(i).ParameterFieldName)) = "@A_ID" Then
        crxRep.ParameterFields.Item(i).ClearCurrentValueAndRange
        ' c VBVNull тоже работает
        'crxRep.ParameterFields.Item(i).EnableNullValue = True
        crxRep.ParameterFields.Item(i).AddCurrentValue (vbVNull)
    ElseIf UCase(Trim(crxRep.ParameterFields.Item(i).ParameterFieldName)) = "@ACTUAL" Then
        crxRep.ParameterFields.Item(i).ClearCurrentValueAndRange
        crxRep.ParameterFields.Item(i).AddCurrentValue (True)
    End If
Next i

crxRep.Database.Verify
'вот тут выскакивает окно с параметрами


crxRep.Database.Tables( 1 ).Location = crxRep.Database.Tables( 1 ).Location


Screen.MousePointer = vbHourglass
Form2.CrystalActiveXReportViewer1.ReportSource = crxRep
Form2.CrystalActiveXReportViewer1.ViewReport
Screen.MousePointer = vbDefault
Form2.Show
...
Рейтинг: 0 / 0
02.03.2009, 12:12
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845651
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
а если я добавляю
Код: plaintext
crxRep.EnableParameterPrompting = False
то сваливается вообще с ошибкой что входные параметры не заданы
...
Рейтинг: 0 / 0
02.03.2009, 12:14
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845672
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
а без Verify не идёт?
...
Рейтинг: 0 / 0
02.03.2009, 12:20
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845688
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
Konst_Oneа без Verify не идёт? неа, без verify он не обновляет новые параметры в базе
да суть не в этом. суть в том, что он не понимает вообще, что я назначаю ему входные параметры, указанным в первом посте образом :(
...
Рейтинг: 0 / 0
02.03.2009, 12:25
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845731
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Verify вроде не нужен. а парметры надо все задавать, а не только те, что ты хочешь.
http://www.tek-tips.com/viewthread.cfm?qid=1455401&page=23

ЗЫ
Юзай: crRep.Database.LogOnServer
...
Рейтинг: 0 / 0
02.03.2009, 12:38
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845736
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
вот еще примерчик:

Код: 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.
Function Print_Report()

Dim crApp As New CRAXDRT.Application
Dim mCrystalReport As New CRAXDRT.Report
Dim strReportPath As String
Dim Counter As Long
Screen.MousePointer = vbHourglass

'On Error GoTo Hell

strReportPath = mReportPath & "rptPayrollRegisterSummary.rpt"

Set mCrystalReport = crApp.OpenReport(strReportPath)
mCrystalReport.Database.LogOnServerEx "PDSOLEDB.DLL", mSERVER, mDATABASE, "", "", "2", DTSDB

mCrystalReport.EnableParameterPrompting = False

For Counter =  1  To mCrystalReport.ParameterFields.Count
    mCrystalReport.ParameterFields.Item(Counter).ClearCurrentValueAndRange
    mCrystalReport.ParameterFields.Item(Counter).AddCurrentValue intReportParam(Counter -  1 )
Next Counter


For Counter =  1  To mCrystalReport.Database.Tables.Count
    mCrystalReport.Database.Tables(Counter).SetLogOnInfo mSERVER, mDATABASE, "", ""
    mCrystalReport.Database.Tables(Counter).SetTableLocation mCrystalReport.Database.Tables(Counter).Location, mCrystalReport.Database.Tables(Counter).Location, DTSDB
Next Counter


mCrystalReport.Database.Verify
CRViewer1.ReportSource = mCrystalReport

CRViewer1.ViewReport

Screen.MousePointer = vbDefault

Exit Function
...
Рейтинг: 0 / 0
02.03.2009, 12:41
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845742
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
и еще одна техника передачи параметров:

Dim RTReport As New CRAXDRT.Report
Dim RsReport As New ADODB.Recordset

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Set RTReport = RTApp.OpenReport(App.Path & "\Report\rptPengajuanKlaim1.rpt")

 Set RsReport = AdodbConn.Execute("exec sp_PengajuanKlaim " _
    & "'" & mdlGeneral.JnsPelSjp & "','" & mdlGeneral.JnsPstSjp & "'," _
    & "" & CInt(mdlGeneral.mTglSjp) & "," & CInt(mdlGeneral.yTglSjp) & "")

    RTReport.DiscardSavedData
    RTReport.Database.Tables.Item( 1 ).SetPrivateData  3 , RsReport
    RTReport.EnableParameterPrompting = False
    
    
    RTReport.ParameterFields( 1 ).AddCurrentValue mdlGeneral.NamaPpk
    RTReport.ParameterFields( 2 ).AddCurrentValue mdlGeneral.NamaPimpinan
    RTReport.ParameterFields( 3 ).AddCurrentValue mdlGeneral.Kota
    RTReport.ParameterFields( 4 ).AddCurrentValue mdlGeneral.PembuatLaporan
    RTReport.ParameterFields( 5 ).AddCurrentValue mdlGeneral.BulanTahun
...
Рейтинг: 0 / 0
02.03.2009, 12:47
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845779
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
Konst_One,

а что во втором случае есть mdlGeneral?
и в первом случае DTSDB?
...
Рейтинг: 0 / 0
02.03.2009, 13:01
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845826
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
это просто переменные из модуля.
...
Рейтинг: 0 / 0
02.03.2009, 13:18
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845841
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
у меня хэлпа нет под рукой. регистрируйся здесь и ищи нужную документацию
...
Рейтинг: 0 / 0
02.03.2009, 13:22
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845850
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
вот посмотри способы соединения:
https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/9066c0db-731e-2b10-e1ab-f25790420ae8
...
Рейтинг: 0 / 0
02.03.2009, 13:28
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35845932
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
Konst_Oneвот посмотри способы соединения:
https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/9066c0db-731e-2b10-e1ab-f25790420ae8
ругается на то, что неудается открыть указанный узел :(
...
Рейтинг: 0 / 0
02.03.2009, 13:49
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846057
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
1 часть
...
Рейтинг: 0 / 0
02.03.2009, 14:21
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846058
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
2 часть

PS
7zip открывай
...
Рейтинг: 0 / 0
02.03.2009, 14:22
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846102
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
Konst_One,

не открывается :(
...
Рейтинг: 0 / 0
02.03.2009, 14:33
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846129
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
не может быть.клади в одну директоию и откурывай 001 с помощью 7zip
...
Рейтинг: 0 / 0
02.03.2009, 14:38
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846141
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
Konst_Oneне может быть.клади в одну директоию и откурывай 001 с помощью 7zip у меня 7zip нет
:(
...
Рейтинг: 0 / 0
02.03.2009, 14:41
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846157
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
KallandorKonst_Oneне может быть.клади в одну директоию и откурывай 001 с помощью 7zip у меня 7zip нет
:(

вот
...
Рейтинг: 0 / 0
02.03.2009, 14:46
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846214
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
Konst_One,

мдя... я не могу зайти на указанный тобою ресурс. и по гуглу все ссылки блокируются.
а ты можешь заархивировать винраром?
...
Рейтинг: 0 / 0
02.03.2009, 15:01
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846246
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
в 100Кб все равно не влезет. скажи куда выложить тебе?
...
Рейтинг: 0 / 0
02.03.2009, 15:07
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846257
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
Konst_Oneв 100Кб все равно не влезет. скажи куда выложить тебе? из общедоступных ресурсов, я наверное все равно не смогу скачать (заблокировано).
Кость, а ты можешь создать архив (только в винраре) и указать максимальный размер 100 к? тогда я его со скуля скачаю и все будет ок?
...
Рейтинг: 0 / 0
02.03.2009, 15:11
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846263
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
1 часть
...
Рейтинг: 0 / 0
02.03.2009, 15:11
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846264
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
2 часть
...
Рейтинг: 0 / 0
02.03.2009, 15:12
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846270
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
Konst_One,

спасибо!
теперь успешно!
буду изучать :)
...
Рейтинг: 0 / 0
02.03.2009, 15:13
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846432
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
вот, в дебаггере стало все понятно!
я не правильно назначаю параметры
так как они оказываются пустыми
Кость, ты знаешь что именно не так?
(те способы которые ты показал не подходят, я про pdf)
...
Рейтинг: 0 / 0
02.03.2009, 15:55
| Ответить | Цитировать | Написать  
как задать параметр null в crystal reports?
    #35846472
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
мне сложно проверить, так как нет под рукой CR. попробуй в отладке пробежаться по циклу и явно задать все параметры.


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim i as Integer
Dim NewValue as Variant

NewValue =  0  'какого типа у тебя параметры я не знаю, поэтому ты выбери подходящий

For i =  1  To crxRep.ParameterFields.Count
        crxRep.ParameterFields(i).ClearCurrentValueAndRange
        crxRep.ParameterFields.Item(i).AddCurrentValue NewValue
Next i
...
Рейтинг: 0 / 0
02.03.2009, 16:05
| Ответить | Цитировать | Написать  
32 сообщений из 32, показаны все 2 страниц
  все  
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / как задать параметр null в crystal reports?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=31&tid=1536333]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 161ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 299ms
total:  529ms
созд. / загр.: 529ms
x
x
Закрыть


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