أحاول هذه الفترة الإنتقال من الأكسس بسبب عدة مشاكل تحدث عند العمل عليه في نفس الوقت من أكثر من جهاز ..
والمشاكل بشكل عام تحدث عند العمل على البيانات في نفس الوقت من قبل الأجهزة في حقل معين من جدول معين في قاعدة البيانات المشاركة عبر الشبكة ...
ورأيت ان أجرب قواعد البيانات sql server 2000 ، وقمت بالتالي :
عن طريق Enterprise Manager قمت بعمل قاعدة البيانات SQL .
قمت باستيراد الجداول من قاعدة البيانات أكسس إلى قاعدة البيانات SQL الجديدة .
غيرت طريقة الإتصال بقاعدة البيانات :
Dim ServerName As String
Dim DBName As String
ServerName = "HELLOW\RASHID"
DBName = "master"
' Set connection properties.
dB.ConnectionTimeout = 25 ' Set the time out.
dB.Provider = "sqloledb" ' Specify the OLE DB provider.
dB.Properties("Data Source").Value = ServerName ' Set SQLOLEDB connection properties.
dB.Properties("Initial Catalog").Value = DBName ' Set SQLOLEDB connection properties.
dB.Properties("Integrated Security").Value = "SSPI"
Screen.MousePointer = vbHourglass
' Open the database.
dB.Open
نجح الإتصال بقاعدة البيانات .... لكن المشكلة .....
ملاحظة : أنا أستخدمة تقنية ADODB للعمل على الجداول وقاعدة البيانات ....
1. عند عمل Addnew أو MoveLast أو Delete للحقول - تظهر رسالة خطأ دائما
وهذه واحدة بالمرفقات
طريقة اتصالي بالجداول كالتالي :
Dim SuplierT As New ADODB.Recoardset
If SuplierT.State = 1 Then SuplierT.Close
SuplierT.Open "Select * from SUPPLIERS Order By SuplierCode", dB, adOpenDynamic, adLockOptimistic
If SuplierT.EOF = True Then Exit Sub
SuplierT.MoveLast
'
ما الذي يجب أن أفعله ليعمل البرنامج بدون أخطاء ....؟؟؟؟
خالص الشكر والتقدير لمن يساعدني .....
