RELACIONAMENTO ENTRE TABELAS
já cadastro o número do pedido e o nome do fornecedor, nao consigo gravar os itens q estão listado no listView...
Uma tabela é Pedido e outra é itens do pedido.
Gostaria que Qdo excluir um pedido, excluir todos os itens ref. a aquele pedido. Já Queimei a Cuca como fazer esse trem
desde já, obgrigado!!!!!!
Uma tabela é Pedido e outra é itens do pedido.
Gostaria que Qdo excluir um pedido, excluir todos os itens ref. a aquele pedido. Já Queimei a Cuca como fazer esse trem
desde já, obgrigado!!!!!!
Deve ser algo assim..
DELETE FROM table_name
flw
DELETE FROM table_name
sql = _
"DELETE" & vbCrLf & _
"from [PEDIDO] " & vbCrLf & _
"Inner Join [Itens_Pedido]" & vbCrLf & _
"on [PEDIDO].cod_pedido = [Itens_Pedido].cod_iten_ped" & vbCrLf & _
"Where codigo = " & Me.txtCodigo & ""flw
Ola,
Dependendo do banco de dados ista possibilidade jah eh encontrada no proprio BD. No Access, por exemplo, vc cria um relacionamento no banco de dados (ferramentas/relacionamentos) entre a tabela Pedido e PedidoItem do tipo (um-para-muitos), ligando-as pelo codigo ou ID provavelmente. Aih eh soh ir nas propriedades do relacionamento e marcar a opcao "Propagar exclusao dos registros selecionados". E toda vez que vc excluir um registro na tabela Pedido pelo seu programa automaticamente o engine do BD se encarrega de excluir os seus itens na tabela PedidoItem.
Tirando isso soh por comando do sistema. EX:
Repare que ID e IdPedido sao campos que se relacionam entre a tabela. Codigo em comum entre elas.
Dependendo do banco de dados ista possibilidade jah eh encontrada no proprio BD. No Access, por exemplo, vc cria um relacionamento no banco de dados (ferramentas/relacionamentos) entre a tabela Pedido e PedidoItem do tipo (um-para-muitos), ligando-as pelo codigo ou ID provavelmente. Aih eh soh ir nas propriedades do relacionamento e marcar a opcao "Propagar exclusao dos registros selecionados". E toda vez que vc excluir um registro na tabela Pedido pelo seu programa automaticamente o engine do BD se encarrega de excluir os seus itens na tabela PedidoItem.
Tirando isso soh por comando do sistema. EX:
MeuBancoDeDados.Execute "DELETE * FROM Pedido WHERE ID = 11"
MeuBancoDeDados.Execute "DELETE * FROM PedidoItem WHERE IdPedido = 11"
Repare que ID e IdPedido sao campos que se relacionam entre a tabela. Codigo em comum entre elas.
OPS.. me expressei mal..
(Gostaria que Qdo excluir um pedido, excluir todos os itens ref. a aquele pedido)
------------------------------------------------------------------
O CERTO é ASSIM:
Gostaria que Qdo incluir um Nºpedido, incluir todos os itens ref. a aquele pedido Nº de Pedido na TblIntensPedido...
(Gostaria que Qdo excluir um pedido, excluir todos os itens ref. a aquele pedido)
------------------------------------------------------------------
O CERTO é ASSIM:
Gostaria que Qdo incluir um Nºpedido, incluir todos os itens ref. a aquele pedido Nº de Pedido na TblIntensPedido...
Moreira,
muda o delete pra o seu Insert, o INNER JOIN vai continuar. Deve ser algo assim
sql = _
"DELETE" & vbCrLf & _
"from [PEDIDO] " & vbCrLf & _
"Inner Join [Itens_Pedido]" & vbCrLf & _
"on [PEDIDO].cod_pedido = [Itens_Pedido].cod_iten_ped" & vbCrLf & _
"Where codigo = " & Me.txtCodigo & ""
Tópico encerrado , respostas não são mais permitidas