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
cn.execute "exec sp_addlogin ''+username+"','"+password+"'"
比如:cn是什么?
cnstr是什么?
在不连接任何特定数据库<采用sql的信任连接参数-E>
我可以在"命令提示符"下实现:是:
1把:EXEc sp_addlogin 'username','password'写到1.sql文件.
2.然后在"命令提示符":
isql -E -i 1.sql
就OK了.我就是想用vb要实现此功能.
请各位再说说.!!!
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程序如下: 此外还有其他方式,稍微偏门一些,以后慢慢再说 本文参考了多篇文章,这里不一一列出。
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连接
这里就不举例了。
这是一个什么样的世界啊!!!!!!!!!!!!!
××××××××××××××××××××××××
只是一个vb打天下的世界!!!!!!!!!!!!!
……………………………………………………………
情况下怎么办?