Dim Con As New ADODB.Connection '定义数据库连接对象
Dim Rs As New ADODB.Recordset '定义数据库记录集对象
Private Sub Cmd_Delete_Click() '删除一条记录
Rs.Delete
If Not Rs.BOF Then
Rs.MoveNext
Else
Rs.MovePrevious
End If
Call ShowInfo
End Sub
Private Sub Cmd_Exit_Click() '退出程序,关闭记录集对象Rs,关闭连接对象Con
Rs.Close
Con.Close
End
End Sub
Private Sub Cmd_Find_Click() '查询产品信息
Dim Str As String
Dim pname As String
pname = Text_PN.Text
If Text_PN.Text <> "" And Text_PriceDown.Text = "" And Text_PriceUp.Text = "" Then
Str = "Select * from producted Where pName='" & pname & "'"
ElseIf Text_PN.Text = "" And Text_PriceDown.Text <> "" And Text_PriceUp.Text <> "" Then