Question

vb 用adodc控件连接access数据库 sql删除记录

用adodc控件连接access数据库
用了两个adodc控件
adodc1的sql：SELECT 基本信息.学号ID,基本信息.姓名,基本信息.所在中队,训练信息.五公里,训练信息.三公里,训练信息.臂屈伸,训练信息.引体向上,训练信息.一百米,训练信息.时间,训练信息.ID From 基本信息, 训练信息 Where 基本信息.学号ID = 训练信息.学号

用adodc2对指定记录删除，代码如下：
Private Sub Command2_Click()
Dim dely As Integer 'dely用来表示按钮返回值
Dim sqlstr As String, fleg As Long

dely = MsgBox("是否确认删除这条记录", vbOKCancel, "提示")
If dely = 1 Then
fleg = Adodc1.Recordset.Fields("ID")

Adodc1.Recordset.Close
sqlstr = "delete from 训练信息 where ID =" & CStr(fleg)
Adodc2.RecordSource = sqlstr
Adodc2.Refresh ‘错误行
Adodc1.Recordset.Open
Adodc1.Refresh
End If
End Sub
记录可以被删除掉，但
在运行到 Adodc2.Refresh时提示错误：“对象关闭时不准许操作”接着又弹出
“应用程序定义或对象定义错误”
刚开始学习vb，希望那位大侠能加以指正，并说明原因，谢谢！！
连接字符串：adodc1
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\111\实验文件\信息管理\Database1.mdb;Mode=ReadWrite;Persist Security Info=False
adodc2
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\111\实验文件\信息管理\Database1.mdb;Mode=ReadWrite;Persist Security Info=False
记录源sql
select all * from 训练信息

Answer 1

strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=kaoqing;Data Source=JANSON"
不知上句的字符串内容是否正确。sql数据库的连接代码我没有，给ACCESS数据库的连接代码供参考：
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxrkgl.mdb;Persist Security Info=False"

你的其它代码经调试未发现问题，正确运用了ADODB数据对象。但从你的叙述中看，你另外使用了ADODC数据控件，是否是该功件的属性设置有问题。

补充：
1)ADODC数据控件作连接字符串正确后，如未指定数据表，运行会报错，你可删除该控件，运行你的代码不会有问题。
如果你是新建数据工程，VB会自行加载ADO数据对象。如果你是新建EXE工程，则应由工程菜单选引用选项，在其窗口选MICROSOFT ACTIVEX DATA OBJECTS 2.0 LIBRARY加钩即可。不过建议按新建数据工程简单。
2)我用以下代码调试你的主要代码，仅按新建EXE工程，则应由工程菜单选引用选项，在其窗口选MICROSOFT ACTIVEX DATA OBJECTS 2.0 LIBRARY加钩，并添加DATAGRID部件，无问题，在VB6调试：
Private Sub Form_Load()
Dim strConn As String
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
'strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=kaoqing;Data Source=JANSON"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxrkgl.mdb;Persist Security Info=False"
pubConn.Open strConn
rsTable.CursorLocation = adUseClient
strSQL = "select * from mdlk_sj"
'strSQL = "select * from attdcardrec"
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTable
End Sub