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