Olá pessoal,
Estou com um problema no COUNT no vb. Quero apresentar em um label o total de funcionários. Porém, o resultado aparece sempre -1.
Criei uma função em uma classe e chamei essa função no label.
PEssa função é a seguinte:
Public Function TotFunc() As Double
Dim dados As New OleDb.OleDbCommand
Dim resp As OleDb.OleDbDataReader
Dim tot As Integer = 0
Try
Conectar()
With dados
.CommandText = "SELECT COUNT(*) FROM tb_Funcionarios"
.CommandTimeout = 10000
.CommandType = CommandType.Text
.Connection = objCon
End With
Try
resp = dados.ExecuteReader
Return True
Catch ex As Exception
MessageBox.Show("Erro ao procurar o total de funcionários.", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
Finally
Desconectar()
End Try
Catch ex As Exception
MessageBox.Show("Ocorreu um erro na conexão.", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
Alguém poderia me dar um help? Obrigado !
