adodb.connection对象用Execute方法调用sqlserver的存储过程mypro问题.....

IntoPython 2003-09-29 10:33:01

adodb.connection对象用Execute方法调用sqlserver2000的存储过程mypro
如果存储过程中有错误，如何捕捉，
如何判断存储过程正确执行了？？
谢谢！！

...全文

80 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

aierong 2003-09-30

打赏
举报

回复

你的存储过程是正确的吗

你可以先在查询分析器里面调试好了再用

你要是想在前台开发工具里面调用存储过程是否成功运行的标志,你可以在存储过程里面加入一个返回参数

create proc procname
其他参数 ..@flag varchar(100)
as
....
...

/*在过程最后一行加入*/
select @flag='ok'

用Command对象来执行比较好，可以用Parameter来处理，它有IN OUT参数，挺方便的。
参数返回为'ok'过程运行成功

.
|
\ * ./
. * * * .
-=* POP! *=-
. .* * * .
/ * .\
|
.
.
|
\ * ./
. * * * .
-=* POP! *=-
. .* * * .
/ * .\
|
.
.
|
\ * ./
. * * * .
-=* POP! *=-
. .* * * .
/ * .\
|
.
先放三个礼花,看看,庆祝节日!!!
/*
祝福你好运
明天过节
*/

watt 2003-09-29

打赏
举报

回复

如果是存储过程结果错误，你必须用存储过程来返回执行结果，这样你还是用Command对象来执行比较好，可以用Parameter来处理，它有IN OUT参数，挺方便的。

KJ_Wang 2003-09-29

打赏
举报

回复

看什么错误？如果是语法错误，你没法存盘，如果是结果错误，好像没法找出错误吧！

其中的ADODB.Connection中的连接字符串怎么写

数据库备份和回复 access数据库是Access的，我使用BACKUP的SQL语句，系统提示“无效的SQL语句”难道Backup不支持Access？用filec数据库恢复： Dim conn As New adodb.Connection Dim rec As New adodb.Recordset 'SQLserver数据服务器名称；SQLuser数据服务器用户名称（一般为SA）；SQLpaswd数据库用户密码 basename = "master" temstring = "driver={SQL Server};server=" & SQLsever & ";database=" & basename & ";uid=" & SQLuser & ";pwd=" & SQLpaswd & ";" restorefilename = "'" & Trim(Dir1.Path) & "'\'" & Trim(File1.FileName) & "'" 'Dir1.Path为数据库存放的目录；File1.FileName为数据库名称 conn.Open temstring conn.Execute ("restore database bikemag from disk='" & restorefilename & "'") conn.Close opy 函数,复制来实现备份

Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象 Dim ConnStr As String Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set Conn = New ADODB.Connection 'On Error GoTo MyErr: ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=sa;Initial Catalog=data;Data Source=127.0.0.1" '这是连接SQL数据库的语句 Conn.Open ConnStr rs.CursorLocation = adUseClient rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs 'Exit Function

1.Com链接，ADODB.Connection 复制代码代码如下: $conn = new Com(“ADODB.Connection”); //实例化一个Connection对象 $connstr = “provider=sqloledb;datasource=.;uid=sa;pwd=123456;database=jnold;”; $conn->Open($connstr); $rs = new Com(“ADODB.Recordset”); //实例化一个Recordcount对象 $rs->Open(‘select * from News where bigclassid = 5

Private Sub Form_Load() Timer1.Interval = 300 End Sub Private Sub Timer1_Timer() Dim cnn As New ADODB.Connection Dim cmd As New ADODB.Command Dim rst As New ADODB.Recordset Dim Sqlser_time cnn.ConnectionString = "driver={SQL Server};" & _ "server=server;uid=sa;pwd=;database=master" cnn.Open cmd.ActiveConnection = cnn cmd.CommandText = "SELECT GETDATE() AS sys_Sqlser_time" Set rst = cmd.Execute Sqlser_time = rst(0) Text1.Text = Sqlser_time rst.Close cnn.Close End Sub

34,576

社区成员

254,587

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章