我想选择和查看我的数据库中的数据,但它被证明是一个挑战。任何意见,我可以错过它吗?如果我即使在满足选择条件时也运行此代码,它总是返回搜索失败。任何帮助?从数据库查询数据库与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
值的记录,但因为我仍在努力使此代码工作摆在首位,我只把消息框代码。我甚至尝试过放入一个我知道存在于数据库中的实际值,但它仍然返回搜索失败的消息箱,即使我知道数据库中存在该值。
这是一个SQL Server后端,或MS访问?无论哪种方式,你能让你的查询在源数据库中成功运行吗? – 2013-05-02 14:38:21
你可以发布简短但完整的(尽可能使用VB6)程序吗? http://www.yoda.arachsys.com/csharp/complete.html – 2013-05-03 09:36:18