Insert Into no me guarda registro en access vb2005
Hola, soy nuevo por aquí y esta es mi primera pregunta, apenas me inicio en esto de la programación así que pido compresión si mis preguntas son mal elaboradas o las respuestas demasiado obvias.
Mi problema con este código es que no me guarda los registros en access, los visualiza en el DataGridView, pero cuando abro access para confirmar si se guardaron los datos no aparecen. (No muestra mensajes de error)
Private Sub BtnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New OleDbConnection
conn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Agenda.mdb")
conn.Open()
Dim sql As String
sql = "Insert Into DatosPersonales( Nombre, Apellidos, FechaNacimiento) values('" & TxtNombre.Text.Trim _ & "','" & TxtApellidos.Text.Trim & "'," & MkdFechaNacimiento.Text & ")"
Dim Cmd As New OleDbCommand(sql, conn)
Cmd.ExecuteNonQuery()
Dim da As New OleDbDataAdapter("SELECT *FROM DatosPersonales", conn)
Dim ds As New DataSet
da.Fill(ds, "DatosPersonales")
DgvNuevo.DataSource = ds
DgvNuevo.DataMember = "DatosPersonales"
DgvNuevo.Refresh()
conn.Close()
Call limpiar()
End Sub
Mi problema con este código es que no me guarda los registros en access, los visualiza en el DataGridView, pero cuando abro access para confirmar si se guardaron los datos no aparecen. (No muestra mensajes de error)
Private Sub BtnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New OleDbConnection
conn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Agenda.mdb")
conn.Open()
Dim sql As String
sql = "Insert Into DatosPersonales( Nombre, Apellidos, FechaNacimiento) values('" & TxtNombre.Text.Trim _ & "','" & TxtApellidos.Text.Trim & "'," & MkdFechaNacimiento.Text & ")"
Dim Cmd As New OleDbCommand(sql, conn)
Cmd.ExecuteNonQuery()
Dim da As New OleDbDataAdapter("SELECT *FROM DatosPersonales", conn)
Dim ds As New DataSet
da.Fill(ds, "DatosPersonales")
DgvNuevo.DataSource = ds
DgvNuevo.DataMember = "DatosPersonales"
DgvNuevo.Refresh()
conn.Close()
Call limpiar()
End Sub
1 respuesta
Respuesta de Roberto Alvarado
1