Eliminar e Não Eliminar

[reyad 0]

pessoal desculpem la a pergunta mas como se faz para q se tiver registros na bd entao ele elimine todos os registo conforme ta o codigo abaixo, mas se n haver registros na bd, entao va aparecer uma mensagem de erro a dizer q n pode limpar o historico, ja q n ah registos.

 

brigado http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

 

 

     Dim registros As New Recordsetregistros.Open "DELETE FROM Estados", cn, adOpenDynamic, adLockOptimisticList1.ClearMsgBox "Historico Eliminado !!!", vbInformation

[Graymalkin 0]

Olhe a propriedade Eof (End of file - final do arquivo) do Recordset. Se ela for verdadeira (True), logo após a abertura da tabela, é porque não existem registros.Abraços,Graymalkin

[explore 3]

Exemplificando!!!!!if registros.eof thenmsgbox "sem registro"end if