请问:如果查询的表已经锁定,怎么让程序自动等待解锁后操作?

Question

用opendatabase方式打开数据库,
OpenRecordset 得时候报错.
怎么在OpenRecordset前判断一下是否表被锁定了?如果只是做SELECT ... FROM ...会不会有锁定得问题?

Answer 1

strConnect= "......."
Set g_dbs = OpenDatabase("", False, False, strConnect)
strSql = "..."
Set rs = g_dbs.OpenRecordset(strSql, 2, 64)
我现在在执行 Set rs = g_dbs.OpenRecordset(strSql, 2, 64) 前判断要操作的表是否已经被锁定了? 如果被锁定了,就等待解锁以后再操作. 
[因为现在程序报错,就说ODBC错误,有别的程序对该表操作]

Answer 2

用on error goto My_Err反复操作，如果如：private function blMyFun() as boolean
blMyFun_Head:
    on error goto blMyFun_Err
    '打开操作
    if 打开成功 then
        blMyFun=true
        exit function
    end if
    exit function
blMyFun_Err:
    goto blMyFun_Head
    exit function
end function