51Testing软件测试论坛

标题: QT访问数据库 [打印本页]

作者: qinfarmer 时间: 2006-3-10 10:29
标题: QT访问数据库
怎么让QT根据数据库的不同值来执行不同的操作啊？
如果数据库有A，就执行A，如果没有，执行B，怎么录制？怎么访问数据库，如果写脚本，语句是怎么样的！求助求助求助！
谁有QT脚本啊？语法怎么样的哦？有的话传一下啊，谢谢了

作者: 我要做SQAD 时间: 2006-3-10 10:53
dim conn,rst
Set conn=createobject("Adodb.Connection")
Set rst=CreateObject("Adodb.RecordSet")

conn.open "连接数据库语句"
rst.Open "Select * from datatable",conn

作者: zhxmcm 时间: 2006-3-10 15:30
vb脚本是很容易写的，过滤A，然后判定一下即可。改下二楼的脚本。

dim objCon,objRSA,objRSB
Set objCon=Createobject("Adodb.Connection")
Set objRSA=CreateObject("Adodb.RecordSet")
Set objRSB=CreateObject("Adodb.RecordSet")

conn.open "连接数据库语句"
objRSA.Open "Select * from datatable",conn, 3, 2
objRSB.Open "Select * from datatable",conn, 3, 2

objRSA.Filter =" Field='A'"
objRSB.Filter =" Field='B'"

'判断A记录集是否为空
If objRSA.BOF and objRSA.EOF Then
'Return B，进行操作
Else
'Return A，进行操作
End If

'close
略

[ 本帖最后由 zhxmcm 于 2006-3-10 15:35 编辑 ]

作者: 我要做SQAD 时间: 2006-3-10 18:14
用while语句循环，你创建两个RecordSet，会占内存的。

作者: zhxmcm 时间: 2006-3-10 18:36
没仔细考虑，嘿嘿，受教了。

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