السلام عليكم ورحمة الله وبركاته
كل عام وانتم بخير
أخواني أنا عندي برنامج بالفجول مرتبط بقاعدة بيانات الأكسس مكونة من عدة جداول ولكنني عملت استعلام به الحقول التي أريدها واستعملته في برنامجي للاتصال وأيضاً في ال OleDbDataAdapter وتصميم البرنامج مكون من 3فورمات الأولى هي عبارة عن عرض للبيانات Data Grid
الفورمة الثانية عبارة عن عدد من ال textbox والعمليات الموجودة علية من مسح وإضافة وحذف وبحث بحث أنه عندما يضغط على بحث ينتقل إلى الفورمة الثالثة التي يوجد بها زرين للاختيار Radio Button بحيث يختار طريقة البحث إما باسم الكتاب وإما برقمه وعندما يختار بحث برقم الكتاب يطلع له input box يطلب منه إدخال رقم الكتاب وعندما يدخله يرجع الفورمة الثانية وتطلع نتيجة البحث للرقم الذي اختاره في ال textbox ونفس الحالة مع البحث باسم الكتاب
ولكن المشكلة هو عندما اشغل البرنامج ما يشتغل إلا البحث بالرقم ولكن لما أضغط بحث بالاسم ما يصير أي شيء مع ملاحظة أني عندما برمجة الفورمة الثالثة التي فيها زرين للاختيار Radio Button وضعت زر button وكتبت عليه بحث وبرمجته بالشكل التالي
Public x As Integer
Public y As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
x = InputBox("enter your patient_id")
ElseIf RadioButton2.Checked = True Then
y = InputBox("enter your patient_name")
End If
Me.Close()
End Sub
وفي الفورمة الثانية عند زر الأمر بحث كتبت الكود التالي
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim f3 As New Form3()
f3.ShowDialog()
Dim secom As New OleDbCommand()
Dim recom As OleDbDataReader
secom.Connection = OleDbConnection1
If f3.x <> 0 Then
secom.CommandText = "select* from patient where patient_id like '" & Trim(f3.x) & "' "
ElseIf f3.y <> " " Then
secom.CommandText = "select* from patient where patient_name like '" & Trim(f3.y) & "' "
End If
OleDbConnection1.Open()
recom = secom.ExecuteReader
If recom.Read() Then
TextBox1.Text = recom.GetValue(0)
TextBox2.Text = recom.GetValue(1)
TextBox3.Text = recom.GetValue(2)
TextBox4.Text = recom.GetValue(3)
TextBox5.Text = recom.GetValue(4)
TextBox6.Text = recom.GetValue(5)
Else
MsgBox("المريض غير موجود")
End If
recom.Close()
OleDbConnection1.Close()
End Sub
ونفسي أحد ينبهني أين موضع الخطأ !!!!!!!!!!!!!
لأنه يبحث بالرقم بشكل سليم المشكلة بس في الاسم !!!!!!!!!!!!
