|
|
Postada em 12/10/2010 17:47 hs
Pessoal gostaria de apagar os registros que tem um mesmo codigo ID eu uso a seguinte forma pra apagar todo banco de dados mas nao consegui especificar que fosse apagado apenas os com ID especifico que ue quero 'Aqui apaga todos produtos que foram passados
Set AreaTrabalho = DBEngine.Workspaces(0)
Set XBCO = AreaTrabalho.OpenDatabase(App.Path & "Cadastro.Mdb", False, False)
query = "Select * From caixa order by codigo"
Set dyn = XBCO.CreateDynaset(query)
While Not dyn.EOF
dyn.Delete
dyn.MoveNext
Wend
XBCO.Close
|
|
|
|
|
|
|
|
Postada em 13/10/2010 10:17 hs
seria assim:
Set AreaTrabalho = DBEngine.Workspaces(0)
Set XBCO = AreaTrabalho.OpenDatabase(App.Path & "Cadastro.Mdb", False, False)
'se for o codigo alfanumerico assim
query = "Delete From caixa where codigo=' " & textcodigo.text & " ' "
'se for o codigo numerico assim
query = "Delete From caixa where codigo= " & textcodigo.text & " "
Set dyn = XBCO.CreateDynaset(query)
While Not dyn.EOF
dyn.delete
dyn.update
dyn.MoveNext
Wend
XBCO.Close
|
|
|
|
|
|
Postada em 13/10/2010 11:00 hs
Juan Carlos R.A você testou esse código."Set dyn = XBCO.CreateDynaset(query)".
|
|
|
|
|
|
Postada em 13/10/2010 11:05 hs
pq a pergunta?
|
|
|
|
|
|
Postada em 13/10/2010 11:09 hs
Olha no ado seria mais bem facil
set regtabela=cn.execute("select * from caixa where codigo=' " & textcodigo.text & " ' ")
if not regtabela.eof then
cn.execute("Delete From caixa where codigo=' " & textcodigo.text & " ' ")
regtabela.requery
endif
regtabela.close
set regtabela=Nothing
|
|
|
|
Orlando
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 13/10/2010 14:36 hs
Gostaria de saber se o seu teste saiu perfeito,porque o meu deu zebra.Se vc digitar
set dyn =XBCO.CreateDynaset(query) não da certo.E sim XBCO.CreateQueryDef.
|
|
|
|
