ADODC控件查询问题 周一要完工,跪求各位大侠帮忙~!~
VB中通过文本框输入的内容来对比数据表表中有没有相同字段,有就更新相同字段数量,没有就新添加一条记录。例如:有块表内容如下:
表名:培养基
编号 培养基类型 添加剂 数量 操作员
1 M1 青霉素 20 杨红
2 M2 庆大霉素 20 杨红
text1.text 代表"培养基类型"
text2.text 代表"添加剂"
text3.text 代表"数量"
在文本框中输入m1 青霉素 20。表中就不单独添加一行,而是原有的数量20变为40。
在文本框中输入m3 青霉素 20。就单独添加一行。请各位大侠能赐教,给出代码。 关键就是查询对比这块不会弄。
大概思路
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.Find("培养基类型") = Text1.Text And Adodc2.Recordset.Find("添加剂") = Text2.Text
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "此项不允许为空!"
Else
If Not Adodc2.Recordset.EOF And Not Adodc2.Recordset.EOF Then
Adodc2.Recordset.Fields("数量") = Adodc2.Recordset.Fields("数量") + Text3.Text
Adodc2.Recordset.Fields("操作员") = Text4.Text
Else
写入一条新的
End if
.update
.close
msgbox "添加成功!!"
就更新数量的那段老整不对。
[ 本帖最后由 hahadeai 于 2012-11-29 20:27 编辑 ]