Dim comm As New ADODB.Command
  
  comm.ActiveConnection = cn
  comm.CommandText = "存储过程名"
  comm.CommandType = adCmdStoredProc
  
  comm.Parameters.Append comm.CreateParameter("@stdate", adDate, adParamInput, , 参数1)
  comm.Parameters.Append comm.CreateParameter("@endate", adDate, adParamInput, , 参数2)
  comm.Parameters.Append comm.CreateParameter("@sunit", adChar, adParamInput, 4, 参数3)
  comm.Execute

解决方案 »

  1.   

    cn.open cnstr
    cn.execute "exec sp_addlogin ''+username+"','"+password+"'"
      

  2.   

    但,上述好像都首先连接某一数据库.
    比如:cn是什么?
         cnstr是什么?
    在不连接任何特定数据库<采用sql的信任连接参数-E>
    我可以在"命令提示符"下实现:是:
    1把:EXEc sp_addlogin 'username','password'写到1.sql文件.
    2.然后在"命令提示符":
      isql -E -i 1.sql
    就OK了.我就是想用vb要实现此功能.
    请各位再说说.!!!
      

  3.   

    这里有几个asp调用的方法,希望对你又帮助
    1 这也是最简单的方法,两个输入参数,无返回值: set connection = server.createobject("adodb.connection") connection.open someDSN Connection.Execute "procname varvalue1, varvalue2" 
    ’将所有对象清为nothing,释放资源 
    connection.close 
    set connection = nothing 
    2 如果要返回 Recordset 集: set connection = server.createobject("adodb.connection") connection.open someDSN set rs = server.createobject("adodb.recordset") rs.Open "Exec procname varvalue1, varvalue2",connection 
    ’将所有对象清为nothing,释放资源 rs.close connection.close set rs = nothing set connection = nothing 3 以上两种方法都不能有返回值,(Recordset除外),如果要得到返回值,需要用Command的方法。 首先说明,返回值有两种。一种是在存储过程中直接return一个值,就象C和VB的函数返回值那样;另一种是可以返回多个值,存储这些值的变量名称需要在调用参数中先行指定。 这个例子要处理多种参数,输入参数,输出参数,返回记录集以及一个直接返回值(够全了吧?) 存储过程如下: 
    use pubs GO 
    -- 建立存储过程 create procedure sp_PubsTest 
    -- 定义三个参数变量,注意第三个,特别标记是用于输出 @au_lname varchar (20), @intID int, @intIDOut int OUTPUT 
    AS 
    SELECT @intIDOut = @intID + 1 
    SELECT * FROM authors WHERE au_lname LIKE @au_lname + ’%’ 
    --直接返回一个值 RETURN @intID + 2 调用该存储过程的asp程序如下: 此外还有其他方式,稍微偏门一些,以后慢慢再说 本文参考了多篇文章,这里不一一列出。
      

  4.   

    在VB里有三种数据库连接方式,可以连接Microsoft SQL Server,IBM DB2,和甲骨文的ORACLE,以下为三种连接方式。1.采用DAO连接
    Dim db         as database
    Dim rs         as recordset
    Dim strrsname  as string    '存放表名
    Dim strdbname  as string    '存放数据库库名set db=dbengine.opendatabase(strdbname)
    set rs=db.openrecordset(strrsname,dbopendynaset)  '以动态集方式打开rs.field(0)'表示第一个字段
    用rs即可对库进行操作2.采用ADO连接
    Dim db     as adodb.connection
    Dim rs     as adodb.recordset
    Dim strconn as string
    set db=new adodb.connection
    strconn="provider=sqloledb;data source=服务器名;user id=用户名;password=密码;"
    db.opoen strconn
    rs.open "select * from ???",db,asdopenstatic,adlockreadonly3.采用RDO连接
    这里就不举例了。
      

  5.   

    up
    这是一个什么样的世界啊!!!!!!!!!!!!!
    ××××××××××××××××××××××××
    只是一个vb打天下的世界!!!!!!!!!!!!!
    ……………………………………………………………
      

  6.   

    我在不知道:user id=用户名;password=密码
    情况下怎么办?