データベースで自分のデータを選択して表示したいのですが、それが難しいことがわかっています。私がそれを見逃している可能性がある場所についてのアドバイスはありますか? 選択基準が満たされた場合でもこのコードを実行すると、常に検索失敗が返されます。何か助けはありますか?
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
値を持つレコードがあるかどうかを調べようとしていますが、最初はまだこのコードを機能させようとしていたので、コードにメッセージボックスしか入れていません。データベースに存在することがわかっている実際の値を入力しようとしましたが、値がデータベースに存在することを知っていても、検索に失敗したメッセージボックスが返されます。