تقييم الموضوع :
  • 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 ك ب / التحميلات : 15)
الرد }}}}
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 42 منذ 11 ساعة مضت
آخر رد: ابراهيم النعيمي
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 37 29-11-16, 01:37 AM
آخر رد: hglogtd
  البحث مثل جوجل Samosoft 4 59 29-11-16, 01:35 AM
آخر رد: Samosoft
  خطأ عند البحث khalid475 1 44 28-11-16, 06:23 PM
آخر رد: khalid475
  [سؤال] كود البحث عن طريق اسم naden 1 68 28-11-16, 02:05 PM
آخر رد: Adrees
  [VB.NET] مشكلة في كود البحث khalid475 14 213 11-11-16, 07:52 PM
آخر رد: khalid475
  أستفسار الطباعه بعد البحث مباشره adel27 0 58 26-10-16, 03:15 PM
آخر رد: adel27
  البحث المتعدد بقواعد البيانات العواد الصغير 9 187 22-10-16, 10:29 PM
آخر رد: العواد الصغير
  البحث بين تاريخين عن طريق المعالج أسامة السالمي 9 267 14-10-16, 08:18 AM
آخر رد: ممدوح
  ازاى اعد عدد الصفوف عند البحث بين تاريخين araxis 1 89 10-10-16, 10:15 PM
آخر رد: ابراهيم النعيمي

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


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