الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اقوم بعمل بحث جزئي في قواعد البيانات؟؟

مغلق
بدأه ttss في 23 فبراير 2005 · 6 رد · 582 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم :)

قمت بعمل مشروع بسيط في الفيجوال بيسك وهو عباره عن برنامج لحفظ البيانات, طبعا فمت بربط برنامج الاكسس بالفيجوال عن طريق الاداة Data , والان اريد عمل زر للبحث الجزئي اي لو افترضنا ان عندي 3 اسماء وهي Dataone

datatow

DataThree

وعندما اكتب في خانه البحث عن Data يقوم البرنامج باظهار جميع الاسماء الموجوده فبها الكلمه Data سواء كانت حروف صغيره او كبيره.

وشكرا للجميع

#2

:s

#3

up

#5

مشكوور اخوي هنهن :D

#6

الحلو هو

Dim mysql As String, searchfor As String

searchfor = "name"

Data1.RecordSource = "select * from ss where " & searchfor & " like '*" & st & "*'"

Data1.Refresh

If Data1.Recordset.RecordCount = 0 Then

searchfor = "m"

Data1.RecordSource = "select * from ss where " & searchfor & " like '" & st & "*'"

Data1.Refresh

وهكذا اخي

حيث ان سيرش فور هو المتغير والذي يشير إلى اسم الحقل في الجدول

يعني في الأولى nameهو اسم الحقل في الجدول ss

عسى ان يكون شرحي وافي والله اعلم

#7
Dim mysql As String, searchfor As String
searchfor = "name"
Data1.RecordSource = "select * from ss where " & searchfor & " like '*" & st & "*'"
Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then
searchfor = "m"
Data1.RecordSource = "select * from ss where " & searchfor & " like '" & st & "*'"
Data1.Refresh

هذا الكود هو خاص بأداة Data والتي تعتمد على DAO ، فهل تعطينا طريقه البحث المفصله عن طريق ADO ( أقصد المكتبه وليست أداة ADOBC )

بالإنتظار أخي العزيز :rolleyes:

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…