PDA

View Full Version : مشكل در هنگام لود شدن فرم گزارش گيري



jas1387
جمعه 26 مهر 1387, 14:30 عصر
سلام

من وقتي كه فرم گزارش ام را باز مي كنم با كادر زير روبرو مي شوم در ضمن من در ديتابيسم از username و password استفاده نمي كنم لطفا به مرا راهنمايي كنيد

http://i33.tinypic.com/kaodvs.jpg

MORTEZA66
شنبه 27 مهر 1387, 08:47 صبح
سلام دوست من
اگه بانكتون اكسس هست از اين كدها استفاده كنيد(sALARYfORM نام فايل گزارشي است كه به محيط كريستال add شده):


Dim salaryrpt As New SalaryForm
Dim myTable As CrystalDecisions.CrystalReports.Engine.Table
Dim myLogin As CrystalDecisions.Shared.TableLogOnInfo
'
For Each myTable In salaryrpt.Database.Tables
myLogin = myTable.LogOnInfo
myLogin.ConnectionInfo.Password = "21"
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=221" + ";Persist Security Info=True")
con2.Open()
Dim dset2 As New DataSet
dset2.Dispose()
dset2 = New DataSet
Dim dap2 As New OleDb.OleDbDataAdapter("select * from tblmembers where memberid='" + PrKeySearchtxt.Text.Trim + "'", con2)
dset2.Clear()
dap2.Fill(dset2, "tblmembers")
salaryrpt.SetDataSource(dset2)
'****
'**********************************
frm.ReportViewer1.ReportSource = salaryrpt
frm.ShowDialog()
con2.Close()
salaryrpt.Close()


اگر از sql server استقاده مي كنيد فقط از اين يه خط استفده كنيد

salaryrpt.DataSourceConnections.Item(0).SetConnect ion(server, database, username, pass)
اينم بگم كه براي وصل شدن به بانك اكسس پسورد دار خيلي مهمه كه حتما همونجوري نوشته بشه كه من نوشتم من خودم 2 شبانه روز با اين موضوع سر كار بودم