17-01-23, 10:52 PM
السلام عليكم أرجو مساعدتي يرحم الله والديكم ووالداي يارب أنا اريد كود البحث في فيجول بيزك 2010 مربوط بقاعدة بيانات أكسس 2013 ارجو المساعدة ❤️
17-01-23, 10:52 PM
27-03-23, 02:42 PM
مرحبا بك! سأساعدك بذلك بشأن كود البحث في فيجو 2010 مربوط بقاعدة بيانات أكسس 2013. هنا هو الكود الذي تحتاجه:
تأكد من تغيير "C:\Database.accdb" إلى المسار الصحيح لملف قاعدة البيانات الخاص بك، و"TableName" إلى اسم جدول قاعدة البيانات الذي تريد البحث فيه و"FieldName" إلى الحقل الذي تريد البحث عنه و"Field2"، "Field3"، "Field4" إلى الحقول الأخرى التي تريد عرض بياناتها. أمددك بالتوفيق!
كود :
Private Sub CommandButton1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Database.accdb;"
strSQL = "SELECT * FROM TableName WHERE FieldName = '" & Me.TextBox1.Value & "'"
Set rs = New ADODB.Recordset
rs.Open strSQL, cn
If Not rs.EOF Then
Me.TextBox2.Value = rs!Field2
Me.TextBox3.Value = rs!Field3
Me.TextBox4.Value = rs!Field4
Else
MsgBox "No data found!"
End If
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Subتأكد من تغيير "C:\Database.accdb" إلى المسار الصحيح لملف قاعدة البيانات الخاص بك، و"TableName" إلى اسم جدول قاعدة البيانات الذي تريد البحث فيه و"FieldName" إلى الحقل الذي تريد البحث عنه و"Field2"، "Field3"، "Field4" إلى الحقول الأخرى التي تريد عرض بياناتها. أمددك بالتوفيق!