ROTINA PARA MOSTRAR DADOS DA TABELA

 Tópico anterior Próximo tópico Novo tópico

ROTINA PARA MOSTRAR DADOS DA TABELA

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#419197 - 13/02/2013 14:02:29

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Boa tarde pessoal, criei uma rotina padrao para exibir dados de uma tabela atualizando o form, mas d o seguinte erro:
ERRO 5 - no existem dados para a linha ou coluna.
a linha existe se no nao comecaria a rotina, segue o codigo da rotina.
-----
Public Sub EncheForm(ByRef Frm As Form)
        StrLer = []SELECT * FROM Fornecedores WHERE CNPJ =[][] & MskCNPJ.Text & [][][]
        Try
            ConexaoLer = New OleDbConnection(strConexao)
            ConexaoLer.Open()
            daLer = New OleDbDataAdapter(StrLer, ConexaoLer)
            dtLer = New DataTable
            daLer.Fill(dtLer)
            If dtLer.Rows.Count > 0 Then
                ComandoLer = ConexaoLer.CreateCommand
                ComandoLer.CommandText = StrLer
                ComandoLer.Connection = ConexaoLer
                drLer = ComandoLer.ExecuteReader
                Dim A, B
                For A = 0 To drLer.FieldCount - 1
                    For B = 0 To Frm.Controls.Count - 1
                        If Frm.Controls(B).tag = drLer.GetName(A).ToString Then
                            []MsgBox(Frm.Controls(B).tag & []  =  [] & drLer.GetName(A).ToString)
                            Frm.Controls(B).text = drLer.GetValue(A).ToString
                        End If
                    Next
                Next
            End If
            ConexaoLer.Close()
            ComandoLer.CommandText = [][]
            ComandoLer.Connection.Close()
        Catch ex As Exception
            MsgBox([]Erro n. [] & Err.Number & [] - [] & ex.Message, vbCritical, []Erro![])
            ConexaoLer.Close()
            ComandoLer.CommandText = [][]
            ComandoLer.Connection.Close()
        End Try

    End Sub

o campo tipo texto.
se puderem me ajudar

O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#419223 - 16/02/2013 15:50:24

FELLIPEASSIS
SAO PAULO
Cadast. em:Outubro/2012


vc esta trabalhando em camadas no seu projeto?



#419237 - 17/02/2013 11:38:36

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Sim, mas j achei a soluo:
drLer.Read()
faltou isso, kkkkkkkkkk
obrigado.

O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por DAMASCENO.CESAR em 17/02/2013 11:38:58