数据库集的问题Set rs = Conn.Execute(strSQL)报错！ - 编程论坛

#2

风吹过b2012-09-09 09:27

Qy.ActiveConnection = Conn
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.Open strDNS         '打开数据源
strSQL = "Select ID,Item0,Item1,Item2,Item3,Item4,Item5,Item6,Item7,Item8,Item9,Item10 from chemic Where ID Like " & "'" & Format("2009/09/09", "YYYYMMDD") & "%'"
Set Conn = New ADODB.Connection      '设置为新的空白数据源
Set rs = Conn.Execute(strSQL)        'conn 为新的空白数据源，自然报错。

#3

新仙儿2012-09-09 10:42

大侠你好
Qy.ActiveConnection = Conn
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.Open strDNS         '打开数据源
strSQL = "Select ID,Item0,Item1,Item2,Item3,Item4,Item5,Item6,Item7,Item8,Item9,Item10 from chemic Where ID Like " & "'" & Format("2009/09/09", "YYYYMMDD") & "%'"
‘Set Conn = New ADODB.Connection      '设置为新的空白数据源
Set rs = Conn.Execute(strSQL)        'conn 为新的空白数据源，自然报错。
我屏蔽了这段话还是报了要求对象的错！我之前反反复复的试了好多次，就差没再别人电脑上试了，有没有可能是我装的windows7还有那个vb中文版没装好了。

#4

Artless2012-09-09 11:01

以下是引用新仙儿在2012-9-9 10:42:19的发言：

大侠你好
Qy.ActiveConnection = Conn
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.Open strDNS         '打开数据源
strSQL = "Select ID,Item0,Item1,Item2,Item3,Item4,Item5,Item6,Item7,Item8,Item9,Item10 from chemic Where ID Like " & "'" & Format("2009/09/09", "YYYYMMDD") & "%'"
‘Set Conn = New ADODB.Connection      '设置为新的空白数据源
Set rs = Conn.Execute(strSQL)        'conn 为新的空白数据源，自然报错。
我屏蔽了这段话还是报了要求对象的错！我之前反反复复的试了好多次，就差没再别人电脑上试了，有没有可能是我装的windows7还有那个vb中文版没装好了。

看一下ado再说吧