MORTEZA66
چهارشنبه 03 مهر 1387, 07:42 صبح
سلام به همه دوستان
من تا حالا با كريستال ريپورت فقط با 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…………………..
من تنها مشكل برنامم همينه اگه هر هر كدوم از دوستان لينكي يا مطلبي در اين زمينه دارند خواهش مي كنم سريعتر بذارن
:عصبانی++:
اينم عكس كادر ديتا بيس لوگين
من تا حالا با كريستال ريپورت فقط با 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…………………..
من تنها مشكل برنامم همينه اگه هر هر كدوم از دوستان لينكي يا مطلبي در اين زمينه دارند خواهش مي كنم سريعتر بذارن
:عصبانی++:
اينم عكس كادر ديتا بيس لوگين