ADO 怎样判断SQL

[莫凡]

Dim SQL As String '//用于存储SQL语句
Dim SqlRs As ADODB.Recordset

Dim i, x, y As Integer '//用于循环

Dim Irowcount As Integer '//记录总数
Dim Icolcount As Integer '//字段总数

'//执行SQL
Set SqlRs = New ADODB.Recordset

SQL = strSQL

With SqlRs

.ActiveConnection = Cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Source = strSQL
.Open

If .RecordCount < 1 Then

Exit Function '//如果查询无数据的处理方法

Else

Icolcount = SqlRs.Fields.Count
Irowcount = SqlRs.RecordCount

SqlRs.MoveFirst '//记录移到首位

End If

End With
以上是我自制函数的部分原码，如果执行的是SELECT语句失可以返回记录集的,如果不是以上语句肯定是不对的,请问ADO可一判断是否执行的是SELECT语句呢?
拜谢!!!

[vbman2003]

你参考一下这个帖子 ：
http://community.csdn.net/Expert/topic/3985/3985106.xml?temp=.5489313
其中的ExecuteSQL函数中的内容就是你要的吧

[zlt982001]

可以,你可以加入判断 SqlRs.State=0 则说明无返回数据集,
注意, 不需要使用Close 关闭

[cxbkkk]

学习

[莫凡]

多谢zlt982001(zhangle)
已经修改了，多谢！！！

[莫凡]

谢谢！！！