کی بهتره از پروسیجر استفاده کنیم ؟
دوستمون شیوه ایجاد کلاس های متفاوت رو گفته اما شیوه استفاده رو کاملا توضیح ندادند
دیتاستی که در صفحه استفاده کرده ام اررور داره لطفا راهنمایی کنید
Public Class SQLProvider
Public Function GetOrder() As DataSet
' Dim Cnn As SqlConnection = Me.GetConnection()
Dim cnn As New SqlConnection(ConfigurationManager.ConnectionStrin gs.Item("ConnectionString").ToString)
Dim Cmd As New SqlCommand("ReadDatabase", cnn)
Cmd.CommandType = CommandType.StoredProcedure
'Dim Param As SqlParameter
'Param = Cmd.Parameters.Add("@recID", SqlDbType.Int)
'Param.Value = OrderID
Dim DA As New SqlDataAdapter
Dim DS As New DataSet
DA.SelectCommand = Cmd
Try
cnn.Open()
DA.Fill(DS, "table1")
Return DS
Catch ex As SqlException
Throw ex
Catch ex As Exception
Throw ex
Finally
If (cnn.State <> ConnectionState.Closed) Then cnn.Close()
End Try
End Function
Public Function PopulateGridView() As DataSet
Try
Dim DS As DataSet = GetOrder()
Return DS
Catch ex As SqlException
Throw ex
Catch ex As Exception
Throw ex
End Try
End Function
End Class
Partial Class _Default
Inherits System.Web.UI.Page
Public Sub BindGridView()
'Try
Dim obj As New SQLProvider
Dim ds As DataSet = obj.PopulateGridView
GridView1.DataSource = DS.Tables(1).DefaultView
GridView1.DataBind()
'Catch ex As SqlException
' Response.Write(ex.Message.ToString())
'Catch ex As ArgumentOutOfRangeException
' ViewState("drpPagingIndex") -= 1
' BindGridView(IIf(ViewState("drpPagingIndex") IsNot Nothing, Convert.ToInt32(ViewState("drpPagingIndex")), 0), 5)
'Catch ex As Exception
' Response.Write(ex.Message.ToString())
'End Try
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If (Not IsPostBack) Then
BindGridView()
End If
End Sub
End Class
روی سایت برنامه های زیادی هست که از کلاس ها استفاده کردند اما چون چند لایه است کمی درکش مشکله
کسی یه برنامه نداره که چهار عمل اصلی رو با استفاده از کلاس ها انجام داده باشه (دوستمون البته کلاس ها رو نوشتند
من با استفادشون در صفحاتم مشکل دارم.
