تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] احد طرق البحث في vb.net
#1
السلام عليكم ورحمة الله وبركاته

انا تناقشت مع مجموعه من الشباب في موضوع سابق عن طرق البحث 

وماقصرو ونزلو اكثر من طريقه للبحث ولكن انا اريد طريقه معينه للبحث وهي كالتالي


الشرح 

انا راح اضيف البيانات كما هو موضح 

رقم الهويه       الاسم          رقم الجوال 

طبعا لثلاثه اشخاص 

اريد بعد حفظ بياناتهم البحث عن احدهم بكتابه رقم هويه في التكست بوكس الخاص بالحث وضغط على زر البحث

وبعدها يقوم باظهاراها لي بياناته في الاعلي 

انا راح ارفق لك المثال للتعديل عليه وكتابه كود زر البحث 

كود الاضافه انا كاتبه باقي زر البحث فقط 

شاكر لكم تعاونكم 


الملفات المرفقة
.rar   new tam.rar (الحجم : 194.28 ك ب / التحميلات : 20)
الرد }}}}
تم الشكر بواسطة:
#2
أنا بانتظارك

سؤال : هل جرب أحدكم إجراء عملية البحث من Datagridview؟
على سبيل المثال نقوم بإنشاء نموذج ثم ندرج بداخله Datagridview عدد ٢، الاول سيحتوي على ثلاثة أعمدة :
العامود الاول وسيكون من نوع Combobbox وإسمه النصي الحقول، وسوف نقوم بتحميل ComboBox بالحقول الموجودة في الجدول Person الموجود في قاعدة البيانات.
العامود الثاني سيكون أيضا من نوع Combobox وإسمه النصي عامل المقارنة وسيضم قيم عوامل المقارنة مثل أكبر من ، أصغر من ، يساوي ، أكبر من أو يساوي ، أصغر من أو يساوي ، يحتوي علي ، يبدأ ب ، ينتهي ب.
والعاملون الثالث سيكون من نوع Textbox وإسمه النصي القيمة، هنا سوف نضع قيمة الشرط وهي البيانات الموجودة في الحقل الذي نحدده في الجدول الاول زائد عامل المقارنة.
وفي النهاية نظهر النتائج في
Datagrid2
ما رأيكم بهذه الفكرة؟
أتمنى المشاركة
الرد }}}}
تم الشكر بواسطة: hassan
#3
اخي هل حصلت الكود الخاص بزر البحث

اما بالنسبه لمشاركت انا ان نقوم بفتح موضوع خاص بها ونتشارك في حله مع الشباب
الرد }}}}
تم الشكر بواسطة:
#4
PHP كود :
   Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click
        Dim CmdSelect 
As New OleDbCommand("Select * from table1  where [ID1]=" TextBox16.Text ""conn)
 
       Dim dt As New DataTable
        conn
.Open()
 
       dt.Load(CmdSelect.ExecuteReader())

 
       ha1.Text dt.Rows(0)(0).ToString
        na1
.Text dt.Rows(0)(1).ToString
        ph1
.Text dt.Rows(0)(2).ToString
        ha2
.Text dt.Rows(0)(3).ToString
        na2
.Text dt.Rows(0)(4).ToString
        ph2
.Text dt.Rows(0)(5).ToString
        ha3
.Text dt.Rows(0)(6).ToString
        na3
.Text dt.Rows(0)(7).ToString
        ph3
.Text dt.Rows(0)(8).ToString

        conn
.Close()
 
   End Sub 
الرد }}}}
تم الشكر بواسطة: hassan , hassan
#5
للاسف بعد الضغط على زر البحث يطلع هالخطا



الخطا اني لما اضع رقم 1 مثل الهويه

تظهر لي جميع السجلات
الهويه للرقم 1
والرقم2
والرقم 3

يعني لايظهر لي السجل المطلوب فقط وهو رقم 1

تظهر كل السجلات
الرد }}}}
تم الشكر بواسطة:
#6
PHP كود :
   Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click
        If 
(Trim(TextBox16.Text) = ""Then
            MsgBox
(" Fill Data In TextBox")
 
           Exit Sub
        End 
If
 
       Dim CmdSelect As New OleDbCommand("Select * from table1  where [ID1]=" TextBox16.Text ""conn)
 
       Dim dt As New DataTable
        conn
.Open()
 
       dt.Load(CmdSelect.ExecuteReader())
 
       If (dt.Rows.Count 0Then
            MsgBox
("Not found Data")
 
           Exit Sub
        End 
If
 
       ha1.Text dt.Rows(0)(0).ToString
        na1
.Text dt.Rows(0)(1).ToString
        ph1
.Text dt.Rows(0)(2).ToString
        ha2
.Text dt.Rows(0)(3).ToString
        na2
.Text dt.Rows(0)(4).ToString
        ph2
.Text dt.Rows(0)(5).ToString
        ha3
.Text dt.Rows(0)(6).ToString
        na3
.Text dt.Rows(0)(7).ToString
        ph3
.Text dt.Rows(0)(8).ToString

        conn
.Close()
 
   End Sub 
الرد }}}}
تم الشكر بواسطة: hassan , hassan
#7
يالغالي انا ارفقت لك البرنامج بعد التعديل عليه

