正在阅读:VB.net中访问存储过程的几种办法VB.net中访问存储过程的几种办法

2004-08-09 10:01 出处:CSDN 作者:online 责任编辑:linjixiong


  Dim rs4 As ADODB.Recordset

  Dim cmd As ADODB.Command

  Dim param As ADODB.Parameter

 

  '这里用第一种方法使用存储过程添加数据


  Private Sub Command1_Click()

  Set cmd = New ADODB.Command

  Set rs1 = New ADODB.Recordset

  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

 

  ‘下面的类型需要注意,如果不使用adSingle,会发生一个精度无效的错误


  Set param = cmd.CreateParameter("jifen", adSingle, adParamInput, 50, Val(txtjifen.Text))

  cmd.Parameters.Append param

  Set rs1 = cmd.Execute

  Set cmd = Nothing

  Set rs1 = Nothing

  End Sub

 


察看评论详细内容 我要发表评论
作者笔名 简短内容 发表时间
:

键盘也能翻页,试试“← →”键

相关文章

关注我们

最新资讯离线随时看 聊天吐槽赢奖品