تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ماهو الخطأ في هذا الكود ؟؟
#1
السلام عليكم

اريد اظهار الاسم مع البيانات متى بدا العمل ؟
ومتى خرج من العمل ؟

اكتب الاسم في التكس بوكس ويظهر في قريد لست فيوا

كود :
Public Class Form2

   Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
       Try
           ConnDB()
           cmd.CommandText = "Select * from In_Work WHERE Name_Stuff = '" & txtBuildingName.Text & "'"
           dr.Close()
           dr = cmd.ExecuteReader
           While (dr.Read())
               ListViewMakeRow(lstViewSearch, dr("ID").ToString, dr("Name_Stuff").ToString, dr("Time_In").ToString, dr("Way_Late").ToString)
           End While

           cmd.CommandText = "Select * from Out_Work WHERE Name_Stuff = '" & txtBuildingName.Text & "'"
           dr.Close()
           dr = cmd.ExecuteReader
           While (dr.Read())
               ListViewMakeRow(lstViewSearch, dr("ID").ToString, dr("Name_Stuff").ToString, dr("Time_Out").ToString, dr("Way_Late").ToString)
           End While
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

   Private Sub ListViewMakeRow(ByVal listview1 As ListView, ByVal item_title As String, ByVal ParamArray subitem_titles() As String)
       ' Make the item.
       Dim new_item As ListViewItem = listview1.Items.Add(item_title)

       ' Make the sub-items.
       For i As Integer = subitem_titles.GetLowerBound(0) To subitem_titles.GetUpperBound(0)
           new_item.SubItems.Add(subitem_titles(i))
       Next i
   End Sub
End Class
خبروني ويش الخطأ ؟؟
الرد
تم الشكر بواسطة:
#2
سلام

جرب هدا التعديل
كود :
Public Class Form2

    Private Sub btnSearch_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSearch.Click
        Try

            Using DataAdapter1 As New OleDb.OleDbDataAdapter("SELECT * FROM [In_Work] WHERE [Name_Stuff]='" & txtBuildingName.Text.Trim & "'", ConnDB)
                Using DataTable1 As New DataTable
                    For Each row As DataRow In DataTable1.Rows
                        lstViewSearch.Items.Add(New ListViewItem(New String() {row("ID"), row("Name_Stuff"), row("Time_In"), row("Way_Late")}))
                    Next
                End Using
            End Using

            Using DataAdapter1 As New OleDb.OleDbDataAdapter("SELECT * FROM [Out_Work] WHERE [Name_Stuff]='" & txtBuildingName.Text.Trim & "'", ConnDB)
                Using DataTable1 As New DataTable
                    For Each row As DataRow In DataTable1.Rows
                        lstViewSearch.Items.Add(New ListViewItem(New String() {row("ID"), row("Name_Stuff"), row("Time_Out"), row("Way_Late")}))
                    Next
                End Using
            End Using

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

End Class


موفقين
متغيب
الرد
تم الشكر بواسطة:
#3
عرفت اعدله لكن عندي مشكلة اثناء عملية البحث يظهر لي اسمين ومكان وقت الخروج يظهر لي لما خرج من العمل مبكر

هذا الكود ارجو تعديله ليظهر كل شيء في خانته المحددة :

Imports System.Data.OleDb
Public Class Form2

Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
Try
sqL = "Select * from In_Work WHERE Name_Stuff = '" & txtBuildingName.Text & "'"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
While dr.Read = True
ListViewMakeRow(lstViewSearch, dr("ID").ToString, dr("Name_Stuff").ToString, dr("Time_In").ToString, dr("Way_Late").ToString)
End While

sqL = "Select * from Out_Work WHERE Name_Stuff = '" & txtBuildingName.Text & "'"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
While dr.Read = True
ListViewMakeRow(lstViewSearch, dr("ID").ToString, dr("Name_Stuff").ToString, dr("Time_Out").ToString, dr("Way_Late").ToString)
End While

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

Private Sub ListViewMakeRow(ByVal listview1 As ListView, ByVal item_title As String, ByVal ParamArray subitem_titles() As String)
' Make the item.
Dim new_item As ListViewItem = listview1.Items.Add(item_title)

' Make the sub-items.
For i As Integer = subitem_titles.GetLowerBound(0) To subitem_titles.GetUpperBound(0)
new_item.SubItems.Add(subitem_titles(i))
Next i
End Sub
End Class
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده شباب اريد تعديل الكود يشتغل عليDataGridView بدل ListView -اين المحترفين Fransesco 3 58 22-02-19, 09:22 PM
آخر رد: elgokr
Exclamation [VB.NET] اصطياد رسالة الخطأ دون يتوقف البرنامج sniperjawadino 3 75 21-02-19, 04:12 PM
آخر رد: elgokr
  [VB.NET] مساعده في تصحيح الكود dubai.eig 4 99 20-02-19, 05:48 PM
آخر رد: elgokr
  [VB.NET] استفسار :- هل صحيح كتابه الكود بهذه الطريقه dubai.eig 8 193 14-02-19, 06:52 PM
آخر رد: ابراهيم ايبو
Exclamation [VB.NET] أين الخطأ في مشروعي abarrak 3 119 11-02-19, 12:41 PM
آخر رد: ابراهيم ايبو
  ماهو سبب وجود سجل فارغ عند إضافة البيانات من الداتاقريد فيو أكثر من مرة جيولوجي مبتدئ 1 97 03-02-19, 07:24 PM
آخر رد: asemshahen5
  ماهو سبب وجود سجل فارغ عند إضافة البيانات من الداتاقريد فيو أكثر من مرة جيولوجي مبتدئ 0 60 02-02-19, 11:25 AM
آخر رد: جيولوجي مبتدئ
  مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله فراس الغزي 8 244 29-01-19, 10:43 PM
آخر رد: فراس الغزي
  [VB.NET] محتاج التعديل على الكود dubai.eig 1 170 17-01-19, 09:50 AM
آخر رد: dubai.eig
  [VB.NET] برجاء المساعدة فى هذا الكود medhat_fouad 0 95 16-01-19, 02:10 PM
آخر رد: medhat_fouad

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


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