Dificuldade em conexão de dados VB.Net

[MATEUS_ROCHA 0]

AI GALERA POR FAVOR QUEM PUDER MI AJUDACRIEU UM BANCO DE DADOS NO ACSEES .....NOME ENDEREÇO TELEFONE CEP....CADASTRO DE CLIENTE.....FIZ UM FORMULARIO NO VB.NET...COM LABEL E TEXTBOX CERTIM....MAS NAUM CARREGA OS DADOS..O Q EU FAÇO???JA FIZ TBM AS CONEXÕES COM OLEADAPTER...DATASET....ALGUEM PODE MI EXPLICAR ALGUNS PASSOS???VALEU GALERA

[Giovani 104]

Título do tópico editado conforme Regras do Fórum iMasters

Sai: DIFICULDADE EM CONEXÃO DE DADOS VB.NET

Entra: Dificuldade em Conexão de dados VB.Net

[roberto182 0]

Boa Tarde,Tutorial básico de banco de dados com SQL:http://www.linhadecodigo.com.br/Artigo.aspx?id=147Abrass,

[Kakashi Hatake 0]

AI GALERA POR FAVOR QUEM PUDER MI AJUDA

 

CRIEU UM BANCO DE DADOS NO ACSEES .....NOME ENDEREÇO TELEFONE CEP....CADASTRO DE CLIENTE.....

 

 

FIZ UM FORMULARIO NO VB.NET...COM LABEL E TEXTBOX CERTIM....MAS NAUM CARREGA OS DADOS..O Q EU FAÇO???

 

JA FIZ TBM AS CONEXÕES COM OLEADAPTER...DATASET....ALGUEM PODE MI EXPLICAR ALGUNS PASSOS???

VALEU GALERA

acho que assim vai funcionar... depois é claro, de adapta-lo ao seu codigo.. rs

 

Private Sub preenchecampos()

 

Dim cmd As New OleDbCommand("select * from leis WHERE numerolei = '" & txtnumerolei.Text & "'", conexao.conexao)

Dim odatarow As DataRow

oDataAdapter.SelectCommand = cmd

oDataSet = New DataSet

oDataSet.Clear()

 

Try

conexao.conexao.Open() ' abre conexao com o banco de dados

oDataAdapter.Fill(oDataSet, "leis")

conexao.conexao.Close()

 

 

 

odatarow = Me.oDataSet.Tables("leis").Rows(0) 'joga no oDataRow a linha encontrada na minha select...

 

Me.txtanolei.Text = CStr(odatarow("anolei")) 'preenche os campos do form... com os dados colhidos no oDataRow..

Me.txtnumerolei.Text = CStr(odatarow("numerolei"))

Me.dtdatacriacao.Text = CStr(odatarow("datalei"))

Me.txtassuntolei.Text = CStr(odatarow("assunto"))

Me.rtxtexto.Text = CStr(odatarow("texto"))

Me.rtxtexto.Rtf = CStr(odatarow("codigorich"))

 

Catch ex As Exception

 

End Try

odatarow = Me.oDataSet.Tables("leis").Rows(0) 'joga os valores da tabela nos objetos ComboBox...

Me.cbprefeito.SelectedValue = odatarow("prefeito")

Me.cbtipolei.SelectedValue = odatarow("tipolei")

Me.cbstatuslei.SelectedValue = odatarow("statuslei")

 

End Sub