たとえば、クエリを使用します
Private Sub Compare2Value(ByVal 1Value As String,ByVal 2Value as String)
dim cmd as new SqlCommand
dim ds as new dataset
cmd.Connection=GetConnection()
cmd.CommandText="SELECT bin,value FROM TableA WHERE type=@type"
cmd.Parameters.Add("@type",SQLDbType.Varchar,5)
cmd.Parameters("@type").Value=TypeText
cmd.ExecuteReader()
dim da as new SqlDataAdpter(cmd)
da.Fill(ds,"dsname")
If ds.Tables(0).Rows()("bin")=1Value and ds.Tables(0).Rows()("value")=2Value Then
Status ="OK"
else
Status ="FAIL"
end If
End Sub
使い方 : Compare2Value(Bin,Value)
申し訳ありませんが、エラーが発生した場合はメモ帳をエディターに使用してください。この基本的なロジックはデータベースから比較されます