vb+access 新手问题

Question

Dim sql1, sql2 As String
Dim conn As New ADODB.Connection
Dim rs1, rs2 As New ADODB.Recordset
conn.Open "provider=Microsoft.Jet.oledb.4.0;" & "data source= " & App.Path & "\funman.mdb;" & "Persist Security Info=False"
If DataCombo1.Text = "" Then
    MsgBox "请选择商品名称!", 48, "提示!"
Else
    sql1 = "select * from storinfo where storname like '%" & Trim(DataCombo1.Text) & "%'"
    sql2 = "select * from storinfo where storname like '%" & Trim(DataCombo1.Text) & "%'"
    rs1.Open sql1, conn, 1, 3
    rs2.Open sql2, conn, 1, 3
    Label6.Caption = rs1("storcont")
    Label4.Caption = rs2("storcont")
    Label2.Caption = Trim(Str(Val(Label6.Caption) - Val(Label4.Caption)))
    rs1.Close
    rs2.Close
    conn.Close
End If
运行的时候提示 rs1.Open sql1, conn, 1, 3 错误424 要求对象 这个是怎么回事？ 希望高人指导一下哦～
 

Answer 1

http://download.csdn.net/source/1498324

Answer 2

  sql1 = "select * from storinfo where storname like '%" & Trim(DataCombo1.Text) & "%'"
  sql2 = "select * from storinfo where storname like '%" & Trim(DataCombo1.Text) & "%'"
  rs1.Open sql1, conn, 1, 3
  rs2.Open sql2, conn, 1, 3
为什么要重复2次。

Answer 3

where 后面还各有条件 太长没弄 但是也不是关键问题吧?

Answer 4

Dim rs1, rs2 As New ADODB.Recordset
这个定义有问题,应分别定义
Dim rs1 As New ADODB.Recordset,rs2 As New ADODB.Recordset