اريد طريقة عمل البحث بالاسم فى قاعدة البيانات
طريقة البحث بالاسم
مغلق
اخي الفاضل فية احد الاخوة وضع ملف وفية خاصية البحث بجزء من الاسم والملف المرفق حتى انا استفدت منة كثير وتفضل بس شوي صعب
السلام عليكم
بالنسبة لسؤال الاخ صاعق فقاعدة بياناتى "بيانات ملف الموظف" واستخدمت الاداة Data
وبالنسبة للاخ حسين عندى مشكلة فى CDSeeلذا لم استطع فتح الملف وياريت لو كان بواسطة WinZip وشكرا على كل حال
تفضل
Dim rs As New ADODB.Recordset
Dim gFind As String, gBookMark As Variant
gFind = InputBox("Find What : ", "Search")
'
If Trim(gFind) = "" Then Exit Sub
'
gBookMark = rs.Bookmark
'
rs.Find "[Name] = '" & Trim(gFind) & "'"
If rs.EOF Then
rs.Bookmark = gBookMark
Exit Sub
End Ifحيث rs ترمز للسجلات
تم تعديل هذه المشاركة بواسطة HnHn في 23 سبتمبر 2004 في 11:45
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةإذا كان الأسم المراد البحث به في text1
وكان عمود الأسماء هو names
فإن الكود هو
Data1.Recordset.FindFirst "names=" & "'" & text1.Text & "'"
تم تعديل هذه المشاركة بواسطة صاعق في 23 سبتمبر 2004 في 17:30
شكراً
تفضل اخي اهداء ،،،
تفضل هذا مثال اوضح عسى ان ينفع ،،،
مشكووووووووووووووووووووووووووووووووووووور اخى حسين
عفواً اخي أهداء والله الموفق ،،،
هذا الموضوع مغلق.