17-10-14, 03:19 PM
السلام عليكم
اريد حل مشكلة database login وطلب اسم المستخدم وكلمة السر
اريد حل مشكلة database login وطلب اسم المستخدم وكلمة السر
كود :
Imports CrystalDecisions
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class Form3
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim CrTables As Tables
Dim crtableLogoninfo As New TableLogOnInfo
Dim crConnectionInfo As New ConnectionInfo
Try
'reportdoc object
Dim cryRpt As New ReportDocument
'load report
cryRpt.Load(Application.StartupPath & "\CrystalReport2.rpt")
'parameters definition(if any)
'provide connection info. This is important and you can change it as per your db location
With crConnectionInfo
.DatabaseName = Application.StartupPath & "\AdoBase.accdb"
.ServerName = "Ms access"
.UserID = "admin"
.Password = "111111"
.IntegratedSecurity = True
End With
CrTables = cryRpt.Database.Tables
For Each CrTable As Table In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
CRV1.ReportSource = cryRpt
CRV1.Refresh()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class