请问一下，SQABasic里面能不能访问SQL Server的存储过程？有谁知道吗？急！！

watercloset

如题

watercloset

或者准确的说，SQABasic是否支持一个Transaction写数据库记录？还是SQABasic本身不支持，需要外调dll文件来完成这样的事情？

xiaonan

你在VB里怎么实现的,这里就可以怎么去实现

watercloset

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

xiaonan

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

谢谢，我这边可以调试通过了。感谢一下。我能再问一下吗？在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

你目的是什么呢?数组不是可以直接在外面用的嘛,干吗要放在function里呢?

ilovejolly

搜索"vb 返回数组"

xuefeng

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

试试就知道了

xuefeng

运行到这一步就报错了
testnumber1=rs.fields(0).value
       testnumber2=rs.fields(1).value

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