error de sql

[juanjose472]

Hola compañeros, estoy realizando un programa en el cual va a servir para llevar el control de notas de alumnos pero, en las sentencias de sql para copiar de textbox a la base de access me tira error talves me puedan ayudar.

gracias


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

Try

Dim Mov As New OleDbConnection()
Mov.ConnectionString = ("PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & Ruta)
'Dim Consulta As String = "Select * From alumnos"
'Dim objAdap As New OleDbDataAdapter(Mov)
Dim Guardar As String = "insert into nota ( nombre, carrera, jornada, zona, examenteorico, examenpractico, modulo ) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "'," & TextBox5.Text & ",'" & TextBox6.Text & "','" & TextBox7.Text & "')"
Dim comando As New OleDbCommand(Guardar, Mov)
comando.CommandType = CommandType.Text
Mov.Open()
comando.ExecuteNonQuery()
MessageBox.Show("Los Datos fueron guardados con exito", "Datos Guardados...")
Mov.Close()
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try

End Sub

[Aquaventus]

Puedes decirnos que error te bota?

[ramirezmario7]

No sera porque borras la informacion de los textbox antes de guardarla en la BD.

[juanjose472]

el error que me tira es "Error de sintaxis en la instruccion INSERT INTO"

gracias

[juanjose472]

Iniciado por Aquaventus

Puedes decirnos que error te bota?

el error que me tira es el de "Error de sintaxis en instruccion INSERT INTO"

gracias

[ramirezmario7]

Te recomiendo que agreges un breackpoint punto de interrupcion en la linea donde haces el insert, y mira si si te llegan todos los datos que necesitas.

es que al principio borras la informacion de los textbox
TextBox1.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

y esos textbox los usas en
Dim Guardar As String = "insert into nota ( nombre, carrera, jornada, zona, examenteorico, examenpractico, modulo ) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "'," & TextBox5.Text & ",'" & TextBox6.Text & "','" & TextBox7.Text & "')"
pera ya borrastes la informacion.

[juanjose472]

Iniciado por ramirezmario7

Te recomiendo que agreges un breackpoint punto de interrupcion en la linea donde haces el insert, y mira si si te llegan todos los datos que necesitas.

es que al principio borras la informacion de los textbox
TextBox1.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

y esos textbox los usas en
Dim Guardar As String = "insert into nota ( nombre, carrera, jornada, zona, examenteorico, examenpractico, modulo ) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "'," & TextBox5.Text & ",'" & TextBox6.Text & "','" & TextBox7.Text & "')"
pera ya borrastes la informacion.

fijate que como realmente soy novato en esto no se mucho pero si quieres te puedo mandar los archivos?

[Ka0stj]

Lo que ramirezmario7 te dice es que cambies de lugar esos textbox porque les estas enviando valores nulos al insert, primero inserta y luego limpias los textbox.

Dim Guardar As String = "insert into nota ( nombre, carrera, jornada, zona, examenteorico, examenpractico, modulo ) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "'," & TextBox5.Text & ",'" & TextBox6.Text & "','" & TextBox7.Text & "')"

TextBox1.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

Realiza una prueba asi.

[juanjose472]

Gracias por tomarse la molestia en responder,probe quitando el clear() pero igual me tira el mensaje. les agradesco de antemano la ayuda GRACIAS

[ramirezmario7]

Si puedes has el punto de interrupcion y mira la informacion que se esta guardando
en la variable Guardar

Dale click derecho sobre la linea
Dim Guardar As String = "insert into nota ( nombre, carrera, jornada, zona, examenteorico, examenpractico, modulo ) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "'," & TextBox5.Text & ",'" & TextBox6.Text & "','" & TextBox7.Text & "')"

le das punto de interrupcion\ insertar punto de interropcion

te debera aparecer una bolita roja

luego ejecutas normal y el programa te parara cuando lleges a esa instrcuccion.

luego si le das F10 de pasara a la siguiente linea y si te paras sobre la variable Guardar te mostrara lo que hay en ella