Question

vb怎么实现判断数据库中数据是否存在再执行下一步

Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=sh;Initial Catalog=shks;Data Source=LENOVO-PC\SQLEXPRESS;"
cnn.Open

Dim cmd As New ADODB.Command
If cnn.State = adStateOpen Then
Set cmd.ActiveConnection = cnn
cmd.CommandText = "update 销售表 set 销售时间= '" & Trim(Text3.Text) & "' ,销售数量= '" & Trim(Text4.Text) & "' ,销售金额= '" & Trim(Text5.Text) & "'where 产品编号='" & Trim(Text1.Text) & "'and 销售商编号='" & Trim(Text2.Text) & "'"
cmd.Execute
MsgBox "修改成功！"

End If

End Sub

我的代码是这样 但是无论数据库中是不是存在产品编号和销售商编号都会显示修改成功
我想怎么能该改成先判断数据库中是否存在对应的 产品编号和销售商编号 再进行修改
刚上大学做课程设计 还是一个小白 求大神帮忙 用的是vb6.0和sql2008

Answer 1

Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=sh;Initial Catalog=shks;Data Source=LENOVO-PC\SQLEXPRESS;"
cnn.Open
cmd.ActiveConnection = cnn
cmd.CommandText = "select * from 销售表 where 产品编号='" & Trim(Text1.Text) & "' and 销售商编号='" & Trim(Text2.Text) & "'"
If cmd.Execute.EOF Then
    MsgBox "记录不存在！"
Else
    cmd.CommandText = "update 销售表 set 销售时间='" & Trim(Text3.Text) & "',销售数量='" & Trim(Text4.Text) & "',销售金额='" & Trim(Text5.Text) & "' where 产品编号='" & Trim(Text1.Text) & "' and 销售商编号='" & Trim(Text2.Text) & "'"
    cmd.Execute
    MsgBox "修改成功！"
End If
cnn.Close
End Sub

Answer 2

可以先通过查询语句，可以判断是否返回记录？