consulta banco de dados access

[allanrsc 0]

ae galera,beleza...to com um probleminha....eu to fazendo uma busca num banco de dados access,e os resultados são mostrados em um datagridview...ate ai beleza tudo certo....só que quando eu faço a busca por um numero que não existe,ele naum aparece nada no datagrid..oq ta certo pq eu coloco pra fazer busca um numero que naum existe...só que quando tentar procurar um numero que naum existe eu preciso que ele me mostre um messagebox com texto que eu escolher......alguem pode ajudar aew....como colocar o msgbox pra resultados que naum existem????segue abaixo o codigo da consulta....

 

 

 

Busca = frmREE.txtCNPJ.Text

st = "SELECT Cad_Cli.Cliente, Cad_Cli.Descricao, Cad_Cli.Rua, Cad_Cli.Zona, Cad_Cli.Cidade, Cad_Cli.Estado, Cad_Cli.Email, Cad_Cli.Telefone, Cad_Cli.CNPJ, Cad_Cli.ExeConta "

st = st & "FROM Cad_Cli WHERE (((Cad_Cli.CNPJ)='" & Busca & "'));"

Dim cmdDef As New OleDb.OleDbCommand(st, Con)

Dim drDef As OleDb.OleDbDataReader

drDef = cmdDef.ExecuteReader()

If drDef.Read() Then

Mailpara = drDef.Item(6).ToString

'Objetivo = "Reclamação:Informativo de Devolução"

[quintelab 91]

Você fez um if caso tenha dados, coloque um Else e no else chama seu MessageBox.

 

Abraços...

[allanrsc 0]

mas agora mudou....ficou com o while no lugar do if....

Busca = frmREE.txtCNPJ.Text

st = "SELECT Cad_Cli.Cliente, Cad_Cli.Descricao, Cad_Cli.Rua, Cad_Cli.Zona, Cad_Cli.Cidade, Cad_Cli.Estado, Cad_Cli.Email, Cad_Cli.Telefone, Cad_Cli.CNPJ, Cad_Cli.ExeConta "

st = st & "FROM Cad_Cli WHERE (((Cad_Cli.CNPJ)='" & Busca & "'));"

Dim cmdDef As New OleDb.OleDbCommand(st, Con)

Dim drDef As OleDb.OleDbDataReader

drDef = cmdDef.ExecuteReader()

while drDef.Read() Then

Mailpara = drDef.Item(6).ToString

'Objetivo = "Reclamação:Informativo de Devolução"

 

 

 

Você fez um if caso tenha dados, coloque um Else e no else chama seu MessageBox.

 

Abraços...

 

[quintelab 91]

Coloca uma variável dentro do seu while para saber se tem dados ou não, logo depois do while faça a verificação.

 

Abraços...