Hola a todos necesito una ayuda con unas consultas.

Tengo dos tablas relacionadas articulos y productos

Art_id, Art_Nombre, Art_Descripcion , Cat_Id

Cat_Id, Cat_Nombre, Cat_Descripcion


El problema es que en el formulario de las Categorias tengo un boton de eliminar las Categorias.

Código:

        Try

            comando = New OleDbCommand("delete from Categorias where  Cat_Id= " & TextBox3.Text, conexion)
            comando.ExecuteNonQuery()

            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""

        Catch ex As Exception
            MsgBox("Se ha producido el siguiente error: " + ex.Message, _
                      MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
        End Try

Lo que quiero hacer es que el boton de eliminar me compruebe si tengo articulos asignados a esta categoria.
=> Si no Tiene elimina Categoria
=> si Tiene MsgBox("No se puede eliminar la Categoria Porque Tiene Articulos Asignados")

No se si me Explique.

Si están relacionados en la base de datos, al definir la foreing key puedes decir qué hacer al eliminar un elemento de la tabla de origen (no permitir eliminar, eliminar en cascada (elementos relacionados en la tabla enlazada)...)

La otra opción es que hagas una query para obtener elementos de la segunda tabla relacionados con el registro de la primera, y si la query te devuelve resultadoos, entonces mostrar el msgbox

Saludos

Iniciado por nereo.lopez

Si están relacionados en la base de datos, al definir la foreing key puedes decir qué hacer al eliminar un elemento de la tabla de origen (no permitir eliminar, eliminar en cascada (elementos relacionados en la tabla enlazada)...)

La otra opción es que hagas una query para obtener elementos de la segunda tabla relacionados con el registro de la primera, y si la query te devuelve resultadoos, entonces mostrar el msgbox

Saludos

Hermano la segunad opción es la que quiero hacer

como sería el codígo para comprobar ?

estaba pendando si es con una variable que me cuente los registros (count)

Podrias hacer una funcion que devuelva verdadero o falso, algo asi

Public Function ListarArticulos(IdCat as integer) as boolean

Aca iría todo lo necesario para conectar a la base de datos y despues...

dim comando as new sqlcommand(select * from articulos where idCat=@idcat)

dim paramId as new sqlparameter("@idcat", IdCat)
comando.parameters.add(paramId)

dim reader as sqldatareader

reader = comando.executereader

if reader.read then
return TRUE
Else
Return false

end function


Entocnes despues cuando quieres hacer la eliminacion, antes de ejecutar la sentencia para eliminar pones:

if ListarArticulos=True then messagebox.show("no puedes borrar porque tiene articulos"
else
comando.executenonquery (esto ejecutaria el comando borrar)



Espero que lo entiendas cualquier cosa avisame.

Saludos

Iniciado por mbisurgi

Podrias hacer una funcion que devuelva verdadero o falso, algo asi

Public Function ListarArticulos(IdCat as integer) as boolean

Aca iría todo lo necesario para conectar a la base de datos y despues...

dim comando as new sqlcommand(select * from articulos where idCat=@idcat)

dim paramId as new sqlparameter("@idcat", IdCat)
comando.parameters.add(paramId)

dim reader as sqldatareader

reader = comando.executereader

if reader.read then
return TRUE
Else
Return false

end function


Entocnes despues cuando quieres hacer la eliminacion, antes de ejecutar la sentencia para eliminar pones:

if ListarArticulos=True then messagebox.show("no puedes borrar porque tiene articulos"
else
comando.executenonquery (esto ejecutaria el comando borrar)



Espero que lo entiendas cualquier cosa avisame.

Saludos

Gracias Hermano pro tu ayuda lo hice de la siguiente manera:

Código:

        Try

            Dim tabla2 As DataTable
            adaptador = New OleDbDataAdapter("select * from Articulos  where Cat_Id= " & TextBox3.Text, conexion)
            tabla2 = New DataTable
            adaptador.Fill(tabla2)


            If tabla2.Rows.Count > 0 Then
                MessageBox.Show("No se puede Eliminar la Categoria porque tiene Articulos Asignados.", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Sub
            End If


            If MessageBox.Show("Desea eliminar el Registro", "Advertencia", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1) = DialogResult.Cancel Then
                Exit Sub
            End If

            comando = New OleDbCommand("delete from Categorias where  Cat_Id= " & TextBox3.Text, conexion)
            comando.ExecuteNonQuery()

            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""

        Catch ex As Exception
            MsgBox("Se ha producido el siguiente error: " + ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
            Exit Sub
        End Try