Ayuda con insert en visual express2008
Hola que tal, a querer agregar una entrada a bd en access con visual 2008 me arroja "error de sintaxis en insert into" he estado toda la tarde en esto y no lo he posido solucionar adjunto código. Gracias
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ip As Char
Dim serie_pc As Char
Dim serie_mon As Char
Dim nombre_e As Char
Dim nombre_u As Char
Dim oConn As New OleDbConnection
Dim oComn As New OleDbCommand
Dim oData As OleDbDataReader
'Cadena de informaciòn para conectarse a la base de datos
oConn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=E:\Nueva carpeta\ip_query\ip_query\ip.mdb;"
Try
'Abrir base de datos
oConn.Open()
ip = ComboBox1.Text
serie_pc = TextBox1.Text
serie_mon = TextBox2.Text
nombre_e = TextBox3.Text
nombre_u = TextBox4.Text
'Cadena de texto que tiene la sentencia SQL para consultar el usuario que se quiere loguear
oComn.CommandText = ("INSERT INTO ip(IP, Serie Pc, Serie Monitor, Nombre Equipo, Nombre Usuario) VALUES ('" & ip & "','" & serie_pc & "','" & serie_mon & "','" & nombre_e & "','" & nombre_u & "')")
'Asigna la conexion al comando de la consulta
oComn.Connection = oConn
'Ejecutar la consulta SQL
oData = oComn.ExecuteReader()
MsgBox("Producto creado")
'Cerramos a conexion a la base de datos
oConn.Close()
Catch ex As Exception
MsgBox("Ha ocurrido un error")
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ip As Char
Dim serie_pc As Char
Dim serie_mon As Char
Dim nombre_e As Char
Dim nombre_u As Char
Dim oConn As New OleDbConnection
Dim oComn As New OleDbCommand
Dim oData As OleDbDataReader
'Cadena de informaciòn para conectarse a la base de datos
oConn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=E:\Nueva carpeta\ip_query\ip_query\ip.mdb;"
Try
'Abrir base de datos
oConn.Open()
ip = ComboBox1.Text
serie_pc = TextBox1.Text
serie_mon = TextBox2.Text
nombre_e = TextBox3.Text
nombre_u = TextBox4.Text
'Cadena de texto que tiene la sentencia SQL para consultar el usuario que se quiere loguear
oComn.CommandText = ("INSERT INTO ip(IP, Serie Pc, Serie Monitor, Nombre Equipo, Nombre Usuario) VALUES ('" & ip & "','" & serie_pc & "','" & serie_mon & "','" & nombre_e & "','" & nombre_u & "')")
'Asigna la conexion al comando de la consulta
oComn.Connection = oConn
'Ejecutar la consulta SQL
oData = oComn.ExecuteReader()
MsgBox("Producto creado")
'Cerramos a conexion a la base de datos
oConn.Close()
Catch ex As Exception
MsgBox("Ha ocurrido un error")
MessageBox.Show(ex.Message)
End Try
End Sub
1 Respuesta
Respuesta de Roberto Alvarado
1