我的RDO连接语句错在哪儿呢？我不明白，呼救~~~~~~

Question

Set rdodbSupportSystem = rdoEn.OpenConnection("", rdDriverNoPrompt, "uid=sa;pwd=;driver={SQL Server};Server=192.168.0.4;DATABASE=支撑系统;")怎么总是提示我对象变量未设置或with块未设置？？？？郁闷！毕业设计啊，完成不了了。谁知道，快回答我吧。

Answer 1

我是这样做的：
Dim dbeng As rdoEnvironment
Dim cn As rdoConnectionstrsvrname = "pc12"
strdbname = "tsqgw"
Set dbeng = rdoEngine.rdoEnvironments(0)
dbeng.CursorDriver = 3
Set cn = dbeng.OpenConnection(dsname:="", _
prompt:=rdDriverNoPrompt, _
Connect:="uid=;pwd=;driver={sql server};" _
& "server=" & strsvrname & ";database=" & strdbname & ";dsn=" & _
strdbname & ";")msflexgrid1.Rows = 1
ssql = "select 客户代码,产品型号 from tblwithwork "
Set tbr = cn.OpenResultset(ssql, rdOpenDynamic, LockType:=3)