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

解决方案 »

  1.   

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

  2.   

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

  3.   

    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