|
|
Postada em 27/09/2005 11:03 hs
Pessoal estou com a seguinte duvida tenho uma tabela no access que cria uma
sequencia de registro com o mesmo numero, mas no modo select eu consigo
apagar somente o primeiro registro, alguem sabe usar um metodo para apagar
todos os registro com o mesmo numero..
ex..
tabela - contas
codigo sequencia material
1 1 chave de fenda
1 2 chave de fenda
2 1 alicate
no meu metodo so apaga o primeiro atraves do select codigo like '1'
a sequencia 2 fica na tabela ainda, como faço para apagar o codigo 1 todas as
sequencias?
Obrigado
Roberto
|
|
|
|
|
|
|
|
Postada em 27/09/2005 11:42 hs
Eu não entendi a sua pergunta... Você quer apagar todos os registros onde tiver 1 ou no código ou na sequencia.. é isso?
Gustavo Boese
|
|
|
|
|
|
Postada em 27/09/2005 11:49 hs
Set rc = db.OpenRecordset("SELECT DISTINCT cli_for.cpf_cnpj, cli_for.cod_cli From cli_for ORDER BY cli_for.cod_cli")
rc.MoveMax
rc.MoveMin
While Not rc.EOF
ProgressBar1.Value = rc.PercentPosition
slv_text = "Select cod_cli from cli_for where cli_for.cpf_cnpj='" & rc!cpf_cnpj & "' order by cod_cli"
Set rc2 = db.OpenRecordset(slv_text)
rc2.MoveNext
While Not rc2.EOF
slv_text = "set cod_cli=" & CDbl(rc!cod_cli) & " where cod_cli=" & CDbl(rc2!cod_cli)
db.Execute ("Update caixa " & slv_text)
db.Execute ("Update carta_correcao " & slv_text)
db.Execute ("Update cli_for_log " & slv_text)
db.Execute ("Update cli_for_lote " & slv_text)
db.Execute ("Update cli_for_placa " & slv_text)
db.Execute ("Update kardex " & slv_text)
db.Execute ("Update mensalidade " & slv_text)
db.Execute ("Update nf " & slv_text)
db.Execute ("Update nf_entrada " & slv_text)
db.Execute ("Update pedido " & slv_text)
Set rc3 = db.OpenRecordset("Select * from preco_especial where cod_cli=" & CDbl(rc!cod_cli) & " Order by produto")
While Not rc3.EOF
Set rc4 = db.OpenRecordset("Select * from preco_especial where cod_cli=" & CDbl(rc2!cod_cli) & " and produto='" & Trim(rc3!produto) & "'")
If Not rc4.EOF Then
rc4.Delete
End If
rc3.MoveNext
Wend
db.Execute ("Update preco_especial " & slv_text)
db.Execute ("Update produto " & slv_text)
db.Execute ("Update vendedor " & slv_text)
ilv_cod_cli = CDbl(rc2!cod_cli)
rc2.MoveNext
db.Execute ("Delete * from cli_for where cod_cli=" & ilv_cod_cli)
Wend
rc.MoveNext
Wend
neste caso eu estou tirando clientes duplicados, adapte-se
"Quando estou fraco, aí então é que sou Poderoso"
|
|
|
|
|
|
Postada em 27/09/2005 13:21 hs
Delete * From Tabele Where codigo = 1 dica: sempre antes de executar a instrução delete, use o select e verifique se está retornando exatamente o que você deseja deletar ... |
|
|
|
