怎么直接用connection对象调用带有多个参数的存储过程??
解决方案 »
- 求助:报表打印的问题!各位高手均请进·在线等!
- 我想从表中查出最后的7条数库。怎么写SQL.
- ActiveReport2.0中设计器字体问题(高手请进)
- 关于加密问题
- 如何从数据库中存取图片。
- 请问用什么函数把integer类型的1,2,3,...对应转换为string类型的"1","2","3".....
- ShockwaveFlash1
- VB6--访问Access2000数据库时出现“找不到可安装的ISAM”的方案总结,感谢各位指导!
- 怎样用vb类模块中 实现关闭某一运行中的程序(例如:扑克牌sol.exe)???
- 急救,帮帮我!
- 如何通过API登陆到另一台机子而不显示系统登陆对话筐?
- DataGrid能否可以实现这样的功能???
Private mConn As ConnectionPrivate Sub Command1_Click()
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter
Set cmd = New ADODB.Command
cmd.ActiveConnection = mConn
cmd.CommandText = "insert_users"
cmd.CommandType = adCmdStoredProc
Set param = cmd.CreateParameter("truename", adChar, adParamInput, 20, Trim(txttruename.Text))
cmd.Parameters.Append param
Set param = cmd.CreateParameter("regname", adChar, adParamInput, 20, Trim(txtregname.Text))
cmd.Parameters.Append param
Set param = cmd.CreateParameter("pwd", adChar, adParamInput, 20, Trim(txtpwd.Text))
cmd.Parameters.Append param
Set param = cmd.CreateParameter("sex", adChar, adParamInput, 20, Trim(txtsex.Text))
cmd.Parameters.Append param
Set param = cmd.CreateParameter("email", adChar, adParamInput, 20, Trim(txtemail.Text))
cmd.Parameters.Append param
Set rs = cmd.Execute
Command2_Click
End SubPrivate Sub Command2_Click()
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = mConn
cmd.CommandText = "select_users"
cmd.CommandType = adCmdStoredProc
mConn.CursorLocation = adUseClient '设置为客户端 Set rs = cmd.Execute() MsgBox rs.RecordCount
Set DataGrid1.DataSource = rs
DataGrid1.RefreshEnd Sub
Private Sub Form_Load()
'open the connection
Set mConn = New Connection
mConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=yang"
mConn.Open
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "users", mConn, adOpenStatic, adLockPessimistic
' MsgBox rs.RecordCountEnd SubPrivate Sub Form_Unload(Cancel As Integer) mConn.Close
Set mConn = Nothing
End Sub
CREATE PROCEDURE insert_users @truename char(20), @regname char(20),@pwd char(20),@sex char(20),@email char(20)
AS
insert into users(truename,regname,pwd,sex,email) values(@truename,@regname,@pwd,@sex,@email)
GOCREATE PROCEDURE select_users
AS
select * from users
GO
set objcmdcount=oconn.Execute(strsql1)