نمايش كادر DatabaseLogon هنگام وصل شدن به ديتابيس اكسس پسورد دار

[MORTEZA66]

سلام به همه دوستان
من تا حالا با كريستال ريپورت فقط با SqlServer2005 كار مي كردم وهيچ مشكلي هم نداشتم فقط با خط زير مانع نمايش كادر لوگين مي شدم

rpt.DataSourceConnections.Item(0).SetConnection(se rver, database, username, pass)
ولي الان كه با بانك اكسس كار مي كنم و ديتابيس هم پسورد داره هر چي مينويسم با ز كادر DataBaseLogon رو مياره مي خاستم بدونم چطور بايد DataBaseName و ServerName و UserId و Password رو بهش داد طوريكه ديگه اين كادر رو نياره
من كدهاي زير رو كه به ظاهر همشون درست هستند رو امتحان كردم و در زمينه نمايش گزارش و اينجور مسائل هم مشكلي ندارم
آخرين كدي كه امتحان كردم


Dim Tinfo2 As New CrystalDecisions.Shared.TableLogOnInfo()
warrantyrpt.Database.Tables("tblmembers").LogOnInfo.ConnectionInfo.AllowCustomConnection = True

Tinfo2.ConnectionInfo.ServerName = Application.StartupPath & "\files\database\dbMaskanMehr.mdb"
Tinfo2.ConnectionInfo.DatabaseName = Application.StartupPath & "\files\database\dbMaskanMehr.mdb"
Tinfo2.ConnectionInfo.UserID = "admin"
Tinfo2.ConnectionInfo.Password = "21484021"
For i = 0 To warrantyrpt.Database.Tables.Count - 1
warrantyrpt.Database.Tables(i).ApplyLogOnInfo(Tinf o2)
Next
كد ديگه

IdCartrpt.SetDatabaseLogon("admin", "2148………………..
كد ديگه

IdCartrpt.DataSourceConnections.Item(0).SetConnect ion(A…………………..

من تنها مشكل برنامم همينه اگه هر هر كدوم از دوستان لينكي يا مطلبي در اين زمينه دارند خواهش مي كنم سريعتر بذارن
:عصبانی++:
اينم عكس كادر ديتا بيس لوگين

[MORTEZA66]

از پاسخ هاي سريع و كامل همه دوستان ممنون هستم
مشكلم كاملا حل شد يعني حل بود خودم يه اشتباه كو چولو داشتم
كدش هم به صورت زير است


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()
frm.ReportViewer1.ReportSource = IdCartrpt
'
frm.ReportViewer1.ReportSource = IdCartrpt

frm.Show()


مشكل اصلي اين بود كه كانكشن رو با جديد ايجاد مي كردم كه نمي كردم و از كانكشني كه در ابتداي برنامه استفاده بود استفاده مي كردم
بازهم از همه دوستان كمال تشكر رو دارم !!!!!!!!!!!!!!!!!!!!!!!!!!