منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

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

كود :

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

خبروني ويش الخطأ ؟؟

سلام

جرب هدا التعديل

كود :

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

موفقين

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

0theghost0

الطالب

0theghost0