الترميز لربط Visual Basic إلى MS Access

يمكن كتابة البرامج في Visual Basic للوصول إلى قواعد بيانات الوصول إلى Microsoft . قد تكون هناك حاجة إلى بعض مفاهيم البرمجة مثل الروتين الفرعي والحلقات إلى جانب معرفة قواعد البيانات و SQL لكتابة برامج لربط قاعدة بيانات Microsoft Access برمز Microsoft Visual Basic . يتم استخدام كائن ADODB لإنشاء اتصال بقاعدة البيانات والوصول إلى السجلات باستخدام ADODB.connection و ADODB.recordset APIs على التوالي. يتم استخدام SQL للبحث في قاعدة البيانات عن السجلات التي تطابق المعلومات المقدمة كمعلمات للروتين الفرعي. يمكن أيضًا معالجة البيانات الموجودة في السجلات في رمز برنامج Visual Basic.

القضية

مرحبا،

أحتاج إلى معرفة الترميز لربط البصرية الأساسية لمايكروسوفت أكسس!

حل

يمكنك تجربة هذا:

 Option Explicit Dim conn As ADODB.Connection، rec As ADODB.Recordset Dim esql As String، esql2 As String، searchvar As String Private Sub Command1_Click () Text1 = "" Text2 = "" Text3 = "" Command3Visible = True Command1. مرئي = نص خاطئ 1. ضبط نهاية End Sub Sub Sub Command2_Click () إذا لم تكن rec.EOF ثم rec.MoveNext Else rec.MoveLast End إذا GetText End Sub Sub Command3_Click () If If not rec.BOF ثم rec.Move السائل Else rec.MoveFirst End إذا كان GetText End Sub Private Sub Command4_Click () On Error GoTo 1 If Text1 = "" Or Text2 = "" ثم Command4.Visible = False Command1.Visible = True إنهاء Sub End If rec.AddNew rec.Fields (0) = Text1 rec .Fields (1) = النص 2 rec.Fields (2) = النص 3 rec.Update إذا لم تكن rec.EOF ثم rec.MoveNext rec.MoveFirst GetText Command4.Visible = False Command1.Visible = True Exit Sub 1 MsgBox ("قيمة مكررة" ) & Text3 End Sub Private Sub Command5_Click () Text1 = "" Text2 = "" Text3 = "" searchvar = InputBox ("أدخل عنصر للعثور عليه") rec.Close rec.Open ("select * from" TestRavi حيث First = "&" '"& searchvar &"' ")، conn، adOpenStatic، adLockReadOnly If rec.Fields (0)" "ثم Text1 = rec.Fields (0) Text2 = rec.Fields (1) Text3 = rec.Fields (2) Else MsgBox ("لم يتم العثور على سجلات مطابقة") rec.Close rec.Open ("select * from testravi") ، conn ، adOpenDynamic ، adLockOptimistic GetText End If End Sub 'for integers استخدام' dim searchvar2 As Integer 'searchvar2 = InputBox ("enter Number")' rec.Open ("select * from TestRavi حيث First =" & searchvar2) ، conn ، adOpenStatic ، adLockReadOnly Private Sub Form_Load () Set conn = New ADODB.Connection Set rec = New ADODB .Recordset 'conn.Open ("Provider = Microsoft.Jet.OLEDB 4.0 ؛ مصدر البيانات = C: \ ملفات البرنامج \ Microsoft Office \ Samples \ Northwind.mdb ؛ معلومات الأمان الدائمة = False") conn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0 ؛ مصدر البيانات = C: \ ملفات البرنامج \ Microsoft Office \ Samples \ Northwind.mdb ؛ معلومات الأمان المستمرة = False "conn.Open esql =" select * from TestRavi "rec.Open ( esql) ، conn ، adOpenDynamic ، adLockOptimis tic GetText End Sub Private Sub Form_Unload (Cancel As Integer) rec.Close conn.Close Set conn = Nothing command1.visible = false End Sub Private Sub GetText () If rec.BOF = True أو rec.EOF = True ثم إنهاء Sub Text1 = rec.Fields (0) Text2 = rec.Fields (1) Text3 = "" End Sub