Código
Private Sub btn_Borrar_Modelo_Borrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Borrar_Modelo_Borrar.Click Dim id_marc As Integer ' consulta para asignar el Id_Marca Dim dtadapterMarca As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT Id_Marca FROM Marcas WHERE Marcas.Marca='" & cbb_Marca_Marcas_Borrar.Text & "'", conexion_access) Dim dtsMarca As New DataSet dtadapterMarca.Fill(dtsMarca, "Marcas") For Each Fila As DataRow In dtsMarca.Tables("Marcas").Rows id_marc = Fila("Id_Marca") Next ' los MsgBox los coloco para ver que me guarda en cada variable MsgBox("id_marca: " & id_marc) MsgBox("Marca: " & cbb_Marca_Marcas_Borrar.Text) MsgBox("modelo: " & cbb_Modelo_Marcas_Borrar.Text) Dim dtadapterModelo As New OleDb.OleDbCommand("DELETE FROM Modelos WHERE Modelos.Descripción='" & cbb_Marca_Marcas_Borrar.Text & "' AND Id_Marca=" & id_marc & "", conexion_access) ' abro la conexion dtadapterModelo.Connection.Open() dtadapterModelo.ExecuteNonQuery() MessageBox.Show("El modelo se ha borrado correctamente", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information) Limpiar_TextBox(cbb_Marca_Marcas_Borrar.Text, cbb_Modelo_Marcas_Borrar.Text) 'cierro la conexion dtadapterModelo.Connection.Close() End Sub
Espero que me puedan ayudar,
Saludos