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

بحث في قاعدة البيانات

بدأه toufik hàckér في 1 نوفمبر 2013 · 4 رد · 1,375 مشاهدة · في قسم تكنولوجيا Microsoft .NET العام
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انشات البرنامج بسيط لكن ينقصني شيء اخير وهو البحث في قاعدة البيانات
مثلا ابحث برقم الهاتف احسن يكون لان لارقم مش نفس الرقم شخص اخر
ممكن كود بحث في قاعدة البيانات على رقم الهاتف او يعني اضع فورم اخر واضع فيه زر بحث وتكست بوكس ويطلع لي نتائج في datagridview

115458.png

#2

السلام عليكم ورحمة الله وبركاته

 

يوجد لدي مثال لعملية البحث داخل قواعد البيانات واظهار النتائح على GridView  اتمنى ان تستفيد منه 

 

اتمنى لك التوفيق 

Search.rar

<<<<<<<< NOTHING BEAT HUMAN BRAIN >>>>>>>>>>>>


https://itunes.apple.com/us/app/ding-dang/id564583614?mt=8

#3

بارك الله فيك لكن لم بعمل

#4

السلام عليكم 

 

هل تم اظهار خطأ معين عند تشغيله ام ان عمليه البحث لا تعمل بشكل صحيح ؟ 

<<<<<<<< NOTHING BEAT HUMAN BRAIN >>>>>>>>>>>>


https://itunes.apple.com/us/app/ding-dang/id564583614?mt=8

#5

اضف زر بحث على الفورم ... و فى الحدث Click قم بتعديل الكود ليتناسب معك ....
الكود :


[ltr]
Dim SearchBox As String
SearchBox = InputBox("Please, Specify your friend's first name")
If SearchBox = vbNullString Then
MsgBox ("Type Something in the search")
Exit Sub
End If
 
SqlStr = Nothing
SqlStr = ("Select * From Table_Name Where Fname = '" & SearchBox & "'")
With CMD
.Connection = CN
.CommandType = CommandType.Text
.CommandText = SqlStr
End With
 
DataR = CMD.ExecuteReader
DataR.Read()
 
If DataR.HasRows = False Then
MsgBox ("Friend's First Name doesn't exist")
DataR.Close()
ClearAll()
Exit Sub
Else
TettBox1.Text = DataR!Field1
TettBox2.Text = DataR!Field2
TettBox3.Text = DataR!Field3
DataR.Close()
End If
DataR.Close()
End If
[ltr/]

المصدر به المشروع كامل

Visit Me personally
Visit My Facebook VB Page

فى انتظار تعليقاتكم و اسئلتكم على
Evry1falls (Visual Basic) Plus+

 

 

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