كود البحث - نسخة قابلة للطباعة

كود البحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود البحث (/showthread.php?tid=3942)

كود البحث - صالح الشنطى - 30-09-14

السلام عليكم

كتبت كود بحث بهذه الطريقة

PHP كود :

  Dim ds As New DataSet

        Dim da As New OleDbDataAdapter("Select  * from tabel1  where emp_nom= " & TextBox1.Text & "", cn)
        ds = New DataSet
        da.Fill(ds)

        For i = 0 To ds.Tables(0).Rows.Count - 1
            TextBox1.Text = ds.Tables(0).Rows(i).Item("emp_nom")
            TextBox2.Text = ds.Tables(0).Rows(i).Item("emp_name")
            DateTimePicker1.Value = ds.Tables(0).Rows(i).Item("emp_date")
        Next 

والكود اشتغل وعرض البيانات داخل الادوات

ولكن لو تكرم احد الاعظاء واكمل الكود بحيث لو تم ادخال رقم غير موجود بقاعدة البيانات يقوم باظهار مسج

هذا الرقم غير موجود

ولكم جزيل الشكر

RE: كود البحث - kslawy - 30-09-14

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

قبل جملة For تضع الشرط التالي:

PHP كود :

If ds.Tables(0).Rows.Count = 0 Then
Msgbox("هذا الرقم غير موجود")
Exit Sub
End If 

RE: كود البحث - صالح الشنطى - 30-09-14

[attachment=2498]السلام عليكم

شكرا اخى على الاهتمام

ولكن للاسف وضعت الكود ولم تظهر النتجية المطلوبه

احاول ان ارفق مثال

لاننى فى المرة الاولة ارفقت مثال ولم يظهر

RE: كود البحث - Abu Ehab - 30-09-14

طيب .. ماشي
هو أساسا أنت لما تبحث بقيمة محددة .. أمامك خياران لا تالت لهما :
أما موجود :
النتيجة تكون سجل واحد ,, ومش لازم حلقة For ,,, خد الروووو 0

أو مش موجود ... طبعا مفيش نتائج .
بس خلاص

RE: كود البحث - صالح الشنطى - 30-09-14

السلام عليكم

انا متاسف جدا اخى الكود اشتغل

كانت هناك مشكلة

فى عمل Build

اكرر اعتذارى

RE: كود البحث - صالح الشنطى - 30-09-14

(30-09-14, 10:02 PM)Abu Ehab كتب : طيب .. ماشي
هو أساسا أنت لما تبحث بقيمة محددة .. أمامك خياران لا تالت لهما :
أما موجود :
النتيجة تكون سجل واحد ,, ومش لازم حلقة For ,,, خد الروووو 0

أو مش موجود ... طبعا مفيش نتائج .
بس خلاص

فعلا مش لازم حلقة For للبحث بقيمة محدده ولكن الكود السابق تم اختصاره من كود يقوم بعمليات اخرى داخل حلقة For
وتم تعديل الكود ليصبح بهذا الشكل

PHP كود :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "" Then
            MsgBox("          يجب ادخال الرقم ", MsgBoxStyle.DefaultButton1, "بحث")
            Exit Sub
        End If
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter("Select  * from tabel1  where emp_nom= " & TextBox1.Text & "", cn)
        ds = New DataSet
        da.Fill(ds)

        If ds.Tables(0).Rows.Count = 0 Then
            MsgBox("هذا الرقم غير موجود")
            Exit Sub
        End If

        TextBox1.Text = ds.Tables(0).Rows(0).Item("emp_nom")
        TextBox2.Text = ds.Tables(0).Rows(0).Item("emp_name")
        DateTimePicker1.Value = ds.Tables(0).Rows(0).Item("emp_date")
    End Sub 