قفل گذاری روی بانک access

[eli_joon]

با سلام خدمت همه دوستان گل و بلبل
با اجازتون يه سوال داشتم
من يه کد connection string دارم که براي برقراري اتصال به بانک access است. حالا تصميم گرفتم که براي بانکم password بذارم ، اين کارو به راحتي در access انجام دادم اما کد تو برنامه رو هرچي باش ور رفتم نتونستم ، موقع باز کردن بانک ، همش error ميده .
لطفا راهناييم کنيد .
در ضمن کدي که قبل از password گذاشتنم نوشته بودم و درست کار ميکرد گذاشتم ؛ لطفا همينو اصلاح کنيد به نحوي که کلمه پسوردم برابر looloo باشه.
ممنون ميشم

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\dbanformatic.mdb;Persist Security Info=fals"

[bashir_nashi]

فکر می کنم conString شما یه مقدار بهم ریخته نمایش داده شده ولی به هر حال برای پسورد , این رو به آخرش اضافه کنید :


Jet OLEDB:Database Password=looloo

[eli_joon]

فکر می کنم conString شما یه مقدار بهم ریخته نمایش داده شده ولی به هر حال برای پسورد , این رو به آخرش اضافه کنید :


Jet OLEDB:Database Password=looloo




دوست عزیز، از راهنماییت ممنون . به جواب مورد نظر رسیدم.اما اگه ممکنه یه راهنمایی کوچیکه دیگه هم میخوام ، الان موقع باز کردن بانک دیگه error نمیده ، اما موقع گزارشگیری و اتصال به بانک و کریستال ریپورت error میده ! دویاره برای load کردن گزارشات ازم پسورد میخواد، در صورتی که من فرمی رو که در کریستال ساختم databaseش رو upgrade کردم و پسوردمو اونجا هم نوشتم.
عکس error هم گذاشتم . ممنون

[eli_joon]

کسی نیست جواب بده ؟

[saman_itc]

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)


http://barnamenevis.org/forum/images/statusicon/user_offline.gif

[saman_itc]

نحوه ارتباط فایل اکسس پسورددار با crystall report
کانکشنش مهمه.100% جواب میده




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()

[eli_joon]

نحوه ارتباط فایل اکسس پسورددار با crystall report
کانکشنش مهمه.100% جواب میده




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()



saman_itc دوست عزیزم سلام
از راهنماییت خیلی ممنون.
فقط یکی دوتا سوال برام پیش اومده . اگه ممکنه راهنماییم کنید

IDCartRpt این متغیر از چه نوعیه ؟ vb 2005 چرا نمی شناسش ؟
Dim IdCartrpt As New IDCartRpt

[eli_joon]

دوستان مشکل من هنوز حل نشده ها . منتظرم ...........................

[eli_joon]

بابا یکی نیست جواب ما رو بده ؟......................

[eli_joon]

با تشکر از تمامی دوستانی که راهنمایی کردند. :ناراحت:


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


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.OLED B.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()