Question

我想在数据库中选择和查看我的数据，但事实证明这是一个挑战。关于我可能错过它的任何建议？如果即使满足选择条件也运行此代码，它始终返回搜索失败。有什么帮助吗？

If txtSun.Text = "SUN" Then
    Set rst = New ADODB.Recordset
    Dim sSql As String
    sSql = "SELECT * FROM SundryProduct WHERE ProdCont='" & txt_con_code.Text & "'"
    rst.Open sSql, Cnn, adOpenForwardOnly, , adCmdText
    'rst.Open "SELECT * FROM SundryProduct WHERE ProdCont='" & txt_con_code.Text & "' ", Cnn, adOpenForwardOnly, , adCmdText
    If rst.EOF Then
    MsgBox ("SEARCH FAILED")
    Else
    MsgBox ("QUANTITY ORDERED  " & rst!QuantityOrdered & vbCrLf & "   My Load Number is   " & rst!LoadNumber)
    End If
End If

我试图找出数据库中是否存在匹配ProdCont值的记录，但由于我仍然试图让这段代码首先工作，所以我只在代码中放置了消息框。我甚至尝试输入我知道存在于数据库中的实际值，但它仍然返回搜索失败的消息框，即使我知道数据库中存在该值。

Answer 1

If rst.EOF = True Then '----> here
  MsgBox ("SEARCH FAILED")
Else
  MsgBox ("QUANTITY ORDERED  " & rst!QuantityOrdered & vbCrLf & "   My Load Number is   " &  rst!LoadNumber)
End If

Answer 2

您尝试只运行一个简单的查询，即从SundryProduct中选择*，会发生什么？我将从此开始并在此基础上消除编码/语法导致错误消息的可能性

使用vod6查询数据库中的数据，使用adodb访问ms

2 个答案: