لقد نسيت تقريبًا كل لغة VB التي تعلمتها منذ بضع سنوات مضت، لذلك قمت بمراجعتها هذه الأيام. ليس من الصعب جدًا ربط قاعدة بيانات ADO بـ VB.
الخطوة الأولى للاتصال (انظر بعناية)
للمبتدئين، البرنامج التعليمي هنا هو الأكثر تفصيلاً. الخطوة الأولى للاتصال بقاعدة بيانات ADO هي ما هي المكونات التي يجب إضافتها؟ الاسم الكامل هو مكون Microsoft ADO Data Control 6.0 (SP6) (OLEDB).
يوجد في مكون Microsoft ADO Data Control 6.0 (SP6) (OLEDB) اسم: التحكم في بيانات Adodc، وتحتاج إلى إضافته. ابحث عن ACCES في موقع بيانات التحكم في بيانات Adodc.
الطريقة المشار إليها بواسطة عنصر التحكم (تشير القيمة إلى الاسم)
انسخ رمز الكود كما يلي:
لأني = 1 إلى Adodc1.Recordset.RecordCount
إذا لم يكن Adodc1.Recordset.EOF ثم
Combo1.AddItem Adodc1.Recordset.Fields("القيمة").القيمة
Adodc1.Recordset.Movenext
نهاية إذا
التالي ط
المؤلف المقتبس من هذا الرمز هو ydl890406. عندما كنت أكتب هذا الشيء في مجموعة VB، طُلب مني استعارته لاحقًا، ووجدت أن هناك العديد من الأخطاء بعد تعديله عدة مرات، لا تزال هناك أخطاء لقد قمت بإعادة كتابته ببساطة. مر الوقت بسرعة وتم حل مجموعة VB أيضًا. لاحقًا، ولسبب غير معروف، تستخدم العديد من البرامج التعليمية الآن هذا الرمز.
الجزء الثاني هو اتصال كود AOD، حيث أن الجزء الثاني يتضمن كائن Recordset وكائن Connection، فيمكنك تعلمه بنفسك وكتابته بنفسك.
ما هو كائن مجموعة السجلات وكائن الاتصال؟ كائن الاتصال هو الاتصال بمصدر البيانات، وكائن مجموعة السجلات هو بيانات العملية.
أبحث عن مكونات Microsoft ADO Data Control 6.0 (SP6) (OLEDB).
يستخدم VB ADO للاتصال بقاعدة بيانات SQL Server
'ثابت معلومات مصدر البيانات Public Const conn As String = "Provider = SQLOLEDB.1;Password = sa; UserID = sa; الكتالوج الأولي = StudentFiles؛ مصدر البيانات = مضيف محلي" Public Const CONNECT_LOOP_MAX = 10 'نفذ عملية الاتصال مرة واحدة ويمكنك ذلك الوصول إلى قاعدة البيانات عدد المراتPrivate IsConnect As Boolean 'حدد ما إذا كانت قاعدة البيانات متصلةPrivate Connect_Num As Integer 'حدد عدد مرات الوصول إلى البيانات بعد تنفيذ وظيفة Connect()Private cnn As ADDODB.Connection 'قم بتوصيل الكائن للاتصال بقاعدة البياناتPrivate re As ADDODB.Recordset 'كائن مجموعة السجلات الذي يحفظ مجموعة النتائج // الاتصال بقاعدة البياناتPrivate Sub Connect () 'إذا كانت علامة الاتصال صحيحة، فارجع. IF IsConnect = True ثم قم بإنهاء Sub End إذا Set cnn = New ADODB.Connection 'يتم استخدام المفتاح الجديد لإنشاء كائن جديد cnn cnn.ConnectionString = conn cnn.Open 'تحديد حالة الاتصالإذا cnn.State <> adStateOpen ثم MsgBox "فشل اتصال قاعدة البيانات" نهاية النهاية إذا 'قم بتعيين معرف الاتصال، مما يشير إلى أنه متصل بقاعدة البيانات IsConnect = TrueEnd Sub' افصل الاتصال بقاعدة البيانات Private Sub DisConnect() Dim rc As Long If IsConnect = False ثم قم بالخروج من Sub End إذا 'أغلق الاتصال cnn.Close' أطلق سراح cnn Set cnn = Nothing IsConnect = FalseEnd Sub'استخدم Connect_Num للتحكم في اتصال البيانات Public Sub DB_Connect() Connect_Num = Connect_Num + 1 ConnectEnd Sub'استخدم Connect_Num للتحكم في البيانات قطع اتصال Public Sub DB_Disconnect () إذا Connect_Num >= CONNECT_LOOP_MAX ثم Connect_Num = 0 قطع الاتصال End If End Sub'Force لإغلاق وضع API للوصول إلى قاعدة البيانات الروسية، إعادة تعيين العداد Public Sub DBapi_Disconnect() Connect_Num = 0 DisconnectEnd Sub'تنفيذ لغة تشغيل قاعدة البيانات'byval يتم تمريرها بقيمة المعلمة، ولن تتغير المعلمة أثناء عملية النقل (أي يتم تمرير قيمة المعلمة إلى العملية بدلاً من العنوان. وهذا يسمح للعملية بالوصول إلى نسخة من المتغير، و لا يمكن للعملية تغيير قيمة المتغير ); وهو ما يعني تمرير القيمة وفقًا لعنوان المعلمة. يمكن حذف Byref SQLExt(ByVal TmpSQLstmt As String) كـ ADODB جديد. .Command 'إنشاء كائن الأمر cmd DB_Connect 'الاتصال بقاعدة البيانات Set cmd.ActiveConnection = cnn 'قم بتعيين سمة ActiveConnect لـ cmd وحدد اتصال قاعدة البيانات المرتبط بها cmd.CommandText = TmpSQLstmt 'قم بتعيين نص الأمر المراد تنفيذه'MsgBox TmpSQLstmt cmd.Execute 'تنفيذ مجموعة الأوامر cmd = لا شيء DB_DisConnect 'قطع الاتصال بفتح الاتصال بقاعدة البيانات End Sub' تنفيذ بيان استعلام قاعدة البيانات Public Function QueryExt(ByVal TmpSQLstmt As String) As ADODB.Recordset Dim rst كجديد ADODB.Recordset 'إنشاء كائن Rescordset DB_Connect أولاً' الاتصال بقاعدة البيانات Set rst.ActiveConnection = cnn 'قم بتعيين خاصية ActiveConnection لـ rst وحدد الاتصال بقاعدة البيانات المتعلقة بها rst.CursorType = adOpenDynamic' قم بتعيين نوع المؤشر rst = adLockOptimistic 'تعيين نوع القفل rst.Open TmpSQLstmt 'فتح مجموعة السجلات Set QueryExt = rst 'إرجاع وظيفة نهاية مجموعة السجلات