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

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

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

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

Search.rar

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

السلام عليكم 

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

اضف زر بحث على الفورم ... و فى الحدث 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/]

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