二问奇怪的问题急呀

Question

DIM RECDSET AS NEW ADODB.RECORDSET
DIM STR1 AS STRING
DIM STR2 AS STRING
STR1="DSN=ORACLEQQQ;UID=OOO;PWD=90"
STR2="SELECT * FROM AAA"
RECDSET.OPEN STR1,STR2
ADODC1.RECORDSOURCE=STR2
SET DATAGRID1.DATASOURCE=ADODC1------执行到这里出现"未指定数据源急呀

Answer 1

to mmcgzs(毛毛虫) 不对呀

Answer 2

to Fanks(凡可) 提示我"行集合不能做标签"呀

Answer 3

我的ADODC1是控件我把此控件放在窗体上

Answer 4

我也没什么好办法。
换这个代码试试,不用控件。
Dim Conn As ADODB.Connection
DIM RECDSET AS NEW ADODB.RECORDSET
DIM STR1 AS STRING
DIM STR2 AS STRING
STR1="DSN=ORACLEQQQ;UID=OOO;PWD=90"
STR2="SELECT * FROM AAA"
conn.OPEN STR1
RECDSET.OPRN STR2, Conn, adOpenKeyset, adLockBatchOptimistic
Set DataGrid1.DataSource = RECDSET

Answer 5

to LemonRain(柠檬雨) conn.OPEN STR1此句有错对象变量或WITH块变量未设置

Answer 6

行集合不能做标签，问题出在你打开记录集的方式上，加参数就可以了，正如LemonRain(柠檬雨)代码里的RECDSET.OPRN STR2, Conn, adOpenKeyset, adLockBatchOptimistic

Answer 7

Dim Conn As new ADODB.Connection

Answer 8

Dim Conn As ADODB.Connection
DIM RECDSET AS NEW ADODB.RECORDSET
DIM STR1 AS STRING
DIM STR2 AS STRING
set conn=new adodb.connection
set recdset=new adodb.recordset
STR1="DSN=ORACLEQQQ;UID=OOO;PWD=90"
STR2="SELECT * FROM AAA"
conn.OPEN STR1
RECDSET.OPRN STR2, Conn, adOpenKeyset, adLockBatchOptimistic
Set DataGrid1.DataSource = RECDSET