essa rotina nao funciona

como faço para deletar varios registro de uma só vez

 

Dim strempresa As String
strempresa = InputBox("Digite o Código da Empresa", "Consultando EmpresaIf strdata1 adonavega.RecordSource = ""
        adonavega.CommandType = adCmdText
     adonavega.RecordSource = "Delete * from notas  where  empresa = '" & strempresa & "'

adonavega.Refresh
End If

end sub

 

desde ja obrigado

Dim strempresa As String
 
 strempresa = InputBox("Digite o Código da Empresa", "Consultando Empresa"
 if strempresa = "" then
  exit sub
 end if
 if isnumeric(strempresa) = false then
  msgbox "Código Inválido.",vbcritical,"Empresas"
  exit sub
 end if
 adonavega.RecordSource = "select * from notas  where  empresa = '" & strempresa & "'"
  adonavega.Refresh
 if adonavega.recordset.eof = false then
  do while not adonavega.recorset.eof
   adonavega.recordset.delete
   adonavega.recordset.movenext
  loop
 else
  msgbox "Não existem registros para esta empresa.",vbinformation,"Deletar"
 End If
 'obs.: se o campo empresa for numérico:
 'adonavega.RecordSource = "select * from notas  where  empresa = " & cdbl(strempresa)
 'naõ testei mas acho que é isso se nã funfar poste aí ou se quiser me mande
 'o projeto que eu ajeito pra vc.
 'T+

Entendi

 

só q faço uma consulta q me retorna 5 mil registros como faço

faço para deletar todos eles de uma só vez.?

DIM deletar as new adodb.connection
dim strempresa as string

'access
deletar.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:WINDOWSDesktopdados.mdb;Persist Security Info=False"
'preste atenção no caminho do banco de dados,neste caso seria c:windowsdesktopdados.mdb
strempresa = InputBox("Digite o Código da Empresa", "Consultando Empresa"
 if strempresa = "" then
  exit sub
 end if
 if isnumeric(strempresa) = false then
  msgbox "Código Inválido.",vbcritical,"Empresas"
  exit sub
 end if
deletar.execute "delete from notas where empresa = " & cdbl(strempresa)

'se for sqlserver poste ai que eu te mando a string de conexão

 

'veja se funfa

Aí Elmo,

Vc pode Setar uma Variavel Connection ou Command e fazer

 

sSql = "Delete * from notas  where  empresa = '" & strempresa & "'"

adoConnection.Execute (sSql)