请问各位大虾,调用两个参数以上的存储过程的方法有哪几种?哪种比较好?常用哪一种?
解决方案 »
- 疯了,用句柄得到弹出提示窗口并点击,IE弹出的窗口能点击,但WebBrowser弹出的窗口却不点击
- ~~~~~~急 问一些特殊符号在VB中的表达方式!!!
- mshflexgrid行颜色显示问题
- datagrid的datasource只能是ADODC控件吗?
- access数据库中能存贮图片吗?如果能的话在VB中用什么控件查看图片呢?
- VB+ACCESS的成绩录入,如何简单实现呢?
- 怎麼獲取.exe文件的版本號?
- 我有一个拼音汉字表,如何实现:输入汉字(多个),自动写出头拼码?
- 解答一下,很简单的。
- 怎样在c盘中查找一个文件名含有字符串"1234"的文件
- 讨论关于数据库操作(增删改)的组件问题
- 请问flexGrid最大限额查询的行是多少?
Option Explicit
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
有时候,帖子太多了,就容易沉下去,所以只有你自己提前了