从数据库查询数据库与vb6和ms访问与adodb

我想选择和查看我的数据库中的数据，但它被证明是一个挑战。任何意见，我可以错过它吗？如果我即使在满足选择条件时也运行此代码，它总是返回搜索失败。任何帮助？从数据库查询数据库与vb6和ms访问与adodb

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值的记录，但因为我仍在努力使此代码工作摆在首位，我只把消息框代码。我甚至尝试过放入一个我知道存在于数据库中的实际值，但它仍然返回搜索失败的消息箱，即使我知道数据库中存在该值。

来源

2013-05-02 tendai mare

这是一个SQL Server后端，或MS访问？无论哪种方式，你能让你的查询在源数据库中成功运行吗？ – 2013-05-02 14:38:21

你可以发布简短但完整的（尽可能使用VB6）程序吗？ http://www.yoda.arachsys.com/csharp/complete.html – 2013-05-03 09:36:18

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-26 10:48:22

会发生什么是你试图运行一个简单的查询，即选择*从SundryProduct？我将开始与和建立在其上消除编码/语法possibilty导致该错误消息

来源

2013-05-02 14:39:59 Fosterocalypse

从数据库查询数据库与vb6和ms访问与adodb

回答

相关问题