51Testing软件测试论坛

标题: 请问一下，SQABasic里面能不能访问SQL Server的存储过程？有谁知道吗？急！！ [打印本页]

作者: watercloset 时间: 2006-6-7 21:17
标题: 请问一下，SQABasic里面能不能访问SQL Server的存储过程？有谁知道吗？急！！
如题

作者: watercloset 时间: 2006-6-8 09:19
或者准确的说，SQABasic是否支持一个Transaction写数据库记录？还是SQABasic本身不支持，需要外调dll文件来完成这样的事情？

作者: xiaonan 时间: 2006-6-8 09:32
你在VB里怎么实现的,这里就可以怎么去实现

作者: watercloset 时间: 2006-6-8 10:20
是吗？你的意思是VB里面读写数据库的方式完全可以用在这里？那需要引用其他什么吗？我以前用C#的，不知道VB里面该怎么做，能给个示范吗？多谢了，hoho

作者: xiaonan 时间: 2006-6-8 17:40
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\ado.mdb;Persist Security Info=False"

set conn=createobject("ADODB.Connection")
conn.open strconn
set rs=createobject("ADODB.Recordset")
rs.open "select number1,number2 from test", conn
rs.MoveFirst
do while not rs.eof

testnumber1=rs.fields(0).value
testnumber2=rs.fields(1).value
rs.MoveNext
loop
rs.close
conn.close
set rs=nothing
set conn=nothing

作者: watercloset 时间: 2006-6-10 09:58
谢谢，我这边可以调试通过了。感谢一下。我能再问一下吗？在SQABasic中如何在Function中返回一个二维的数组。我这样写对不对呢？
Function test(…………..) As Variant

dim RobotData () As Variant

redim preserve RobotData (2, 9)

………………

RobotData (0, 1) = rs.field(0).value

test = RobotData(,) ‘还是这样写：test = RobotData? Test = RobotData()?

‘最后两种方式我试了一下都编译不通过

End Function

谢谢你能给我回答一下，谢谢了！

作者: xiaonan 时间: 2006-6-12 08:46
你目的是什么呢?数组不是可以直接在外面用的嘛,干吗要放在function里呢?

作者: ilovejolly 时间: 2006-6-13 11:07
搜索"vb 返回数组"

作者: xuefeng 时间: 2006-7-21 14:01
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\ado.mdb;Persist Security Info=False"

set conn=createobject("ADODB.Connection")
conn.open strconn
set rs=createobject("ADODB.Recordset")
rs.open "select number1,number2 from test", conn
rs.MoveFirst
do while not rs.eof

testnumber1=rs.fields(0).value
testnumber2=rs.fields(1).value
rs.MoveNext
loop
rs.close
conn.close
set rs=nothing
set conn=nothing

这段程序是不是只能在Vb下运行，Robot下可以运行吗

作者: ilovejolly 时间: 2006-7-21 20:01
试试就知道了

作者: xuefeng 时间: 2006-7-24 11:11
运行到这一步就报错了
testnumber1=rs.fields(0).value
testnumber2=rs.fields(1).value

robot中对rs这个记录集的操作，好像不支持fields(1).value方法吧

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)