[] Erro na hora de salvar um item na LISTBOX

[Messana 0]

Olá, estou criando uma agenda no VISUAL STUDIO 2008 - Lingugagem: VB.NET

Banco de dados: ACCESS

 

Sempre quando clica no botão SALVAR, ele chama a função carregaDados(), aonde se encontra todo o código. (fiz isso para ficar mais organizado)

 

Essa função, salva o que foi digitado nos campos no BANCO DE DADOS e tb, adiciona o NOME da pessoa, que é o que ta no ACCESS, em um LISTBOX

 

E está dando o seguinte erro:

Ele simplesmente não aparece na LISTBOX o que foi gravado, ele chega a aparecer a MSGBOX que eu programei, mas ele nao salva na LISTBOX.

 

Segue o código:

 

 

Dim conexao As OleDbConnection

Dim myCommand As OleDbCommand

conexao = New System.Data.OleDb.OleDbConnection("Provider = Microsoft.jet.OleDB.4.0;Data Source = " & Application.StartupPath & "\Agenda.mdb;")

myCommand = New OleDbCommand("Insert INTO Agenda ( Nome,Aniversário,Email,Celular,Telefone,Grupo,Observações extras,Endereço ) Values('" & NomeTextBox.Text & "','" & AniversárioTextBox.Text & "','" & EmailTextBox.Text & "','" & CelularTextBox.Text & "','" & TelefoneTextBox.Text & "','" & GrupoTextBox.Text & "','" & Observações_extrasTextBox.Text & "','" & EndereçoTextBox.Text & "',")

conexao.Open()

Dim ds As New DataSet

Dim dr As DataRow

Dim dt As New DataTable

Dim adptr As New OleDbDataAdapter("select * from Agenda", conexao)

adptr.Fill(ds, "Agenda")

dt = ds.Tables(0)

For Each dr In dt.Rows

ListBox1.Items.Add(dr.Item("Nome"))

ListBox1.Refresh()

Next

MsgBox("Dados Incluidos com sucesso")

conexao.Close()

 

Eu acho que o erro está nas partes que estao em negrito, se alguem puder ajudar.

 

Obrigado.

[LCS 0]

Dim conexao As OleDbConnection

 

Dim myCommand As OleDbCommand

 

conexao = New System.Data.OleDb.OleDbConnection("Provider = Microsoft.jet.OleDB.4.0;Data Source = " & Application.StartupPath & "\Agenda.mdb;")

 

myCommand.commandtext = New OleDbCommand("Insert INTO Agenda ( Nome,Aniversário,Email,Celular,Telefone,Grupo,Observações extras,Endereço )"& "Values('" & NomeTextBox.Text & "','" & AniversárioTextBox.Text & "','" & EmailTextBox.Text & "','" & CelularTextBox.Text & "','" & TelefoneTextBox.Text & "','" & GrupoTextBox.Text & "','" & Observações_extrasTextBox.Text & "','" & EndereçoTextBox.Text & "')"

conexao.Open()

 

 

Dim ds As New DataSet

Dim dr As DataRow

Dim dt As New DataTable

Dim adptr As New OleDbDataAdapter("select * from Agenda", conexao)

adptr.Fill(ds, "Agenda")

dt = ds.Tables(0)

For Each dr In dt.Rows

ListBox1.Items.Add(dr.Item("Nome"))

ListBox1.Refresh()

Next

MsgBox("Dados Incluidos com sucesso")

conexao.Close()

 

 

esses em negretio foram alguns dos erros que pude encontrar. na segunda parte nem olhei porque nunca fiz numa list box;

[Paulo Mendes 0]

Caso a Dúvida não tenha sido sanada, recomendo, messana, que poste na área destinada a plataforma .NET

 

Paulo Mendes.