6
A
回答
9
从MSDN
要执行的存储过程返回行编程方式使用命令对象
Dim sqlConnection1 As New SqlConnection("Your Connection String")
Dim cmd As New SqlCommand
Dim reader As SqlDataReader
cmd.CommandText = "StoredProcedureName"
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = sqlConnection1
sqlConnection1.Open()
reader = cmd.ExecuteReader()
' Data is accessible through the DataReader object here.
' Use Read method (true/false) to see if reader has records and advance to next record
' You can use a While loop for multiple records (While reader.Read() ... End While)
If reader.Read() Then
someVar = reader(0)
someVar2 = reader(1)
someVar3 = reader("NamedField")
End If
sqlConnection1.Close()
36
在您的.vb文件的顶部:
Imports System.data.sqlclient
在你的代码:
'Setup SQL Command
Dim CMD as new sqlCommand("StoredProcedureName")
CMD.parameters("@Parameter1", sqlDBType.Int).value = Param_1_value
Dim connection As New SqlConnection(connectionString)
CMD.Connection = connection
CMD.CommandType = CommandType.StoredProcedure
Dim adapter As New SqlDataAdapter(CMD)
adapter.SelectCommand.CommandTimeout = 300
'Fill the dataset
Dim DS as DataSet
adapter.Fill(ds)
connection.Close()
'Now, read through your data:
For Each DR as DataRow in DS.Tables(0).rows
Msgbox("The value in Column ""ColumnName1"": " & cstr(DR("ColumnName1")))
next
现在基本都闪开,
我强烈建议将实际的SqlCommand执行抽象为一个函数。
这里是我使用的,以某种形式,对各个项目的通用功能:
''' <summary>Executes a SqlCommand on the Main DB Connection. Usage: Dim ds As DataSet = ExecuteCMD(CMD)</summary>'''
''' <param name="CMD">The command type will be determined based upon whether or not the commandText has a space in it. If it has a space, it is a Text command ("select ... from .."),'''
''' otherwise if there is just one token, it's a stored procedure command</param>''''
Function ExecuteCMD(ByRef CMD As SqlCommand) As DataSet
Dim connectionString As String = ConfigurationManager.ConnectionStrings("main").ConnectionString
Dim ds As New DataSet()
Try
Dim connection As New SqlConnection(connectionString)
CMD.Connection = connection
'Assume that it's a stored procedure command type if there is no space in the command text. Example: "sp_Select_Customer" vs. "select * from Customers"
If CMD.CommandText.Contains(" ") Then
CMD.CommandType = CommandType.Text
Else
CMD.CommandType = CommandType.StoredProcedure
End If
Dim adapter As New SqlDataAdapter(CMD)
adapter.SelectCommand.CommandTimeout = 300
'fill the dataset
adapter.Fill(ds)
connection.Close()
Catch ex As Exception
' The connection failed. Display an error message.
Throw New Exception("Database Error: " & ex.Message)
End Try
Return ds
End Function
一旦你的,你的SQL执行+阅读代码非常简单:
'----------------------------------------------------------------------'
Dim CMD As New SqlCommand("GetProductName")
CMD.Parameters.Add("@productID", SqlDbType.Int).Value = ProductID
Dim DR As DataRow = ExecuteCMD(CMD).Tables(0).Rows(0)
MsgBox("Product Name: " & cstr(DR(0)))
'----------------------------------------------------------------------'
+4
+1用于推荐到抽象函数。 – mg1075 2013-02-27 01:39:48
2
最简单的方法?有用。 :)
Dim queryString As String = "Stor_Proc_Name " & data1 & "," & data2
Try
Using connection As New SqlConnection(ConnStrg)
connection.Open()
Dim command As New SqlCommand(queryString, connection)
Dim reader As SqlDataReader = command.ExecuteReader()
Dim DTResults As New DataTable
DTResults.Load(reader)
MsgBox(DTResults.Rows(0)(0).ToString)
End Using
Catch ex As Exception
MessageBox.Show("Error while executing .. " & ex.Message, "")
Finally
End Try
0
我的存储过程需要2个参数,我需要我的函数返回一个DataTable这里就是100%的工作代码
请确保您的程序返回一些行
Public Shared Function Get_BillDetails(AccountNumber As String) As DataTable
Try
Connection.Connect()
debug.print("Look up account number " & AccountNumber)
Dim DP As New SqlDataAdapter("EXEC SP_GET_ACCOUNT_PAYABLES_GROUP '" & AccountNumber & "' , '" & 08/28/2013 &"'", connection.Con)
Dim DST As New DataSet
DP.Fill(DST)
Return DST.Tables(0)
Catch ex As Exception
Return Nothing
End Try
End Function
0
Dim sqlConnection1 As New SqlConnection("Your Connection String")
Dim cmd As New SqlCommand
cmd.CommandText = "StoredProcedureName"
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = sqlConnection1
sqlConnection1.Open()
Dim adapter As System.Data.SqlClient.SqlDataAdapter
Dim dsdetailwk As New DataSet
Try
adapter = New System.Data.SqlClient.SqlDataAdapter
adapter.SelectCommand = cmd
adapter.Fill(dsdetailwk, "delivery")
Catch Err As System.Exception
End Try
sqlConnection1.Close()
datagridview1.DataSource = dsdetailwk.Tables(0)
相关问题
- 1. 从存储过程执行SQL Server代理作业,并返回作业结果
- 2. C# - 批处理执行存储过程
- 3. 执行多个Windows cmd命令并存储处理结果
- 4. 执行SQL存储过程
- 5. 如何对SQL Server CTE的结果执行存储过程
- 6. 使用存储过程在SQL Server中执行结果
- 7. 如何让sql server存储过程结果在其他存储过程中进行处理?
- 8. 如何从存储过程执行存储过程时禁用查询结果?
- 9. 将存储过程的结果附加到较早执行的存储过程
- 10. 执行存储过程并行方式
- 11. 从SQL Server存储过程执行Oracle存储过程
- 12. SQL存储过程和错误处理
- 13. LINQ to SQL:存储过程结果
- 14. 存储过程中的SQL结果集
- 15. SQL汇总存储过程的结果
- 16. MySQL存储过程动态sql结果
- 17. sql存储过程清除结果集
- 18. 返回存储过程的结果sql
- 19. 从存储过程合并结果集
- 20. 使用SQL代理在SQL Server 2012中执行存储过程
- 21. SQL存储过程执行命令
- 22. 无法执行SQL Server存储过程
- 23. SQL:存储过程执行错误
- 24. C#&SQL Server:执行存储过程
- 25. T-SQL动态执行存储过程
- 26. PHP和SQL Server存储过程执行
- 27. 在sql profiler中执行存储过程
- 28. 在SQL Server中执行存储过程
- 29. SQL Server复制 - 存储过程执行
- 30. SQL Server 2005存储过程执行
如果您使用的是2008年,可以返回一个表格。 – 2011-05-13 12:36:09
@Doug - OP不需要2008年他所要求的。存储过程的结果可以被客户端应用程序捕获为一个数据集*(我没有足够好的.net背景,但在Delphi中可以)*。 – 2011-05-13 12:43:59
@Lieven,你是对的。 OP不需要* 2008来完成他们所要求的。 – 2011-05-13 12:46:44