jcrf 0 Denunciar post Postado Junho 24, 2011 O erro ocorre quando o campo não tem dados. Private Sub PreencheControles(ByVal dados As MySqlDataReader) Try Do While dados.Read txtidentificacao.Text = dados("Id") txtnome.Text = dados("NOME") txtend.Text = dados("ENDERECO") txtbairro.Text = dados("Bairro") txtcidade.Text = dados("cidade") txtestado.Text = dados("ESTADO") mtbcep.Text = dados("CEP") mtbtelefone.Text = dados("telefone") txtcnpj.Text = dados("CNPJ") txtcobertcont.Text = dados("cobertcont") txtie.Text = dados("IE") txtcontrato.Text = dados("Contrato") txtemail.Text = dados("email") txtresponsavel.Text = dados("responsavel") Loop dados.Close() Catch ex As Exception MessageBox.Show(ex.Message, "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Warning) End Try End Sub Compartilhar este post Link para o post Compartilhar em outros sites
quintelab 91 Denunciar post Postado Junho 25, 2011 Terá que fazer uma validação antes pra confirmar que ele tenha dados, ou use um COALESCE na sua query. Abraços... Compartilhar este post Link para o post Compartilhar em outros sites