DataEnv.Conn = adcdc1 DataEnv.Conn.Open Set RptGsdj.DataSource = DataEnv
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 IfAdodc1.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 SubPrivate Sub Command2_Click() If Text1.Text = "" Then '查找工号 MsgBox "工号未输入!", vbOKOnly Exit Sub End IfAdodc1.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 SubPrivate Sub Form_Unload(Cancel As Integer) FrmMDI.Show Unload Me End Sub
DataEnv.Conn.Open
Set RptGsdj.DataSource = DataEnv
源码如下:Private Sub Command1_Click()
'On Error Resume Next
If Text1.Text = "" Then '查找工号
MsgBox "工号未输入!", vbOKOnly
Exit Sub
End IfAdodc1.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 SubPrivate Sub Command2_Click()
If Text1.Text = "" Then '查找工号
MsgBox "工号未输入!", vbOKOnly
Exit Sub
End IfAdodc1.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 SubPrivate Sub Form_Unload(Cancel As Integer)
FrmMDI.Show
Unload Me
End Sub