VB.NET版本：
Private Function GetOrdersByShip( _
ByVal Param1 As String,_
ByVal Param2 As String) As DataSet
Dim connString As String
connString = "Data Source=192.168.0.1;Initial Catalog=abk;User ID=abk;Password=abk"
Dim conn As New sqlClient.sqlConnection(connString)
Dim myCmd As New sqlClient.sqlCommand
myCmd.CommandType = CommandType.StoredProcedure
myCmd.CommandText = "_sp_GetOrders"
myCmd.Connection = conn
Dim myDap As New sqlClient.sqlDataAdapter(myCmd)
myDap.SelectCommand.Parameters.Add(("@FromShip"),sqlDbType.VarChar,7).Value = Param1
myDap.SelectCommand.Parameters.Add(("@ToShip"),7).Value = Param2
Dim myDs As New DataSet
Try
myDap.Fill(myDs)
Catch ex As Exception
End Try
Return myDs
End Function
'调用时需要提供两个参数
Me.DataGridView1.DataSource = GetOrdersByShip("2010111","2010112").Tables(0)
EXCEL版本：
Public Sub CallStoredProcedureWithExcel(Param1 As String,Param2 As String)
Dim mStr As String
mStr = "Provider=sqlOLEDB.1;"
mStr = mStr & "Password=abk;"
mStr = mStr & "Persist Security Info=True;"
mStr = mStr & "User ID=abk;"
mStr = mStr & "Data Source=192.168.0.1;"
mStr = mStr & "Use Procedure for Prepare=1;"
mStr = mStr & "Auto Translate=True;"
mStr = mStr & "Packet Size=4096;"
mStr = mStr & "Use Encryption for Data=False;"
mStr = mStr & "Tag with column collation when possible=False;"
mStr = mStr & "Initial Catalog=abk"
Dim Command As Command
Set Command = New Command
Command.ActiveConnection = mStr
Command.CommandText = "[_SP_GetOrders]"
Command.CommandType = CommandTypeEnum.adCmdStoredProc
Dim FromShip As ADODB.Parameter
Dim ToShip As ADODB.Parameter
Set FromShip = Command.CreateParameter("@FromShip",DataTypeEnum.adVarChar,ParameterDirectionEnum.adParamInput,7,Param1)
Set ToShip = Command.CreateParameter("@ToShip",Param2)
Call Command.Parameters.Append(FromShip)
Call Command.Parameters.Append(ToShip)
Dim Recordset As ADODB.Recordset
Set Recordset = Command.Execute
Call Sheet1.Range("A1").CopyFromRecordset(Recordset)
End Sub
'调用时需要提供两个参数
Call CallStoredProcedureWithExcel("2010111","2010111")