有这么几句语句:
sSQL = "Select Distinct " & fdName1 & " from %strTableName"
sSQL = Replace(sSQL, "%strTableName", strTableName)
Set Rst = New ADODB.Recordset
Rst.Open sSQL, gOraAdocn, adOpenStatic, adLockBatchOptimistic
Text1.Text = Rst.RecordCount gOraAdocn 数据库连接没有问题,但是最后一句老报错"对象变量关闭,不允许操作"
sSQL = "Select Distinct " & fdName1 & " from %strTableName"
sSQL = Replace(sSQL, "%strTableName", strTableName)
Set Rst = New ADODB.Recordset
Rst.Open sSQL, gOraAdocn, adOpenStatic, adLockBatchOptimistic
Text1.Text = Rst.RecordCount gOraAdocn 数据库连接没有问题,但是最后一句老报错"对象变量关闭,不允许操作"
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货