نحوه ارتباط فایل اکسس پسورددار با crystall report

[golroz]

چگونه می توانم با کد از طریق کریستال ریپورت ویژوال سی شارپ دات نت به فایل اکسس پسورد دار وصل بشم و از جداول ان گزارش تهیه کنم از اساتید محترم خواهشمند است راهنمایی کنند با تشکر

[golroz]

کسی از مهندسان نیست جواب من را بدهد لطفا کمکم کنید ضروری است

[golroz]

خیلی ممنون از جواب زیادتون

[vb_bmw]

مشکل چیه دوست جان؟

مشکل کارت کجاست؟

[golroz]

قبلا که گزارشم را طراحی کردم روی بانک اکسس پسورد وجود نداشت ولی الان که پسورد گذاشتم هر کاری می کنم نمی تونم پسورد را به کریستال ریپورت بدهم تا دیگر خطا ندهد اگر ممکنه کمک کنید زبان برنامه نویسی من سی شارپ است با تشکر..

[habil_57]

این یه مثاله :
کدش با وی بی نوشته شده خودت زحمت بکش سی شارپش کن
البته بجای دادن نام همه جداول می تونی از حلقه استفاده کنی
اینجوری
For i = 0 To MyRptDoc.Database.Tables.Count - 1 'Me.RptDoc

Dim Tinfo1 AsNew CrystalDecisions.Shared.TableLogOnInfo()
Dim Tinfo2 AsNew CrystalDecisions.Shared.TableLogOnInfo()

Tinfo2.ConnectionInfo.ServerName = Application.StartupPath & "\VCSData\VCSdb.mdb"
Tinfo2.ConnectionInfo.DatabaseName = Application.StartupPath & "\VCSData\VCSdb.mdb"
Tinfo2.ConnectionInfo.UserID = ""
Tinfo2.ConnectionInfo.Password = ""
MyRptDoc.Database.Tables("Company").ApplyLogOnInfo(Tinfo2)
MyRptDoc.Database.Tables("KALA_0").ApplyLogOnInfo(Tinfo2)
MyRptDoc.Database.Tables("PERSON").ApplyLogOnInfo(Tinfo2)
Tinfo1.ConnectionInfo.ServerName = StrdbY 'Application.StartupPath & "\VCSData\YDBS\DBS1383\VCSdb.mdb"
Tinfo1.ConnectionInfo.DatabaseName = StrdbY 'Application.StartupPath & "\VCSData\YDBS\DBS1383\VCSdb.mdb"
Tinfo1.ConnectionInfo.UserID = ""
Tinfo1.ConnectionInfo.Password = ""
MyRptDoc.Database.Tables("BUY").ApplyLogOnInfo(Tinfo1)

[MORTEZA66]

این یه مثاله :
کدش با وی بی نوشته شده خودت زحمت بکش سی شارپش کن
البته بجای دادن نام همه جداول می تونی از حلقه استفاده کنی
اینجوری
For i = 0 To MyRptDoc.Database.Tables.Count - 1 'Me.RptDoc

Dim Tinfo1 AsNew CrystalDecisions.Shared.TableLogOnInfo()
Dim Tinfo2 AsNew CrystalDecisions.Shared.TableLogOnInfo()

Tinfo2.ConnectionInfo.ServerName = Application.StartupPath & "\VCSData\VCSdb.mdb"
Tinfo2.ConnectionInfo.DatabaseName = Application.StartupPath & "\VCSData\VCSdb.mdb"
Tinfo2.ConnectionInfo.UserID = ""
Tinfo2.ConnectionInfo.Password = ""
MyRptDoc.Database.Tables("Company").ApplyLogOnInfo(Tinfo2)
MyRptDoc.Database.Tables("KALA_0").ApplyLogOnInfo(Tinfo2)
MyRptDoc.Database.Tables("PERSON").ApplyLogOnInfo(Tinfo2)
Tinfo1.ConnectionInfo.ServerName = StrdbY 'Application.StartupPath & "\VCSData\YDBS\DBS1383\VCSdb.mdb"
Tinfo1.ConnectionInfo.DatabaseName = StrdbY 'Application.StartupPath & "\VCSData\YDBS\DBS1383\VCSdb.mdb"
Tinfo1.ConnectionInfo.UserID = ""
Tinfo1.ConnectionInfo.Password = ""
MyRptDoc.Database.Tables("BUY").ApplyLogOnInfo(Tinfo1)



من تمام اين كارارو كردم ولي بازم كادر DatabaseLogon ظاهر شد؟ مشكل چيه

[MORTEZA66]

مشكلم حل شد اينم كداش


Dim IdCartrpt As New IDCartRpt
sqltext = "select * from tblmembers where memberid='" + PrKeySearchtxt.Text.Trim + "'"
'''''''''
Dim myTable As CrystalDecisions.CrystalReports.Engine.Table
Dim myLogin As CrystalDecisions.Shared.TableLogOnInfo
For Each myTable In IdCartrpt.Database.Tables
myLogin = myTable.LogOnInfo
myLogin.ConnectionInfo.Password = "21484021"
myLogin.ConnectionInfo.UserID = "admin"
myTable.ApplyLogOnInfo(myLogin)
Next
''
Dim con2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath & "\files\database\MASKAN.mdb" + ";Jet OLEDB:Database Password=21484021" + ";Persist Security Info=True")
con2.Open()
Dim dset2 As New DataSet
dset2.Dispose()
dset2 = New DataSet
Dim dap2 As New OleDb.OleDbDataAdapter(sqltext, con2)
dset2.Clear()
dap2.Fill(dset2, "tblmembers")
IdCartrpt.SetDataSource(dset2)
con2.Close()

نكته در ايجاد connection است