|
|
|
Số người truy cập: 4.306.791
Số người trực tuyến: 62
|
|
|
| Trang chủ .NET Việt Nam
>
Bài viết
>
Theo ngôn ngữ
>
Visual Basic .NET | Init và set tham số cho crystal report | Dương Nguyễn
.NET Việt Nam | 
02:10' AM - Thứ sáu, 04/07/2008 | | 'hàm này dùng set các thông số cho file report connect dc với db
tham số truyền vào là report document
Public Function initRPT(ByVal rp As ReportDocument) As ReportDocument
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
Dim srv, ui, pi, db As String
srv = ConfigurationSettings.AppSettings("server")
ui = ConfigurationSettings.AppSettings("userName")
pi = ConfigurationSettings.AppSettings("pass")
db = ConfigurationSettings.AppSettings("database")
For Each tbCurrent In rp.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = srv
.UserID = ui
.Password = pi
.DatabaseName = db
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
Return rp
End Function
'Hàm này dùng để set các tham số vào cho 1 reportdocument
tham số gồm report document là danh sách các value chứa trong array list dc sắp xếp theo thứ tự các param trong file report
Public Function setPara(ByVal rp As ReportDocument, ByVal PAR As ArrayList) As ReportDocument
For i As Integer = 0 To PAR.Count - 1
rp.SetParameterValue(i, CStr(PAR.Item(i)))
Next
Return rp
End Function
Theo
.NET Việt Nam Số lượt đọc:
430
-
Cập nhật lần cuối:
04/07/2008 02:10:58 AM | Bài đã đăng: Giới thiệu series bài tự học VB.NET tại Vovisoft09/12/2005 02:27' PM Trong series các bài viết tại phần này, chúng tôi xin đăng tải lại các bài tự học lập trình .NET với ngôn ngữ Visual Basic .NET của website Vovisoft.com |
|
|
|
