15-04-19, 05:05 PM
اريد التعديل على هذا الكود
حيث يقوم بفلترة البيانات من حقلين و وضع الناتج داخل الليبول . اريد التعديل بان يضع النتائج داخل داتا جريد فيو .
المثال على منصة 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
'جملة الاتصال بقاعدة البيانات يوضع الكود في زر امر
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