وروذ به بانک اکسس رمز دار با vb.NET

[sh]

با سلام دوستان عزیز

لطفا با ذکر کد نمونه یا برنامه نمونه نحوه ورود به بانکی اکسسی که در اکسس برای آن پسورد گذاشته ایم را نشان دهید یعنی برنامه ما با همان پسورد کار کند منظور نحوه چک کردن و قبول یا رد صحت رمز است

با تشکر
شهریار

[h_arman]

کافیه توی کانکشن استرینگ این را اضافه کنی:

Jet OLEDB:Database Password=xxxxxx;

و به جای xxxxxx پسورد رو بنویسی

[sh]

ممنون ! (واقعا فکر میکنی بعد از یکسال و نیم هنوز نتونستم ؟)

من اون موقع منظورم این بود که از طریق ویزارد چطور به بانک رمز دار وصل شوم که البته همان روز پیداش کردم

ولی یکبار دیگر برای دوستان میگذارم


برای وصل شدن از طریق کد هم


oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\somepath\mydb.mdb;" & _
"Jet OLEDB:Database Password=MyDbPassword", _
"myUsername", "myPassword"

[Behrouz_Rad]

ممنون ! (واقعا فکر میکنی بعد از یکسال و نیم هنوز نتونستم ؟)
من اون موقع منظورم این بود که از طریق ویزارد چطور به بانک رمز دار وصل شوم که البته همان روز پیداش کردم
منظور هرکس در سوالش معلوم میشه.

[علیرضا مداح]

سلام .

منظور هرکس در سوالش معلوم میشه.

بله همینطو است ولی دوستمون منظور آقا شهریار رو درست متوجه نشدند .


Try
Dim strpass As String = InputBox("لطفا رمز را وارد کنید :")
Dim Conn As New OleDb.OleDbConnection("Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Database Password=" & strpass & ";Data Source=" & "G:\MyDB.mdb" & ";Password=;Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk Transactions=1;Provider=" & "Microsoft.Jet.OLEDB.4.0" & ";Jet OLEDB:System database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=ReadWrite;Jet OLEDB:New Database Password=;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Encrypt Database=False")
Dim DataAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM Main", Conn)
Dim ds As New DataSet("MyDS")
DataAdapter.Fill(ds)
Catch ex As OleDb.OleDbException
If ex.ErrorCode = "-2147217843" Then
MsgBox("رمز صحیح نیست .")
Else
'Do something
End If
End Try

من ایتدا پسورد بانک رو اشتباه وارد کردم و کد این خطا رو توسط ex.ErrorCode به دست آوردم .

[sh]

منظور هرکس در سوالش معلوم میشه.


دوست کوچک من :) منظورت رو متوجه نشدم