DELETAR EM VARIAS TABELAS

MARCIOLOPES1967 22/10/2013 20:25:03
#430285
Srs.,

Se alguem puder me ajudar agradeço,

Preciso deletar, por exemplo um cliente que tem um codigo, porem ele esta na tabela cliente (cadastro), compras e recebimentos, preciso que todos os registros das 3 tabelas sejam deletados , como fazer isso tentei desta forma:

Dim myCmd As New OleDb.OleDbCommand
myCmd.Connection = cn
myCmd.CommandText = [Ô]DELETE FROM clientes, compras, recebimentos WHERE codigo = [Ô] & txtcodigo.Text
myCmd.ExecuteNonQuery()

Deu erro nao funcionou, tentei desta outra forma:

Dim myCmd As New OleDb.OleDbCommand
myCmd.Connection = cn
myCmd.CommandText = [Ô]DELETE FROM clientes WHERE codigo = [Ô] & txtcodigo.Text
myCmd.ExecuteNonQuery()
Dim myCmd1 As New OleDb.OleDbCommand
myCmd1.Connection = cn
myCmd1.CommandText = [Ô]DELETE FROM compras WHERE codigo = [Ô] & txtcodigo.Text
myCmd1.ExecuteNonQuery()
Dim myCmd2 As New OleDb.OleDbCommand
myCmd2.Connection = cn
myCmd2.CommandText = [Ô]DELETE FROM recebimentos WHERE codigo = [Ô] & txtcodigo.Text
myCmd2.ExecuteNonQuery()

Tambem nao funcionou

Nao sei como fazer

Se alguem puder me ajudar???
OMAR2011 22/10/2013 23:21:17
#430287 Resposta escolhida
Mais ou menos assim.

[Ô]DELETE CLiente.* FROM (Cliente INNER JOIN Compras ON Cliente.Cod=Compras.CodCli) INNER JOIN Recebimentos ON Cliente.Cod=Recebimentos.Codcli WHERE Cliente.cod =[Ô] & txtcodigo.Text & [Ô][Ô]
MARCIOLOPES1967 23/10/2013 08:05:04
#430291
Omar,
Obrigado pela sugestao, fiz alguns ajustes na linha e funcionou

Grato.
OMAR2011 23/10/2013 08:14:57
#430292
Se foi solucionado o post,
encerre o mesmo.
Valeu.
Tópico encerrado , respostas não são mais permitidas
Voltar