انت اضف بيانات جديده 

وابحث برقم الهويه

راح تطلع معاك كل البيانات 

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


الملفات المرفقة
.rar   new tam.rar (الحجم : 197.76 ك ب / التحميلات : 16)
الرد }}}}
تم الشكر بواسطة:
#8
من الواضح انك بتقولى حاجه وانا بنفذ حاجه تانى خالص ممممممممممم
الرد }}}}
تم الشكر بواسطة: رومنس الشوق , hassan , hassan
#9
اتمني تكون لديك الكود اللي ابحث عنه

اكون شاكر ومقدر لك يالغالي
الرد }}}}
تم الشكر بواسطة:
#10
دى اكواد المشروع كله 
PHP كود :
Imports System.Data.OleDb
Public Class Form1
    Dim conn 
As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Application.StartupPath "\data99.mdb")
 
   Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        Try
            Dim cmdinsert 
As New OleDbCommand("insert into table1 (ID1, name1, numbeer1,ID2, name2, number2,ID3, name3, number3) values ('" ha1.Text "','" na1.Text "','" ph1.Text "','" ha2.Text "','" na2.Text "','" ph2.Text "','" ha3.Text "','" na3.Text "','" ph3.Text "')"conn)

 
           cmdinsert.ExecuteNonQuery()

 
           MsgBox("تم حفظ البيانات بنجاح")


 
       Catch ex As Exception
            MsgBox
(ex.Message.ToString)
 
       End Try
 
   End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        ha1
.Text ""

 
       na1.Text ""
 
       ph1.Text ""
 
       ha2.Text ""
 
       na2.Text ""
 
       ph2.Text ""
 
       ha3.Text ""
 
       na3.Text ""
 
       ph3.Text ""

 
       If (Trim(TextBox16.Text) = ""Then
            MsgBox
(" Fill Data In TextBox")
 
           Exit Sub
        End 
If
 
       Dim CmdSelect As New OleDbCommand
        CmdSelect
.Connection conn
        CmdSelect
.CommandType CommandType.Text
        CmdSelect
.CommandText "Select * from table1  where [ID1]=" TextBox16.Text ""
 
       Dim dt As New DataTable
        dt
.Clear()
 
       dt.Load(CmdSelect.ExecuteReader())

 
       Using dt
            If 
(dt.Rows.Count <> 0Then
                ha1
.Text dt.Rows(0)(0).ToString
                na1
.Text dt.Rows(0)(1).ToString
                ph1
.Text dt.Rows(0)(2).ToString

            End 
If

 
       End Using

        CmdSelect
.CommandText "Select * from table1  where [ID2]=" TextBox16.Text ""
 
       dt.Clear()

 
       dt.Load(CmdSelect.ExecuteReader())
 
       Using dt
            If 
(dt.Rows.Count <> 0Then

                ha2
.Text dt.Rows(0)(3).ToString
                na2
.Text dt.Rows(0)(4).ToString
                ph2
.Text dt.Rows(0)(5).ToString
            End 
If

 
       End Using

        CmdSelect
.CommandText "Select * from table1  where [ID3]=" TextBox16.Text ""
 
       dt.Clear()

 
       dt.Load(CmdSelect.ExecuteReader())
 
       Using dt
            If 
(dt.Rows.Count <> 0Then
                ha3
.Text dt.Rows(0)(6).ToString
                na3
.Text dt.Rows(0)(7).ToString
                ph3
.Text dt.Rows(0)(8).ToString
            End 
If

 
       End Using

    End Sub

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        conn
.Open()
 
   End Sub
End 
Class 
اتمنى اكود وفقت 
الرد }}}}
تم الشكر بواسطة: hassan


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث بجزء من التاريخ أسامة السالمي 6 118 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  [سؤال] استفسار بخصوص انواع كود البحث.. Marwan9990 1 98 03-02-17, 07:09 PM
آخر رد: مساعدة
  [VB.NET] البحث التلقائي tifagreet 1 82 30-01-17, 06:07 PM
آخر رد: مساعدة
  البحث قى listbox Mohamed20 1 93 27-01-17, 07:12 AM
آخر رد: مساعدة
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 202 24-01-17, 08:32 PM
آخر رد: gmailali
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 120 22-01-17, 01:39 PM
آخر رد: thevirus
  [VB.NET] كيف يتم البحث فى ليست فيو موجودة فى فورم اخر الماجيك مسعد 15 301 19-01-17, 08:33 PM
آخر رد: الماجيك مسعد
  [سؤال] كود البحث عن طريق اسم naden 2 240 15-12-16, 02:33 AM
آخر رد: naden
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 153 03-12-16, 09:41 AM
آخر رد: ابراهيم النعيمي
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 166 29-11-16, 01:37 AM
آخر رد: hglogtd

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم