救场如救火啊！！！！！！！！！！！！！！！！！！！！！！！！！！

Question

如何使用adodb？，
2
程序一运行就显示“对象打开时，操作不被允许”
最多3个人回答，要不分数分配不均啊

Answer 1

在每一个adodb.recordset打开之前先关闭它

Answer 2

呵呵,每次进行数据操作时加上
if adodc1.recordset.state=1 then
   adodc1.recordset.close
end if

Answer 3

Dim rw As ADODB.Connection
Dim rb As ADODB.Recordset
还是不可以啊Set rw = New ADODB.Connection
Set rb = New ADODB.Recordset
rw.ConnectionString = "Provider=MSDAORA.1;Password=123321;User ID=qyj;Data Source=qyj;Persist Security Info=True"
 
  rb.Close
     rb.Open "insert into ww (ID,MOBILE,SUB_CODE) values(1,1,3)"
我是新手，帮帮忙啊

Answer 4

出现
variable not defined

Answer 5

试试下面的代码Dim rw As ADODB.Connection
Set rw = New ADODB.Connectionrw.ConnectionString = "Provider=MSDAORA.1;Password=123321;User ID=qyj;Data Source=qyj;Persist Security Info=True"
rw.Open
rw.excute "insert into ww (ID,MOBILE,SUB_CODE) values(1,1,3)"

Answer 6

首先在工程中引用ADO对象Dim rw As ADODB.Connection
Dim rb As ADODB.Recordset
Set rw = New ADODB.Connection
Set rb = New ADODB.Recordset
if rw.state=adstateopen then rw.close
rw.ConnectionString = "Provider=MSDAORA.1;Password=123321;User ID=qyj;Data Source=qyj;Persist Security Info=True"
rw.open
 
rw.execute "insert into ww (ID,MOBILE,SUB_CODE) values(1,1,3)"

Answer 7

冰：
错误如下：
ora-06550: 第一行，第7列
pls-00201:必须说明标示符‘execute’
ora-06550: 第一行，第7列
pl/sql:statement ignored
请多多指教

Answer 8

Dim rw As ADODB.Connection
Dim rb As ADODB.Recordset
Set rw = New ADODB.Connection
Set rb = New ADODB.Recordset
rw.ConnectionString = "Provider=MSDAORA.1;Password=123321;User ID=qyj;Data Source=qyj;Persist Security Info=True"
 rb.Open "insert into ww (ID,MOBILE,SUB_CODE) values(1,1,3)",rw,1,1
''''''''''''''''''''''''''''''''''''''''更改成上面的语句，绝对可以，我都是如此使用的！