VERIFICAR TABELA ESTA VAZIA

ALTAIR148 19/04/2011 17:05:34
#371901
Abaixo segue um código que tenho para fazer uma consulta, eu gostaria que aparece uma mensagem caso não existir dados baseados nos critérios da consulta.


Dim command As New MySql.Data.MySqlClient.MySqlCommand([Ô]SELECT sum(valor_bruto) as valor_bruto, sum(inss) as inss, sum(irf) as irf, calcular_inss  FROM tb_pagamento WHERE cnpj = [ô][Ô] & Me.cpf_portador.Text & [Ô][ô] and data_pagamento BETWEEN [ô][Ô] & data_inicial.Text & [Ô][ô] AND [ô][Ô] & data_final.Text & [Ô][ô][Ô], GetConexao1)




Obrigado.
JONATHANSTECKER 19/04/2011 17:15:30
#371908 
Dim dr As DataReader = command.ExecuteReader
If Not dr.Read Then MessageBox.Show([Ô]Não há itens[Ô])
ALTAIR148 19/04/2011 21:04:23
#371944
O meu ficou da seguinte forma : 



Dim command As New MySql.Data.MySqlClient.MySqlCommand([Ô]SELECT sum(valor_bruto) as valor_bruto, sum(inss) as inss, sum(irf) as irf, calcular_inss  FROM tb_pagamento WHERE cnpj = [ô][Ô] & Me.cpf_portador.Text & [Ô][ô] and data_pagamento BETWEEN [ô][Ô] & data_inicial.Text & [Ô][ô] AND [ô][Ô] & data_final.Text & [Ô][ô][Ô], GetConexao1)
        Dim reader As MySql.Data.MySqlClient.MySqlDataReader


        reader = command.ExecuteReader()
        If Not reader.Read Then MessageBox.Show([Ô]Não há itens[Ô])

        reader.Close()
        command.Dispose()


Não existe registros no período e ele não retorna a mensagem.
ALEXPASSOS 19/04/2011 21:32:27
#371945 Resposta escolhida
Tente assim:

Dim da As New MySqlDataAdapter([Ô]select * from tabela[Ô], Conexao)
Dim ds As New DataSet
da.Fill(ds)

If ds.Tables(0).Rows.Count = 0 Then
Msgbox([Ô]Nenhum lançamento encontrado[Ô])
Exit Sub
End If
ALTAIR148 19/04/2011 21:52:11
#371950
Grande ALEXPASSOS, funcionou perfeitamente.

Abraços,

Muito Obrigado...
Tópico encerrado , respostas não são mais permitidas
Voltar