Não estou conseguindo fazer funcionar a busca no MySQL quando coloco a instrução MIN para localizar o menor valor, sendo que quando rodo na base local access funciona perfeitamente!
Também se coloco a instrução SQL diretamente no servidor MySQL e executo traz o valor correto!
Erro em tempo de execução '3265'
o item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado
Na base MySQL este campo está definido como DECIMAL(10,2)
Sub Load_PVCR()
strRS = "SELECT Min(Preco) FROM tbl_CrossReference_Preco WHERE Produto='" & Me.Codigo & "' AND Status='ATIVO' AND Preco>0"
Call Cnn_Open
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = Cnn
.Source = strRS
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
If Not rs.BOF Then
Me.PVCR.Value = Replace(rs!Preco, ".", ",")
End If
Set rs = Nothing: Close
Set Cnn = Nothing: Close
End Sub
Também se coloco a instrução SQL diretamente no servidor MySQL e executo traz o valor correto!
Erro em tempo de execução '3265'
o item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado
Na base MySQL este campo está definido como DECIMAL(10,2)
Sub Load_PVCR()
strRS = "SELECT Min(Preco) FROM tbl_CrossReference_Preco WHERE Produto='" & Me.Codigo & "' AND Status='ATIVO' AND Preco>0"
Call Cnn_Open
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = Cnn
.Source = strRS
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
If Not rs.BOF Then
Me.PVCR.Value = Replace(rs!Preco, ".", ",")
End If
Set rs = Nothing: Close
Set Cnn = Nothing: Close
End Sub