ese es el pantallazo azul que me sale en mi equipo!!!
espero que me puedan ayudar a solucionar el error.
Saludos
espero que me puedan ayudar a solucionar el error.
Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
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
Dim dtadapterModelo As New OleDb.OleDbCommand("DELETE FROM Modelos WHERE Descripción='" & cbb_Marca_Marcas_Borrar.Text & "' AND Id_Marca=" & cbb_Modelo_Marcas_Borrar.Text, conexion_access)