Hola buenas tardes a todos, tengo un pequenio problema:
Estoy haciendo una aplicacion y necesito llenar un formulario desde vb a una tabla en access, mis campos en la tabla son:
ID_INGRESO (PK), ID_CAT_INGRESO (FK), MONTO, FECHA
MI PROBLEMA ES QUE EN EL FORMULARIO CARGO EL NOMBRE DEL INGRESO, EN VES DE ID_CAT_INGRESO, SE CAPTURA EL NOMBRE DEL INGRESO
EJEMPLO:
CAPTURAR: ID:1 , NOMBRE_INGRESO: SUELDO, MONTO:100 , FECHA: 24/2/2015
REGISTRAR EN BD: ID_INGRESO (PK), ID_CAT_INGRESO (FK), MONTO, FECHA
ESTE ES MI CODIGO QUE ME DA ERROR, ALGUNA SUGERENCIA?
GRACIAS!
Código:
Public Class Ingreso
Dim conexion As New OleDbConnection
Dim sql As New OleDbCommand
Private Sub BtnAgregar_Click(sender As Object, e As EventArgs) Handles BtnAgregar.Click
sql = New OleDbCommand("INSERT INTO INGRESO (ID_CAT_INGRESOS,MONTO,DESCRIPCION,FECHA) VALUES ((SELECT ID_CAT_INGRESOS FROM CAT_INGRESOS WHERE CmbGrupo.text = Nombre_Ingreso),TxtMonto,TxtDescripcion,FechaIngreso", conexion)
sql.Parameters.AddWithValue("@ID_CAT_INGRESOS", "SELECT ID_CAT_INGRESOS FROM CAT_INGRESOS WHERE CmbGrupo.text = Nombre_Ingreso")
sql.Parameters.AddWithValue("@MONTO", TxtMonto.Text)
sql.Parameters.AddWithValue("@DESCRIPCION", TxtDescripcion.Text)
sql.Parameters.AddWithValue("@FECHA", FechaIngreso.Value)
sql.ExecuteNonQuery()
MsgBox("Ingreso Añadido Con Exito")
End Sub