[Resolvido]Excluir 30 mil registros rapidamente

Bom dia a todos.

Estou executando um código simples de exclusão de registros, mas esta demorando uns 10 minutos...
teria alguma forma mais rapida para excluir os 30 mil registros?

obs. a velocidade é a mesma se for em rede ou local.
obs2 preciso reduzir este tempo para no maximo 120 segundo.

Ola;

Mostre-nos como está a fazer.

bom dia. obrigado pelo retorno.

DoCmd.SetWarnings False

strDl = "Delete * from [tbl Pedido] Where SaidaPor = 'SS' or SaidaPor = 'SO'"

DoCmd.RunSQL strDl

DoCmd.SetWarnings True

1 - Ja tentei tb abrir a tabela manualmente criar o filtro e deletar na mão.
2 - Ja tentei criar uma consulta de exclusao, mas todos demoram muito.

Olá a todos, um pitaco.
O campo SaidaPor é indexado, facilitava.
Poderá efetuar em duas etapas:

Código:

strDl = "Delete * from [tbl Pedido] Where SaidaPor = 'SS'"
strDl = "Delete * from [tbl Pedido] Where SaidaPor = 'SO'"

Alguma razão especial para o tempo de eliminação, compactar-reindexar também será saudável.
Abraço

Fiz aqui em cima do joelho um teste com 45.264 registos e deletou em 1 segundo;

Código:

Public Function teste()
Dim strDl$
Dim hInicio As Date
Dim hFim As Date
Dim hResultado As Date

hInicio = Now()
    CurrentDb.Execute "Delete * from [tbl Pedido] Where SaidaPor = 'SS' or SaidaPor = 'SO'"
hFim = Now()

hResultado = hInicio - hFim
Debug.Print hResultado
End Function

Boa tarde JPaulo.
a função foi mais rápida do que o normal, mas ainda assim demorou quase 5 minutos
mas por se tratar de um acesso ao Sql Server precisei adicionar o "[dbseechanges]".

Fiz o teste com uma tabela local diretamente no access e apagou praticamente instantaneo mesmo.

mas o problema é que com o acesso ao sql server seja local na maquina ou via rede esta demorando...

seria devido ao "[dbseechanges]"?


ahteixeira -> obrigado pela ajuda, mas também ja tentei desta forma e o tempo praticamente duplica, pois ele tem que fazer a consulta duas vezes antes de executar.

Desde a abertura deste tópico, só agora você menciona que é "Sql Server ", pois....

Sim peço desculpas... deveria ter mencionado antes toda a arquitetura...
Mas creio que agora não falta mais informações...

Peço desculpas mesmo.

Penso que não existe muito mais a melhorar.

No entanto pode fazer da forma anteriormente sugerida e ver se melhora a performance;

Código:

Public Function teste()
Dim strDl$
Dim hInicio As Date
Dim hFim As Date
Dim hResultado As Date

hInicio = Now()

CurrentDb.Execute "Delete from [tbl Pedido] Where SaidaPor = 'SS'", dbFailOnError + dbSeeChanges
CurrentDb.Execute "Delete from [tbl Pedido] Where SaidaPor = 'SO'", dbFailOnError + dbSeeChanges

hFim = Now()

hResultado = hInicio - hFim
Debug.Print hResultado
End Function

Chame a função na janela immediate e veja o tempo que regista no debug.print

?teste

Olá, uma curiosidade, de que forma é que liga o Front_end ao SQLserver projecto ADP ?
Abraço

Agradeço o retorno...
como o banco esta no sql, demora muito mesmo... ja tentei de diversas formas...

e não uma solução por enquanto.... a não ser esperar os minutos pelo menos rsrs..

Muito obrigado mesmo.

Boa tarde Avelino.
Agradeço a ajuda...

eu não sei bem se seria isso mas dentro do sql management criei uma query

Código:


use PCP2
go
delete from [tbl Pedido]
where SaidaPor = 'SS' or SaidaPor= 'SO';
go


este levou apenas 2 minutos ... achei show.
Agora não sei como chamar este script via access...
eu iria fazer agora:
chamar o comando via um .bat com este script.
estou no caminho certo?

Desde já agradeço a todos.

Muito Bom...
o video é excelente...
da para resolver o tópico...
muito obrigado.

Olá Everton, conseguiu resolver
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço a todos.

bom dia.
Consegui resolver sim....
criei a Query conforme acima, depois salvei no computador.
criei um bat que executa a Query

sqlcmd -S.\PCPEXPRESS -U user-P senha-i "NomeDaQuery.sql"

como este local usei o "S.\InstanciaDoSQLEXpress"

Olá, fica a dica.
Obrigado e abraço.