Alguien me puede ayudar a solucionar este error?????

Hola a todos, quiero borrar un registro de la base de datos, pero me da un error en el ExecuteNomQuery y dice: "No se han especificado valores para algunos de los parámetros requeridos.", os pongo el código que he realizado haber si me pueden ayudar.

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

Hola a todos, estoy realizando un DELETE en sql pero me da error, la consulta es:

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)
 

cbb_Marca_Marcas_Borrar.Text  es texto
cbb_Modelo_Marcas_Borrar.Text es numero

y en el error me dice: "No se han especificado valores para algunos de los parámetros requeridos"

Tablas

Marcas                                   Modelos
Id_Marca                                Id_Modelo
Marca                                     Descripcion
                                              Id_Marca


Saludos

ok gracias

hola a todos, me gustaría saber si el posible mostrar un fichero ".doc, .pdf, ..." es decir, no texto plano en un RichTextBox??

o tendría que abrirlo?? si es esto lo que tendría que hacer, que pasos tendría que seguir?

Saludos

es verdad, no he puesto el código para modificar el registro, el código que he utilizado para actualizar el registro es el siguiente:

Private Sub btn_Borrar_Cliente_Modificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Modificar_Cliente_Modificar.Click
        Dim id_cl As Integer
        Dim Nombre_cl, Apellidos_cl, DNI_cl, Poblacion_cl, Domicilio_cl, Telefono_cl, Correo_cl As String
        Dim i As Integer
        Dim DNI_Buscar As String
 
        ' almaceno el valor del DNI en un TextBox oculto
        DNI_Buscar = txt_DNI_Cli_Modificar_Oculto.Text
 
        For i = 0 To ClientesTableAdapter.GetData.Rows.Count - 1
            id_cl = ClientesTableAdapter.GetData.Rows(i).Item(0)
            Nombre_cl = ClientesTableAdapter.GetData.Rows(i).Item(1)
            Apellidos_cl = ClientesTableAdapter.GetData.Rows(i).Item(2)
            DNI_cl = ClientesTableAdapter.GetData.Rows(i).Item(3)
            Poblacion_cl = ClientesTableAdapter.GetData.Rows(i).Item(4)
            Domicilio_cl = ClientesTableAdapter.GetData.Rows(i).Item(5)
            Telefono_cl = ClientesTableAdapter.GetData.Rows(i).Item(6)
            Correo_cl = ClientesTableAdapter.GetData.Rows(i).Item(7)
 
            ' si el DNI que ha introducido existe
            If DNI_Buscar = DNI_cl Then
                grb_Modificar_Clientes.Enabled = True
                Nombre_cl = txt_Nombre_Cli_Modificar.Text
                Apellidos_cl = txt_Apellidos_Cli_Modificar.Text
                DNI_cl = txt_DNI_Cli_Modificar.Text
                Poblacion_cl = txt_Poblacion_Cli_Modificar.Text
                Domicilio_cl = txt_Domicilio_Cli_Modificar.Text
                Telefono_cl = txt_Telefono_Cli_Modificar.Text
                Correo_cl = txt_Correo_Cli_Modificar.Text
 
                ' Actualizo el cliente
                ClientesTableAdapter.Update(txt_Nombre_Cli_Modificar.Text, txt_Apellidos_Cli_Modificar.Text,
                                            txt_DNI_Cli_Modificar.Text, txt_Poblacion_Cli_Modificar.Text,
                                            txt_Domicilio_Cli_Modificar.Text, txt_Telefono_Cli_Modificar.Text,
                                            txt_Correo_Cli_Modificar.Text,
                                            id_cl, Nombre_cl, Apellidos_cl, DNI_cl,
                                            Poblacion_cl, Domicilio_cl, Telefono_cl, Correo_cl)
                MessageBox.Show("Cliente modificado", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                Limpiar_TextBox(txt_Nombre_Cli_Modificar.Text, txt_Apellidos_Cli_Modificar.Text,
                                            txt_DNI_Cli_Modificar.Text, txt_Poblacion_Cli_Modificar.Text,
                                            txt_Domicilio_Cli_Modificar.Text, txt_Telefono_Cli_Modificar.Text,
                                            txt_Correo_Cli_Modificar.Text)
 
                grb_Modificar_Clientes.Enabled = False
                btn_Buscar_Cliente_Modificar.Enabled = True
                btn_Cancelar_Cliente_Modificar.Enabled = False
                btn_Modificar_Cliente_Modificar.Enabled = False
                Exit Sub
            End If
        Next
    End Sub
 

Saludos

Hola a todos, quiero realizar una actualización a un registro que elijo de una base de datos, pero no me lo actualiza bien, me gustaría saber en que parte del código me he equivocado.

os dejo el código

    Private Sub btn_Buscar_Cliente_Modificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Buscar_Cliente_Modificar.Click
        Dim id_cl As Integer
        Dim Nombre_cl, Apellidos_cl, DNI_cl, Poblacion_cl, Domicilio_cl, Telefono_cl, Correo_cl As String
        Dim i As Integer
        Dim DNI_Buscar As String
 
        ' pido por pantalla que introduzca el DNI del cliente que queremos buscar
        DNI_Buscar = InputBox("Introduce el DNI del cliente a buscar", "Cliente a buscar")
 
        ' almaceno el valor del DNI en un TextBox oculto
        txt_DNI_Cli_Modificar_Oculto.Text = DNI_Buscar
 
        For i = 0 To ClientesTableAdapter.GetData.Rows.Count - 1
            id_cl = ClientesTableAdapter.GetData.Rows(i).Item(0)
            Nombre_cl = ClientesTableAdapter.GetData.Rows(i).Item(1)
            Apellidos_cl = ClientesTableAdapter.GetData.Rows(i).Item(2)
            DNI_cl = ClientesTableAdapter.GetData.Rows(i).Item(3)
            Poblacion_cl = ClientesTableAdapter.GetData.Rows(i).Item(4)
            Domicilio_cl = ClientesTableAdapter.GetData.Rows(i).Item(5)
            Telefono_cl = ClientesTableAdapter.GetData.Rows(i).Item(6)
            Correo_cl = ClientesTableAdapter.GetData.Rows(i).Item(7)
 
            ' compruebo que ha introducido algun DNI
            If DNI_Buscar = "" Then
                MessageBox.Show("No ha introducido ningun DNI, introduzca alguno", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
 
            ' si el DNI que ha introducido existe
            If DNI_Buscar = DNI_cl Then
                grb_Modificar_Clientes.Enabled = True
                txt_Nombre_Cli_Modificar.Text = Nombre_cl
                txt_Apellidos_Cli_Modificar.Text = Apellidos_cl
                txt_DNI_Cli_Modificar.Text = DNI_cl
                txt_Poblacion_Cli_Modificar.Text = Poblacion_cl
                txt_Domicilio_Cli_Modificar.Text = Domicilio_cl
                txt_Telefono_Cli_Modificar.Text = Telefono_cl
                txt_Correo_Cli_Modificar.Text = Correo_cl
                MessageBox.Show("Cliente encontrado", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
                MessageBox.Show("Modifique los valores que desee", "Modificar", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                'grb_Modificar_Clientes.Enabled = False
                btn_Buscar_Cliente_Modificar.Enabled = False
                btn_Modificar_Cliente_Modificar.Enabled = True
                btn_Cancelar_Cliente_Modificar.Enabled = True
                Exit Sub
            End If
 
            ' comprobamos si el DNI introducido existe
            If DNI_Buscar <> DNI_cl Then
            Else
                MessageBox.Show("El DNI que ha introducido no existe", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
        Next
    End Sub
 

Saludos

el error que me da al ejecutar la aplicación me la da en esa consulta y dice lo siguiente:
      No se puede agregar o cambiar el registro porque se necesita un registro relacionado en la tabla 'Clientes'

Este es otro error, os comento lo que quiero realizar y a continuación os pongo la consulta que he realizado para ello:
     - quiero que en el combo1 tengo el nombre de los clientes y quiero conseguir es el Id_Venta.
      codigo que yo he realizado:
         
Código
          "SELECT Ventas.Id_Ventas FROM Ventas WHERE Ventas.Id_Cliente IN (SELECT Clientes.Id_Cliente FROM Clientes WHERE Clientes.Nombre='" & cbb_Cod_Venta_Instalacion_ins.Text & "')"
 
                  El ultimo combo es el nombre del cliente

Las tablas son las siguientes:
Clientes                       Insatlaciones                    Ventas
Id_Cliente                        Id_Instalacion                   Id_Ventas
Nombre                            Descripcion                       Fecha_Venta
Apellidos                           ......                                 ..........
DNI                                  Id_Venta                          Id_Stock
.......                                 Id_Empleado                    Id_Empleado
                                                                               Id_Cliente

que utilidad tiene itendata??

es que no la verdad es que no la conozco y como se utiliza???