|
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 编辑 ] |
|