|
|
Postada em 25/05/2004 11:08 hs
Bom Dia, Preciso excluir registros de uma tabela a qual eu mostro em um dbgrid, meu problema é q essa é uma tabela auxiliar a qual tem numero da lista e codigo do funcionario, no caso eu precisaria excluir o registro do funcionario da lista. So que excluindo do dbgrid. se eu utilizo desta forma.: DBG_PARTICIPANTES.Col = 2
X = MsgBox("Confirma Exclusão?", vbYesNo)
If X = vbYes Then
DB.Execute "delete * from ATRLISIT WHERE FUNCIONARIO = '" & DBG_PARTICIPANTES.Text & "'"
End If ele me exclui todos os funcionarios de todas as listas. preciso excluir somente da lista selecionada. como posso fazer isso? Desde já agradeço a atenção dispensada. |
|
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 25/05/2004 11:45 hs
Voce teria que colocar no where o codigo da lista que voce quer excluir pois senão ele vai excluir todos os funcionarios desse codigo independente da lista. Tente isso. DB.Execute "delete * from ATRLISIT WHERE FUNCIONARIO = '" & DBG_PARTICIPANTES.Text & "' and NUMLISTA = 1" Desta forma ele ira excluir o funcionario X da lista (NUMLISTA) igual a 1. Sera isso ?
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
Mil@.net®
|
SÃO BERNARDO DO CAMPO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/05/2004 12:16 hs
Amigo esta dando o seguinte erro: Run-time error ' 3061': Parametros insuficientes. Eram esperados 1. coloquei da seguinte maneira.: VAR = TXT_NUMERO.TEXT DB.Execute "delete * from ATRLISIT WHERE FUNCIONARIO = '" & DBG_PARTICIPANTES.Text & "' and NUMERO = VAR" Será q poderia me ajudar??? |
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 25/05/2004 12:26 hs
Voce colocou o VAR dentro da string, tente assim DB.Execute "delete * from ATRLISIT WHERE FUNCIONARIO = '" & DBG_PARTICIPANTES.Text & "' and NUMERO = " & TXT_NUMERO.TEXT
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
|
|
Postada em 25/05/2004 13:40 hs
ola amigo... eu encomodando novamente! os campos na tabela de numero e funcionario são numéricos. quando coloco desta forma: DB.Execute "delete * from ATRLISIT WHERE FUNCIONARIO = " & DBG_PARTICIPANTES.Text And NUMERO = " & TXT_NUMERO.Text" ele apresenta o seguinte erro: Run-time error ' 13': Type mismatch Desculpe encomodar tanto é q estou começando e ainda tenho muitas duvida... mas mesmo assim muito obrigada por sua ajuda!!! |
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 25/05/2004 13:51 hs
Tente eliminar o que está marcado em vermelho e teste DB.Execute "delete * from ATRLISIT WHERE FUNCIONARIO = " & DBG_PARTICIPANTES.Text And NUMERO = " & TXT_NUMERO.Text" |
|
|
|
