Realizar un INSERT a una base de datos de Access
Publicado por iLdara (1 intervención) el 23/08/2011 10:09:57
Estoy haciendo un programa en Visual.Net y quiero escribir en unos campos de una base de datos de Access He probado a hacerlo de varias maneras, pero no consigo dar con ello, al hacer el INSERT, me da error. El código es el siguiente:
Private Sub Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Guardar.Click
Try
If swError = False Then
'obtenemos el id que corresponde
Dim Id As Integer = devolverId()
Dim Cmd As OleDb.OleDbCommand
Dim SQL As String
Dim objCmd As New OleDb.OleDbCommand
Dim Con=NewOleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Users\clientes\bdclientes.accdb;Persist Security Info=False")
SQL = "INSERT INTO clientes (cl_nombre, cl_apellidos) VALUES ('" & tNombre.Text & "','" & tApellidos.Text & "' )" Cmd = New OleDb.OleDbCommand(SQL, Con)
Con.Open()
objCmd = New OleDb.OleDbCommand(SQL, Con)
objCmd.ExecuteNonQuery()
Con.Close()
End If
Catch ex As Exception
MsgBox("Se ha producido un error y los datos no han sido guardados.")
End Try
End Sub
He probado poniendo todos los campos después de VALUES y sin los de antes entre parentesis. No se, he probado de todo y soy capaz.
Me da error al hacer el ExecuteNonQuery()
A ver si me podeis echar una mano,
Gracias por adelantado
Private Sub Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Guardar.Click
Try
If swError = False Then
'obtenemos el id que corresponde
Dim Id As Integer = devolverId()
Dim Cmd As OleDb.OleDbCommand
Dim SQL As String
Dim objCmd As New OleDb.OleDbCommand
Dim Con=NewOleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Users\clientes\bdclientes.accdb;Persist Security Info=False")
SQL = "INSERT INTO clientes (cl_nombre, cl_apellidos) VALUES ('" & tNombre.Text & "','" & tApellidos.Text & "' )" Cmd = New OleDb.OleDbCommand(SQL, Con)
Con.Open()
objCmd = New OleDb.OleDbCommand(SQL, Con)
objCmd.ExecuteNonQuery()
Con.Close()
End If
Catch ex As Exception
MsgBox("Se ha producido un error y los datos no han sido guardados.")
End Try
End Sub
He probado poniendo todos los campos después de VALUES y sin los de antes entre parentesis. No se, he probado de todo y soy capaz.
Me da error al hacer el ExecuteNonQuery()
A ver si me podeis echar una mano,
Gracias por adelantado
Valora esta pregunta


0