Question

VB编程问题：在Vb中添加数据信息到连接的数据库中，当判断添加的数据主键是否已经存在时，出现代码错误！

由于最近财富值不够了，但哪位编程高手帮我改改啊，小女子不甚感激。代码如下：
Private Sub Command4_Click()
Adodc1.RecordSource = "select * from 销售订单明细表"
If Text1.Text = "" Then
MsgBox "订单号不能为空"
Else
If Adodc1.Recordset.RecordCount > 0 Then
MsgBox "该信息已经存在，不能再保存!"
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("订单号") = Text1.Text
Adodc1.Recordset.Fields("产品代码") = Text10.Text
Adodc1.Recordset.Fields("产品名称") = Text2.Text
Adodc1.Recordset.Fields("产品单价") = Val(Text3)
Adodc1.Recordset.Fields("顾客编号") = Text4.Text
Adodc1.Recordset.Fields("订货时间") = Text5.Text
Adodc1.Recordset.Fields("发货时间") = Text6.Text
Adodc1.Recordset.Fields("发货数量") = Val(Text7)
Adodc1.Recordset.Fields("折扣等级") = Val(Text8)
Adodc1.Recordset.Fields("折后金额") = Val(Text9)
Adodc1.Recordset.Fields("付款方式") = Combo1.Text
Adodc1.Recordset.Fields("进度") = Combo2.Text
End If
End If
End Sub

Answer 1

Private Sub Command4_Click()
If Text1.Text = "" Then
MsgBox "订单号不能为空"
Else
Adodc1.RecordSource = "select * from 销售订单明细表 where 订单号='"&trim(Text1.Text )"&'" '这里订单号改成你自己的字段名, 如果是非文本型字段就不要加'"&trim了,根据字段类型自己加转换函数吧
If Adodc1.Recordset.RecordCount > 0 Then
MsgBox "该信息已经存在，不能再保存!"
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("订单号") = Text1.Text
Adodc1.Recordset.Fields("产品代码") = Text10.Text
Adodc1.Recordset.Fields("产品名称") = Text2.Text
Adodc1.Recordset.Fields("产品单价") = Val(Text3)
Adodc1.Recordset.Fields("顾客编号") = Text4.Text
Adodc1.Recordset.Fields("订货时间") = Text5.Text
Adodc1.Recordset.Fields("发货时间") = Text6.Text
Adodc1.Recordset.Fields("发货数量") = Val(Text7)
Adodc1.Recordset.Fields("折扣等级") = Val(Text8)
Adodc1.Recordset.Fields("折后金额") = Val(Text9)
Adodc1.Recordset.Fields("付款方式") = Combo1.Text
Adodc1.Recordset.Fields("进度") = Combo2.Text
Adodc1.Recordset.update '注意这里 addnew 后要加这个
End If
End If
End Sub