vB中这样的存储过程怎么调用

Question

存储过程
CREATE PROCEDURE [dbo].[yspjdr]  
 -- Add the parameters for the stored procedure here  
 @datestart datetime ,    
 @dateend datetime  
AS  
insert into ysdj(billcode,maketime,unitcode,clientname,taxmoney)  
select a.billcode,a.maketime,a.unitcode,b.clientname,a.taxmoney     
 from zbttfpf..BillConsignmentCredence a    
 join zbttfpf..ClientUnit b on a.ClientID=b.ClientID    
 where MakeTime>=@datestart and MakeTime<@dateend+1  and billcode not in (select billcode from ysdj)  
在VB中怎么调用，请高手帮忙啊，代码应该怎么写

Answer 1

Dim con as adodb.connection
打开conn后
就可以conn.execute "yspjdr '" 参数1 +"','"+参数2+"'"

Answer 2

如果VB中有两个dtpicker控件，dt1和dt2 ,加一个command1按扭，dt1和dt2分别表示存储过程中@datestart和  
@dateend的值，按command1执行存储过程，那应该怎么写，我是新手，请不要嫌我麻烦哈

Answer 3

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim cmd As ADODB.Command
    Dim param As ADODB.Parameter    Set cn = New ADODB.Connection
    'cn.CursorLocation = adUseClient
    cn.Open "......"    Set cmd = New ADODB.Command
    cmd.ActiveConnection = cn
    cmd.CommandText = "yspjdr"
    cmd.CommandType = adCmdStoredProc
 
    Set param = cmd.CreateParameter("@datestart", adDate, adParamInput, , dt1.value)
    cmd.Parameters.Append param
    Set param = cmd.CreateParameter("@dateend", adDate, adParamInput, , dt2.value)
    cmd.Parameters.Append param    Set rs = cmd.Execute
   
    Set cmd = Nothing
    Set rs = Nothing
    Set cn = Nothing