Error con sentencia Insert en Access desde Visual 6.0
Publicado por ricardo (2 intervenciones) el 11/12/2014 22:54:29
tengo el siguiente codigo para guardar datos en mi base de datos pero cuando lo ejecuto me da el error de sintaxis en la sentencia insert into. alguien que me pueda ayudar
Private Sub btn_grabar_Click()
Dim comando As New Command
conexion.Provider = "Microsoft.Jet.OLEDB.4.0"
conexion.Properties("Data Source") = App.Path & "\BaseGrado.mdb"
conexion.Open
comando.CommandType = adCmdText
comando.CommandText = "Insert Into Usuario(id,password,tipo) Values('" & txt_usuario.Text & "','" & txt_password.Text & "','" & txt_tipo.Text & "')"
comando.ActiveConnection = conexion
comando.Execute
MsgBox "Usuario Creado con Exito", vbInformation, "Usuario"
conexion.Close
End Sub
Private Sub btn_grabar_Click()
Dim comando As New Command
conexion.Provider = "Microsoft.Jet.OLEDB.4.0"
conexion.Properties("Data Source") = App.Path & "\BaseGrado.mdb"
conexion.Open
comando.CommandType = adCmdText
comando.CommandText = "Insert Into Usuario(id,password,tipo) Values('" & txt_usuario.Text & "','" & txt_password.Text & "','" & txt_tipo.Text & "')"
comando.ActiveConnection = conexion
comando.Execute
MsgBox "Usuario Creado con Exito", vbInformation, "Usuario"
conexion.Close
End Sub
Valora esta pregunta
0