بسم الله الرحمن الرحيم
احيانا ارغب بعمل صيانة لقاعدة البيانات واريد فتحها بشكل خاص exclusive بيحث لا يسمح لاحد فتحها والتعامل معها
وكذلك الحال بالنسبة للجداول داخل قاعدة البيانات
جزاكم الله خير
بسم الله الرحمن الرحيم
احيانا ارغب بعمل صيانة لقاعدة البيانات واريد فتحها بشكل خاص exclusive بيحث لا يسمح لاحد فتحها والتعامل معها
وكذلك الحال بالنسبة للجداول داخل قاعدة البيانات
جزاكم الله خير
بسم الله الرحمن الرحيم
اخواني عندما افتح قاعدة بيانات أكسس بالصيغة التلية
Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=123;Data Source=inv.MDB;Exclusive=Yes;
تظهر الخطأ Could not find installable ISAM
وعندما تكون بالصيغة التالية لا يظهر الخطأ
Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=123;Data Source=inv.MDB;Exclusive=NO;
والفرق بين الصيغتين هو Exclusive علما بأني أريد فتح قاعدة البيانات Exclusive حيث لا يمكن لشخص أخر ان يفتحها أثناء العمل
بسم الله الرحمن الرحيم
اخي العزيز لقد حدث معي نفس الشي وكنت اعمل على اكسس 2003 ولكن لاحضت انه صيغت الملف الاكسس هي 2000 فايل فورمات
وعندما حولت الملف الى صيغة 2003 فايل فورمات لم تضهر هذه الرسالة بعد
هذا ويوجد حل اخر افادني به الاخ ياسر /index.php?showtopic=115282
لكنه لم ينجح معي
وشكرا
السلام عليكم
ربما والله أعلم أن بعض خواص المحرك Jet OLEDB لا تسند اثناء الاتصال به و انما بعد الاتصال به ,, غير مجرب في الواقع العملي.
على سبيل المثال:
Try
If txtPassword.Text <> String.Empty Then
Dim cnn As New OleDbConnection
cnn.ConnectionString = "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")
With Me.DataGridView1
.DataSource = ds
.DataMember = "tb"
End With
cnn.ConnectionString &= ";Exclusive=Yes; "
Else
MsgBox("Password not supplied..")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Tryو بالله التوفيق...
في المثال يتضح المقال
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…