![]() |
|
اريد التعديل على هذا الكود - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51) +--- قسم : قسم ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=52) +---- قسم : قسم اسئلة ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=53) +---- الموضوع : اريد التعديل على هذا الكود (/showthread.php?tid=29381) |
اريد التعديل على هذا الكود - nabil.1710 - 15-04-19 اريد التعديل على هذا الكود
حيث يقوم بفلترة البيانات من حقلين و وضع الناتج داخل الليبول . اريد التعديل بان يضع النتائج داخل داتا جريد فيو .
المثال على منصة 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 RE: اريد التعديل على هذا الكود - elgokr - 22-04-19 مرحباً nabil.1710
كل ما عليك على الاسطر التالية فى الكود الخاص بك كود : If dt.Rows.Count > 0 Thenاستبدله بـ كود : If dt.Rows.Count > 0 Thenوبكده يبتم عرض البيانات فى الداتا جريد
تحياتى لك
وتمنياتى لك التوفيق
|