为何这段插入数据库的代码老是报错:指定下边的这句“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
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
解决方案 »
- 菜鸟请教~单选框控件问题
- vb tcp/ip通信程序 怎么循环控制才让服务器端发送一个字符,客户端接受一个字符呀,小弟急用,谢谢!
- 简单问题
- 为什么我的ShockwaveFlash1控件播放FLASH不出来呢?
- 请教高手:在RichTextBox或textbox里如何打开一个网页,谢谢!!!
- VSFlexGrid 有没有中文帮助?
- 紧急!!如何使用ado的command命令???我在两个access数据库的两个表进行操作。我想用sql语句的insert update delete 命令!
- 请问怎么向vb写的文件里面写信息呀。很重要的谢谢
- how to use 'getclassinfo',give me a example!
- 如何用VB6控制Excel处理数据?
- VB字符串相等!
- 回下这个贴子好么
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/