为何这段插入数据库的代码老是报错:指定下边的这句“Me.Adodc1.Recordset”为“属性的无效使用”请教各位大虾帮忙  小妹是vb新手 
sql = "select * from ITNote"
Me.Adodc1.RecordSource = sql
    Me.Adodc1.Recordset
    If .EOF And .BOF Then
        
        Me.Adodc.Rrecordset.AddNew
    
        Me.Adodc.Rrecordset.Fields("ITn_material") = Me.Text1.Text
        Me.Adodc.Rrecordset.Fields("ITn_brand") = Me.Text2.Text
        Me.Adodc.Rrecordset.Fields("ITn_model") = Me.Text3.Text
        Me.Adodc.Rrecordset.Fields("ITn_units") = Me.CB_Unit
        Me.Adodc.Rrecordset.Fields("ITn_number") = Me.Text4.Text
        Me.Adodc.Rrecordset.Fields("ITn_people") = Me.Text5.Text
        Me.Adodc.Rrecordset.Fields("ITn_date") = tt
        Me.Adodc.Rrecordset.Update
    
        MsgBox "备注增加成功"
        Me.Text1.Text = ""
        Me.Text2.Text = ""
        Me.Text3.Text = ""
        Me.Text4.Text = ""
        Me.Text5.Text = ""
        Me.CB_Unit.Text = ""
        Me.CB_Month.Text = ""
        Me.CB_Day.Text = ""
    Else
        MsgBox "备注添加不成功!"
    End If

解决方案 »

  1.   

    with Me.Adodc1.Recordset 
        If .EOF And .BOF Then 
            
            Me.Adodc.Rrecordset.AddNew 
        
            Me.Adodc.Rrecordset.Fields("ITn_material") = Me.Text1.Text 
            Me.Adodc.Rrecordset.Fields("ITn_brand") = Me.Text2.Text 
            Me.Adodc.Rrecordset.Fields("ITn_model") = Me.Text3.Text 
            Me.Adodc.Rrecordset.Fields("ITn_units") = Me.CB_Unit 
            Me.Adodc.Rrecordset.Fields("ITn_number") = Me.Text4.Text 
            Me.Adodc.Rrecordset.Fields("ITn_people") = Me.Text5.Text 
            Me.Adodc.Rrecordset.Fields("ITn_date") = tt 
            Me.Adodc.Rrecordset.Update 
        
            MsgBox "备注增加成功" 
            Me.Text1.Text = "" 
            Me.Text2.Text = "" 
            Me.Text3.Text = "" 
            Me.Text4.Text = "" 
            Me.Text5.Text = "" 
            Me.CB_Unit.Text = "" 
            Me.CB_Month.Text = "" 
            Me.CB_Day.Text = "" 
        Else 
            MsgBox "备注添加不成功!" 
        End If
    end with
      
    *****************************************************************************
    欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/
      

  2.   

    我自己解决了 是 Me.Adodc1.Recordset这句写错了,应该是Refresh.还有就是Rrecordset多写了一个R,不过还是十分感谢上面这个