conection to database

وذالك عن طريق الكود

علما ان التقنية المستخدمة هي OLeDb

شكرا

السلام عليكم

كل الذي عليك أن تزود قيمة الإتصال ConnectionString بالـ Password Attribute بهذا الشكل

Dim cnn As New OleDbConnection( _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & _
            "\DBPass.mdb;Jet OLEDB:Database Password=123;")

والله أعلم

OpenDBPass.zip

السلام عليكم

اخي العزيز الغملاسي

مشكور جدا

الحمد لله رب العالمين

كيف يمكنني من تغيير كلمة السر؟

وشكرا

السلام عليكم

تستطيع ذلك عبر متغير يحوي قيمة الرقم السري , على سبيل المثال هذه الخانة النصية تقوم بتلك الوظيفة

شاهد النصوص البرمجية التالية.

Try
			If txtPassword.Text <> String.Empty Then

				Me.DataGrid1.DataBindings.Clear()
				Dim ds As New DataSet("Ds1")
				Dim cnn As New OleDbConnection( _
				"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & _
				"\DBPass.mdb;Jet OLEDB:Database Password=" & txtPassword.Text)
				Dim cmd As New OleDbCommand("SELECT * FROM tb", cnn)
				Dim da As New OleDbDataAdapter(cmd)
				da.Fill(ds, "tb")
				Me.DataGrid1.DataSource = ds
				Me.DataGrid1.DataMember = "tb"
			Else
				MsgBox("Password not supplied..")
			End If


		Catch ex As Exception
			MsgBox(ex.Message)
		End Try

بالتوفيق إن شاء الله.

OpenDBPass.rar