تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عرض بيانات موظف على listview
#1
السلام عليكم ... لدي مشكلة صغيرة يا ريت تساعدوني على حلها ...
انا لدي textbox و أكتب عليها رقم الموظف بحيث تطلعلي بياناته على listview ..
اشتغل الكود الحمد لله ... لكني ربما احتاج لأكثر من موظف .. عندما اقوم بكتابة رقم الموظف الثاني يختفي الموظف الاول من listview و يظهر مكانه الموظف الثاني الذي قمت بإدخال رقمه
المطلوب هو عندما ادخل رقم موظف آخر يعرضلي بياناته في سجل اخر على listvew تحت الوظف الاول و هكذا
...



هذا هو الكود المستخدم
كود :
Private Sub t2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox13.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Dim s As String = " SELECT EMPL_MAS.EMPL_NAME_LOC, Departments.DEPT_NAME_LOC, DIVISION.DIV_NAME_LOC FROM (Departments INNER JOIN EMPL_MAS ON Departments.DEPT_CODE = EMPL_MAS.DEPT_CODE) INNER JOIN DIVISION ON EMPL_MAS.DIV_CODE = DIVISION.DIV_CODE where EMPL_CODE=" + TextBox13.Text
            cn.Open()
            Dim cmd1 As New OleDbCommand(s, cn)
            Dim dr12 As OleDbDataReader = cmd1.ExecuteReader
            ListView1.Items.Clear()
            Dim ss1 As String
            Dim da21 As New OleDb.OleDbDataAdapter
            Dim dr21 As DataRow
            Dim dt21 As DataTable
            Dim DS1 As New DataSet
            ListView1.Items.Clear()
            da21 = New OleDb.OleDbDataAdapter(s, cn)
            DS1 = New DataSet
            da21.Fill(DS1, "s")
            dt21 = DS1.Tables("s")
            '*************************************
            If dr12.Read Then
                da21 = New OleDb.OleDbDataAdapter(s, cn)
                DS1 = New DataSet
                da21.Fill(DS1, "s")
                dt21 = DS1.Tables("s")
                Dim i As Integer
                For i = 0 To dt21.Rows.Count - 1
                    Dim litem As New ListViewItem
                    dr21 = dt21.Rows.Item(i)
                    On Error Resume Next
                    litem.Text = dt21.Rows(i).Item(dr12!EMPL_NAME_LOC)
                    litem.SubItems.Add(dr12!EMPL_NAME_LOC)
                    litem.SubItems.Add(TextBox13.Text)
                     ListView1.Items.Add(litem)
                Next i
            End If
            dr12.Close()
            cn.Close()
        End If
    End Sub
شاكر حسن تعاونكم مسبقا
الرد
تم الشكر بواسطة:
#2
يجب عليك في عملية الادخال ان تقوم بتحديد الصف والعمود
لكنك تعتمد على الصف الاول في عملية الادخال مع تحريك الاعمدة
الرد
تم الشكر بواسطة: ahmed fathi
#3
من الكود احذف هذا السطر:
كود :
ListView1.Items.Clear()
لأنه يفرغ أداة الـ Listviewe من عناصرها في كل مرة تجري فيها البحث

***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد
تم الشكر بواسطة: المشاعر , ahmed fathi
#4

شكرا لكم .... لقد قمت بحذف هذا السطر ListView1.Items.Clear() و أشتغل 100%

الآن نأتي لسؤال آخر ... كيف أقوم بإدخال بيانات الموجودة في ListView1 إلى جدول خاص بها فقط ... أى البيانات الموجودة في ListView1 أريد تخزينها في جدول

لو فرضنا أن اسم الجدول ... tb1 >>>و الحقول t1,t2,t3,t4,t5
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاخوة الذين يواجهون مشكلة الحفظ في قاعدة بيانات اكسسس abo ragab 1 119 منذ 2 ساعة مضت
آخر رد: alsihran
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 66 08-12-18, 02:22 PM
آخر رد: nandy2016
  [VB.NET] حفظ بيانات في جدولين kah1974 0 45 05-12-18, 11:44 PM
آخر رد: kah1974
  [كود] إدراج بيانات من الجريد إلى أكسس motazsaad94@gmail.com 3 75 05-12-18, 05:44 PM
آخر رد: motazsaad94@gmail.com
  كيفية دمع بيانات فى تكست بوكس واحد سمير جمال 3 83 04-12-18, 04:07 PM
آخر رد: Rabeea Qbaha
  اضافة بيانات اكثر من جدول في الكرستال المتألق9 1 58 02-12-18, 04:06 PM
آخر رد: Rabeea Qbaha
  ربطت مشروع على قاعدة بيانات mysql على استضافتي لكن البرنامج بطيء جدا essawq 17 560 02-12-18, 12:13 AM
آخر رد: أبوبكر سويدان
  [VB.NET] كيف يمكن تحديد كلمة بلون داخل listview XBOOBX 1 80 30-11-18, 06:28 PM
آخر رد: XBOOBX
  [VB.NET] رفع قاعدة بيانات علي جوجل دريف والاتصال بها من أكثر من جهاز محمد صلاح ابراهيم 2 185 29-11-18, 03:09 AM
آخر رد: Rabeea Qbaha
  اظهار بيانات معينه من جدول دون اظهاره فى داتاجريدفيو vb2010 8 142 26-11-18, 01:11 AM
آخر رد: Rabeea Qbaha

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


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