7,763
社区成员
发帖
与我相关
我的任务
分享来看看！帮帮忙！
Dim cn As ADODB.Connection
Dim rscz As ADODB.Recordset
Private Sub Form_Load()
cn.ConnectionString = "Provider=sqloledb;Data Source=CZZJ-77FFF18167;Initial Catalog=zcpg;User Id=sa;Password="
cn.Open
rscz.CursorLocation = adUseClient
Set rscz = cn.Execute("select * from carsort", , adCmdText)
End Sub
为什么出现“对象变量或with块变量未设置”
Dim rscz As ADODB.Recordset
Private Sub Form_Load()
cn.ConnectionString = "Provider=sqloledb;Data Source=CZZJ-77FFF18167;Initial Catalog=zcpg;User Id=sa;Password="
cn.Open
rscz.CursorLocation = adUseClient
Set rscz = cn.Execute("select * from carsort", , adCmdText)
End Sub
为什么出现“对象变量或with块变量未设置”
...全文
请发表友善的回复…
发表回复
heruzhi 2003-05-30
- 打赏
- 举报
Private cn As new ADODB.Connection
Private rscz As new ADODB.Recordset
rscz = cn.Execute("select * from carsort", , adCmdText)
Private rscz As new ADODB.Recordset
rscz = cn.Execute("select * from carsort", , adCmdText)
