0

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

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数据库中是否存在具有匹配值的记录,但由于我仍然试图首先使此代码工作,所以我只在代码中放置了消息框。我什至尝试输入一个我知道数据库中存在的实际值,但它仍然返回搜索失败消息框,即使我知道该值存在于数据库中。

4

2 回答 2

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
于 2013-09-26T10:48:22.597 回答
0

如果您尝试运行一个简单的查询,即从 SundryProduct 中选择 *,会发生什么?我将从它开始并以此为基础,以消除导致错误消息的编码/语法的可能性

于 2013-05-02T14:39:59.253 回答