关于数据环境设计器 DataEnvironment

[xiagl311]

初学者参考书本学习VB，在数据库db1.mdb中做了两个表：GZB（工资表）和YGB（员工表），关键字均为编号。用了两个MDI子窗体：frmADD（工资信息增加窗体）和frmEadd（员工信息增加窗体）。在两个窗体中均有按钮控件组（增加，确定，取消），均用文本框控件数组（text1）显示数据库中的信息，为此添加了一个环境设计器DataEnvironment1,其connection1中有三个命令：command1用于绑定工资信息（在frmADD窗体中），command2分组用于报表打印，command3用于绑定员工信息（在frmEadd窗体中）。但是运行时只有frmADD窗体可以增加工资信息，frmEadd窗体不能进行增加。请高手指点！！！
frmADD窗体代码如下：
Dim rec As ADODB.Recordset

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 '选择增加按钮
rec.AddNew
Command1(1).Enabled = True
Case 1 '选择确定按钮
If txt编号.Text = "" Or txt姓名.Text = "" Or txt部门.Text = "" Or _
txt基本工资.Text = "" Then
MsgBox "请输入必要的信息！"
Else
On Error GoTo err1
rec.UpdateBatch adAffectAllChapters
Command1(1).Enabled = False
End If
Case 2 '选择取消按钮
On Error GoTo err1
rec.CancelUpdate
End Select
Exit Sub
err1:
MsgBox Err.Description
End Sub

Private Sub Form_Load()
Left = 0
Top = 0
Me.Height = main.ScaleHeight
Me.Width = main.ScaleWidth
Set rec = DataEnvironment1.Recordsets(1)
rec.AddNew
End Sub

Private Sub Form_Unload(Cancel As Integer)
rec.CancelUpdate
End Sub
--------------------------------------
frmEadd窗体代码如下：
Dim rec As ADODB.Recordset
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 '选择增加按钮
rec.AddNew
Command1(1).Enabled = True
Case 1 '选择确定按钮
If txt编号.Text = "" Or txt姓名.Text = "" Or txt部门.Text = "" Or _
txt性别.Text = "" Then
MsgBox "请输入必要的信息！"
Else
On Error GoTo err1
rec.UpdateBatch adAffectAllChapters
Command1(1).Enabled = False
End If
Case 2 '选择取消按钮
On Error GoTo err1
rec.CancelUpdate
End Select
Exit Sub
err1:
MsgBox Err.Description
End Sub


Private Sub Form_Load()
Left = 0
Top = 0
Me.Height = main.ScaleHeight
Me.Width = main.ScaleWidth
Set rec = DataEnvironment1.Recordsets(1)
rec.AddNew
End Sub
Private Sub Form_Unload(Cancel As Integer)
rec.CancelUpdate
End Sub
另有:DataEnvironment1.Recordsets(1)如何正确理解含义?Recordsets(1)又如何解释?
请高手指点一二,多谢!!!!

[xiagl311]

我试试看.请问高手为何用Recordsets(1)与Recordsets(3),能稍详细讲解吗?

[xiagl311]

frmEadd用了DataEnvironment1.Recordsets(3)后出现错误:3251.当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制。

[feiyun0112]

DataEnvironment1.Recordsets(1)指定第一个记录集

frmEadd应该用DataEnvironment1.Recordsets(3)

*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

[xiagl311]

各位高手请多指点!!!