vb.net调用存储过程实例

vb.net调用存储过程实例
create proc pro_bschk @strRq1 varchar(10),@strRq2 varchar(10) as

select DISTINCT column_order=SUBSTRING(BSCDM,1,2),
column0=MARKET_NAME,
column1=sum(CJJE),
column2=sum(DDJE)

from BSCHK,BSCDA where CONVERT(CHAR(10),DATE,102)>=@strRq1 and CONVERT(CHAR(10),DATE,102)<=@strRq2 and SUBSTRING(BSCDM,1,2)=MARKET_ID
group by SUBSTRING(BSCDM,1,2),MARKET_NAME


代码﹕

Public Function CreateDsFromProc(ByVal strProc As String, ByVal strRq1 As String, ByVal strRq2 As String) As DataSet

Dim ds As New DataSet
Dim cmd As Odbc.OdbcCommand
Dim da As New OdbcDataAdapter

cmd = New OdbcCommand(strProc, cn)
cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.Add("@strRq1", OdbcType.VarChar, 10)
cmd.Parameters.Add("@strRq2", OdbcType.VarChar, 10)

cmd.Parameters(0).Value = strRq1
cmd.Parameters(1).Value = strRq2
da.SelectCommand = cmd

da.Fill(ds)

If ds.Tables(0).Rows.Count >= 1 Then
Return ds
Else
Return Nothing
End If

End Function