.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
VB/ASP 调用 SQL Server 的存储过程

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

昨天有位久未谋面的老同学,突然问起如何在VB中调用SQL的存储过程。
当时因为手上没有资料,机器上也没装SQL,随即发了早年写的一段ASP代码,也不知道行不行。
抱着负责任的态度,刚好又有点空闲,便做了个测试:
(说来惭愧,N久没用VB了,居然不知道怎么加入ADODB类型库了,就填加了一个ADODC控件,汗颜~```)

Private Sub ExampleButton_Click()
Dim sqlConn As New ADODB.Connection
Dim sqlCmd As New ADODB.Command
Dim myParam As ADODB.Parameter
Dim sqlRs As ADODB.Recordset
Dim sqlCmdStr As String

sqlConn.Open "driver={SQL Server};server=127.0.0.1;database=master;uid=sa;pwd=密码我是不会随便告诉别人的啦:)"
sqlCmd.ActiveConnection = sqlConn
sqlCmd.CommandText = "sp_executesql"
sqlCmd.CommandType = adCmdStoredProc
sqlCmdStr = "SELECT * FROM sysmessages WHERE error>=100 AND error<=120"
Set myParam = sqlCmd.CreateParameter("@statement", adBSTR, adParamInput, Len(sqlCmdStr))
myParam.Value = sqlCmdStr
sqlCmd.Parameters.Append myParam
Set sqlRs = sqlCmd.Execute

sqlRs.MoveFirst
While Not sqlRs.EOF
    MsgBox sqlRs.Fields(0).Value & ",,," & sqlRs.Fields(3).Value
    sqlRs.MoveNext
Wend
End Sub

哈哈,居然成功了(不禁又自我陶醉了一番)。
虽然没什么技术含量,不过还是再次申明一下:
其实调用存储过程最重要的就是参数的正确性,比如参数名称,参数类型啊等等。
幸好这些都是有资料可以查的,可以查SQL手册,或者如果有耐心一点,也可以通过不断的尝试得出正确的答案(哈哈,废话)。




相关文章

相关软件