لو سمحتم يااعضاء عندي طلب صغير ...انا عم بعمل برنامج ومن ضمن البرنامج رح اعمل فيه محرك بحث براسطة combobox فياريت اللي بيعرف الكود ومتطلبات هالبحث يساعدني فيه...........مررررة مستعجلة وجزاكم الله خير
طلب كود بلغة الفيجوال بيسك
-
-
sor'ry
-
Private Sub Combo1_Change( )
Dim rsStudents As New ADODB.Recordset جدول الطلاب
Dim GetStudentName as string متغير لحفظ رقم الطالب
rsStudents.Open "Select * from Got_Students where stNumber = " & trim(Combo1.text) & "", Cn, adOpenKeyset, adLockPessimistic
If rsStudents.EOF = True And rsStudents.BOF = True Then
MsgBox "Student Number NOT Found", , "GetStudentName" Else
GetStudentName = rsStudents(1) End If
rsStudents.Close Set rsStudents = Nothing
End Sub
1- قاعدة البيانات يجب ان تكون مفتوحة قبل هذا الموديول
2- يحذف النص العربي لأنه للشرح فقط
والكود مجرب ويعمل بكفاءة
الدالة trim لحذف الفراغات من الكومبوبوكس
-
I'm so sorr'y
-
sorry
-
بسم الله الرحمن الرحيم
عمل محرك بحث وليكن جوجل او اى محرك بحث تريده
يلا نبتدى الشرح
قوم بفتح برنامج فيجال بيسك دوت نت
واختار نوع المشروع تطبيقات الويندوز Windows Application وسمى المشروع زى ما تحب
ضيف من التول بار
TextBox
وكوماند
وليبل
نضيف الـ WebBrowser
من التول بار كليك يمين اختر Choose Items
اذهب الى COM Components واختر Microsoft WebBrowser
هتظهر تحت فى التول بار اضغط دبل كليك عليك واسحبها فى الفورم
شكل التصميم
الأكواد
اضغط دبل كليك على ابحث واكتب الكود التالى
رمز برمجي:
WebBrowser1.Navigate("http://www.google.com.eg/search?hl=ar&q=" & TextBox1.Text)
كده انتهى الشرح
و يمكن تغير محرك البحث
بتغير هذا الرابط رمز برمجي:
Browser1.Navigate("محرك البحث" & TextBox1.Text)
اتمنى اكون قد افدتك