二问奇怪的问题急呀

[dong12]

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------执行到这里出现"未指定数据源急呀

[jone999]

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

[mmcgzs]

SET DATAGRID1.DATASOURCE=recdset

[dong12]

to mmcgzs(毛毛虫) 不对呀

[Fanks]

把ADODC1.RECORDSOURCE=STR2去掉

[dong12]

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

[LemonRain]

你的ADODC1是怎么定义的？？

[dong12]

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

[LemonRain]

我也没什么好办法。
换这个代码试试,不用控件。
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

[dong12]

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

[Fanks]

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

[Fanks]

Dim Conn As new ADODB.Connection

[dong12]

我解决了呀