[ تمت الإجابة ]المساعدة فى انشاء قاعدة بيانات برمجيا من قاعدة موجودة

wehadyxp كتب:

لى استفسار اخر هل يمكن ان تكون القاعدة المنشاءة بها باسورد ثابت اضعة من خلال الكود وايضا القاعدة التى سوف تقوم باسترداد البيانات بها وهى ساعدتنى فيها من قبل ومرفقة كيف اضع بها كود به الباسورد حتى يقوم بفتحها وسحب البيانات منها

نعم اخي الكريم

يمكن انشاء قاعدة بيانات ومعها الرقم السري ايضا بهذه الطريقة :

نقوم بإضافة الرقم السري الى الكود في الوحدة النمطية العامة الخاصة بإنشاء قاعدة البيانات

Public Function CreateDatabase()

   Dim wrkDefault As Workspace
   Dim dbsNew As Database
   Dim strPaht As String
   Dim dbNAME As String
   strPath = Application.CurrentProject.Path & "\"
   dbNAME = strPath & Format(Forms!Form!strDBName.Value, "dd-mm-yyyy") & ".mdb"
   Set wrkDefault = DBEngine.Workspaces(0)
   Set dbsNew = wrkDefault.CreateDatabase(dbNAME, dbLangGeneral & ";pwd=1234")
   dbsNew.Close
End Function

لاحظ ان الرقم السري المنشأ مع قاعدة البيانات هو 1234 بإمكانك تغييره الى اي شيء رقم سري تريده .

انتهينا من انشاء قاعدة البيانات بالكود ومعها الرقم السري .

ننتقل الآن الى النموذج ونفتح الكود الخاص بتصدير الجداول الى قاعدة البيانات الجديده والمحمية بكلمة مرور وهي 1234

سنجد في الكود هذه العبارة

DbPassword = ";pwd=1234"
Set db = DBEngine.OpenDatabase(dbNAME, False, False, DbPassword)

لفتح قاعدة البيانات اولا قبل عملية تصدير الجداول ويجب ان يطابق الرقم السري قبل فتح القاعدة الرقم السري الموجود في الوحدة النمطية و إلا لن يتم تصدير الجداول والقاعدة الجديده محمية

وهذا الملف بعد التعديل

za_Create_NewDB_Password_And_Export_AllTables.rar

بالنسبة للقاعدة التي يتم استيراد بيانات منها وهي محمية بكلمة مرور ( 1234 ) فيمكن الإتصال بها واستيراد البيانات حسب الكود التالي :

Private Sub ImportData_Click()
DbPassword = "1234"
Dim MySQL, MySQL1 As String
MySQL = "SELECT mean.* FROM mean"
Dim Rst As ADODB.Recordset
	Set Rst = New ADODB.Recordset
			Rst.Open MySQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdText
	If Rst.EOF Then
Dim cnn As ADODB.Connection
	 Set cnn = New ADODB.Connection
		 cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Me.txtPath
		 cnn.ConnectionString = cnn.ConnectionString & ";Jet OLEDB:Database Password = " & DbPassword
		 cnn.Open
MySQL1 = "SELECT sub_mean.* FROM sub_mean"
Dim Rst1 As ADODB.Recordset
	Set Rst1 = New ADODB.Recordset
		Rst1.Open MySQL1, cnn, adOpenDynamic, adLockOptimistic, adCmdText
Do Until Rst1.EOF
	 With Rst
		.AddNew
		.Fields(0) = Rst1.Fields(0)
		.Fields(1) = Rst1.Fields(1)
		.Fields(2) = Rst1.Fields(2)
		.Update
		.MoveNext
	End With
	Rst1.MoveNext
Loop
	End If
	Set Rst = Nothing
	Set Rst1 = Nothing
	Set cnn = Nothing

DoCmd.Close
DoCmd.OpenForm "form"
End Sub

لاحظ الرقم السري في الكود لفتح قاعدة البيانات subDB.mdb هو 1234

DbPassword = "1234"

بإمكانك تغيير الرقم السري للقاعدة subDB.mdb من 1234 الى اي رقم سري تريد ولا تنسى تغييره ايضا في الكود السابق

وهذا الملف ايضا بعد التعديل

za_wehadyxp2_UP.rar