CNN.EXECUTE SQL,RECORDSAFFECTED RETORNO -1
Boa noite.
A muito tempo venho contornando de uma maneira acredito não correta o retorno de linhas de uma tabela através de uma consulta.
Hoje resolvi postar, pois não encontrei a solução ainda.
Faço uma consulta no banco de dados e recebo - 1 como resultado de registros afetados.
Segue o exemplo e obrigado pelas respostas. Procurei no VBmania antes de postar....
Public Function Verifica(ID As Long) As Boolean
Verifica = False
Dim rs As New ADODB.Recordset
Dim x As Integer
mysql = [Ô]SELECT COUNT(*) FROM TB WHERE ID = [Ô] & ID
Set rs = cnn.Execute(mysql, x)
MsgBox x
rs.Close
Set rs = Nothing
End Function
A muito tempo venho contornando de uma maneira acredito não correta o retorno de linhas de uma tabela através de uma consulta.
Hoje resolvi postar, pois não encontrei a solução ainda.
Faço uma consulta no banco de dados e recebo - 1 como resultado de registros afetados.
Segue o exemplo e obrigado pelas respostas. Procurei no VBmania antes de postar....
Public Function Verifica(ID As Long) As Boolean
Verifica = False
Dim rs As New ADODB.Recordset
Dim x As Integer
mysql = [Ô]SELECT COUNT(*) FROM TB WHERE ID = [Ô] & ID
Set rs = cnn.Execute(mysql, x)
MsgBox x
rs.Close
Set rs = Nothing
End Function
eu acredito que sua função esteja meio sem lógica, tente assim
Public Function Verifica(ID As Long) As Boolean
Verifica = False
Dim rs As New ADODB.Recordset
mysql = [Ô]SELECT COUNT(*) AS Total FROM TB WHERE ID = [Ô] & ID
Set rs = cnn.Execute(mysql)
MsgBox Cint(rs!Total)
rs.Close
Set rs = Nothing
End Function
Faça seu login para responder