musvn_fanleague
New Member
'Lay du lieu ra SQLDataReader, su dung StoreProc phuc vu cho listview
Function FillDataSQLDataReaderByProc(ByVal ProcName As String) As SqlDataReader
Dim sqlDR As SqlDataReader
cm = New SqlCommand
'Tao command
cm.Connection = cnn
cm.CommandText = ProcName
cm.CommandType = CommandType.StoredProcedure
'Thuc hien command
cm.ExecuteNonQuery()
sqlDR = cm.ExecuteReader
Return sqlDR
End Function
'Lay du lieu ra SQLDataReader, su dung Cau SQL phuc vu cho listview
Function FillDataSQLDataReaderByCommand(ByVal sql As String) As SqlDataReader
Dim sqlDR As SqlDataReader
cm = New SqlCommand
cm.Connection = cnn
cm.CommandText = sql
cm.CommandType = CommandType.Text
'cm.ExecuteNonQuery()
sqlDR = cm.ExecuteReader
Return sqlDR
End Function
Qua hai doan code này , minh khong hiểu có su khac biệt như the nao . Mong moi nguoi giúp đỡ !!!
Function FillDataSQLDataReaderByProc(ByVal ProcName As String) As SqlDataReader
Dim sqlDR As SqlDataReader
cm = New SqlCommand
'Tao command
cm.Connection = cnn
cm.CommandText = ProcName
cm.CommandType = CommandType.StoredProcedure
'Thuc hien command
cm.ExecuteNonQuery()
sqlDR = cm.ExecuteReader
Return sqlDR
End Function
'Lay du lieu ra SQLDataReader, su dung Cau SQL phuc vu cho listview
Function FillDataSQLDataReaderByCommand(ByVal sql As String) As SqlDataReader
Dim sqlDR As SqlDataReader
cm = New SqlCommand
cm.Connection = cnn
cm.CommandText = sql
cm.CommandType = CommandType.Text
'cm.ExecuteNonQuery()
sqlDR = cm.ExecuteReader
Return sqlDR
End Function
Qua hai doan code này , minh khong hiểu có su khac biệt như the nao . Mong moi nguoi giúp đỡ !!!