对象关闭时,不允许操作....

[jxrjfalcon]

我用adodc1.recordsource="........"
adodc1.refresh '进行重新读取
在adodc1.refresh处弹出"对象关闭时,不允许操作",错误号是"3704",本机又没安装msdn, 请各位帮帮忙. 谢谢.
还有一个问题,我想把adodc1.datasource的数据源设给datareport,但
set datareport1.datasource=adodc1也不行,
datareport中的字段值的datasource又怎么设置.. 谢谢

[hrb_sanpo]

你先open一下,就好了,因为你没有打开对象,

[jxrjfalcon]

我OPEN了,还是不行,一样的提示..

[hrb_sanpo]

你的信箱给我,我给你发一个例子

[hrb_sanpo]

DataEnv.Conn = adcdc1
DataEnv.Conn.Open
Set RptGsdj.DataSource = DataEnv

[jxrjfalcon]

text1(工号),text2(姓名),command1(add),command2(delete),adodc1(连接了一个MDB文件,commandtype=adcmdtext)
源码如下:

Private Sub Command1_Click()
'On Error Resume Next
If Text1.Text = "" Then '查找工号
MsgBox "工号未输入!", vbOKOnly
Exit Sub
End If

Adodc1.RecordSource = "select 工号 from detail where 工号='" & Trim(Text1) & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount >= 1 Then
MsgBox "已经存在此工号!"
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Exit Sub
Else
If Text2.Text = "" Then
MsgBox "姓名未输入!", vbOKOnly
Exit Sub
End If



Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "insert into detail(工号,姓名) values('" & Trim(Text1) & "','" & Trim(Text2) & "')"
Adodc1.Refresh //这里出错:3704
MsgBox "增加工号完成!", vbOKOnly
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End If
End Sub

Private Sub Command2_Click()
If Text1.Text = "" Then '查找工号
MsgBox "工号未输入!", vbOKOnly
Exit Sub
End If

Adodc1.RecordSource = "select 工号 from detail where 工号='" & Trim(Text1) & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount < 1 Then
MsgBox "没有此工号!", vbOKOnly
Exit Sub
End If '删除工号
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "delete * from detail where 工号='" & Trim(Text1) & "'"
Adodc1.Refresh //这里出错:3704
MsgBox "工号已被删除!", vbOKOnly
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub

Private Sub Form_Unload(Cancel As Integer)
FrmMDI.Show
Unload Me
End Sub

[jxrjfalcon]

[e-mail]