Error al Guardar Registros desde Vb 2012 en Access 2013
Publicado por Darling (5 intervenciones) el 15/04/2017 23:19:28
Hola muy buenas tardes,
Me gustaría que me ayudaran con este problema que tengo
En el siguiente código
El Problema es que no me guarda los registros
me lanza a este msj MsgBox("Error al Guardar", vbCritical, "Atencion!")
Cual será el problema?
Ayuda por favor
Me gustaría que me ayudaran con este problema que tengo
En el siguiente código
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
***Declaraciones
Public con As OleDbConnection
Dim conexion As New System.Data.OleDb.OleDbConnection
Dim comando As New OleDbCommand
Dim read As OleDbDataReader
Dim ds As New DataSet
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
***Botón Guardar
Try
comando = New OleDbCommand("INSERT INTO Alumnos (IdAlumno, Nombre, ApellidoP, ApellidoM, Edad, Sexo, FNacimiento, Email, Direccion, Foto)" & vbCrLf &
"VALUES(IdAlumnoTextBox, NombreTextBox, ApellidoPTextBox, ApellidoMTextBox, EdadTextBox, SexoComboBox, FNacimientoDateTimePicker, EmailTextBox, DireccionTextBox, FotoTextBox)", conexion)
comando.Parameters.AddWithValue("@IdAlumno", IdAlumnoTextBox.Text)
comando.Parameters.AddWithValue("@Nombre", NombreTextBox.Text)
comando.Parameters.AddWithValue("@ApellidoP", ApellidoPTextBox.Text)
comando.Parameters.AddWithValue("@ApellidoM", ApellidoMTextBox.Text)
comando.Parameters.AddWithValue("@Edad", EdadTextBox.Text)
comando.Parameters.AddWithValue("@Sexo", SexoComboBox.Text)
comando.Parameters.AddWithValue("@FNacimiento", FNacimientoDateTimePicker.Value)
comando.Parameters.AddWithValue("@Email", EmailTextBox.Text)
comando.Parameters.AddWithValue("@Direccion", DireccionTextBox.Text)
comando.Parameters.AddWithValue("@Foto", FotoTextBox.Text)
comando.ExecuteNonQuery()
MsgBox("Registro Guardado Correctamente", vbInformation, "Correcto")
actualizar()
Catch ex As Exception
MsgBox("Error al Guardar", vbCritical, "Atencion!")
End Try
El Problema es que no me guarda los registros
me lanza a este msj MsgBox("Error al Guardar", vbCritical, "Atencion!")
Cual será el problema?
Ayuda por favor
Valora esta pregunta
0
