Problema ao gravar no banco de dados

[felipefcruz 1]

Estou desenvolvendo uma agenda em vb.net mas estou com problema na inserção dos dados.

 

Por enquanto pra testes, estou gravando numa só coluna. O código:

 

 

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sql As String
Dim conn As OleDbConnection
Dim cmd As OleDbCommand

sql = "INSERT INTO agenda(dataagenda)"
sql = sql & " values ('" & TextBox1.Text & "')"
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Users\Usuário\Documents\Visual Studio 2012\Projects\WebApplication1\WebApplication1\bin\agenda.mdb")

conn.Open()
cmd = New OleDbCommand(sql, conn)
Try
cmd.ExecuteNonQuery()
MsgBox("Cadastro realizado com sucesso.")
Catch ex As Exception
MsgBox("erro ao cadastrar.")
Finally
conn.Close()
End Try

Response.Redirect("WebForm1.aspx")
End Sub

 

 

 

O problema é que clico para gravar os dados e ele grava, mas quando checo no banco não tem nada na tabela, mas ele gera o código com os campos em branco. O que seria?

No bd também está como string.

Resoluções... Obrigado.

[LiPe 0]

Eu tentaria fazer o teste

 

trocaria

sql = "INSERT INTO agenda(dataagenda)"
sql = sql & " values ('" & TextBox1.Text & "')"

 

por isto

sql = "INSERT INTO agenda(dataagenda)"
sql = sql & " values ('teste')"

 

se funcionar, o problema esta no controle textbox

[felipefcruz 1]

Sim, xará!

 

Entendi o que você quis dizer. O code está gravando. Da forma que você falou ele irá gravar simplesmente "teste", e não os dados do textbox. Quero que ele pegue os dados do text, e é exatamente isso que não está acontecendo.

[Rafael Mitsunaka 11]

Ta vindo valor no TextBox?

Debugando aparece?

[felipefcruz 1]

Aparece sim. É como eu disse, eu clico em gravar, ele grava só que não insere a informação passando o parâmetro como textbox.

Se eu coloco pra inserir direto da programação ele insere :/

[KhaosDoctor 242]

Isso significa que o controle do textbox não está gravando o texto, ou então você está executando este código em um momento em que não há nada no textbox, você preenche este campo como?