UC知道vb操作数据库问题,请您进来看下,帮帮小弟,谢谢了.
来源：百度知道 编辑：UC知道 时间：2024/05/22 11:42:50
我用VB做一个SQL数据库药品管理系统,向库里添加药品,要先判断药品信息表里有没有这种药,没有的话添加相关信息,有的话直接在把药品信息表里的数量加上相应的数量,请帮忙举例代码实现,小弟感激不劲!先谢过了
con为数据库连接,table是药品信息的表,name为药品名,count为药品数量,text1是输入药品名的输入框,text2是输入药品数量的...
Dim rs As New ADODB.Recordset
rs.Open "select * from table where name='text1.text'", con, 1, 3
If rs.RecordCount = 1 Then
Dim i As Integer
i = CInt(rs.Fields("count")) + CInt(Text2.Text)
rs.Close
rs.Open "update table set count=" + i + " where name='" + Text1.Text + "'", con, 1, 3
Else
rs.Close
rs.Open "insert into table(name,count) valuse('" + Text1.Text + "'," + CInt(Text2.Text) + ")", con, 1, 3
End If