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

نسخة كاملة : اريد التعديل على هذا الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اريد التعديل على هذا الكود
حيث يقوم بفلترة البيانات من حقلين و وضع الناتج داخل الليبول . اريد التعديل بان يضع النتائج داخل داتا جريد فيو .
المثال على منصة asp.net


و شكرا



   Try
            'جملة الاتصال بقاعدة البيانات يوضع الكود في زر امر
            Dim conn As New SqlConnection
            conn.ConnectionString = ConfigurationManager.ConnectionStrings("PMConnectionString1").ConnectionString

            'جملة البحث عن اسم مستخدم
            Dim sql As String = "select * from Employee where Emp_Name = @Emp_Name and Emp_Dep = @Emp_Dep "
            conn.Open()
            Dim dt As DataTable = New DataTable
            Dim adb As Data.SqlClient.SqlDataAdapter = New Data.SqlClient.SqlDataAdapter(sql, conn)
            adb.SelectCommand.Parameters.AddWithValue("Emp_Name", txtName.Text.ToString)
            adb.SelectCommand.Parameters.AddWithValue("Emp_Dep", txtDep.Text.ToString)
            adb.Fill(dt)
            conn.Close()


            'اذا كان المستخدم موجود سوف تظهر البيانات فى اليبول
            If dt.Rows.Count > 0 Then
                Label5.Text = dt.Rows(0)("Emp_Name").ToString
                Label6.Text = dt.Rows(0)("Emp_Dep").ToString


            Else
                Exit Sub
            End If

        Catch ex As Exception
            Exit Sub
        End Try

مرحباً nabil.1710

كل ما عليك على الاسطر التالية فى الكود الخاص بك
كود :
           If dt.Rows.Count > 0 Then
               Label5.Text = dt.Rows(0)("Emp_Name").ToString
               Label6.Text = dt.Rows(0)("Emp_Dep").ToString


           Else
               Exit Sub
           End If

استبدله بـ
كود :
       If dt.Rows.Count > 0 Then
           DataGridView1.DataSource = dt
       Else
           Exit Sub
       End If

وبكده يبتم عرض البيانات فى الداتا جريد

تحياتى لك
وتمنياتى لك التوفيق