PROBLEMA AO DELETAR

SUPERFOR 21/07/2012 20:27:19
#406407
pessoal to com erro ao excluir um registro.. não sei como posso estar arrumando isto.




Citação:

If txtCodigo <> [Ô][Ô] Then
OP = MsgBox([Ô]DESEJA REALMENTE DELETAR ESTE REGISTRO?[Ô], vbYesNo, [Ô]ATENÇÃO[Ô])
If OP = vbYes Then
Conecta True

Dim rsDelete As ADODB.Recordset

SQL = [Ô]DELETE * FROM DIA WHERE CODIGO=[Ô] & txtCodigo
Set rsDelete = New ADODB.Recordset
rsDelete.Open SQL, Conexao, adOpenDynamic, adLockPessimistic

PF_LIMPA

Conecta False
End If
End If



alguem poderia me ajudar?

desde já agradeço.
MARCELO.TREZE 21/07/2012 20:34:54
#406409 Resposta escolhida
para o delete vc não usa o asterisco antes do from

sintaxe correta

SQL = [Ô]DELETE FROM DIA WHERE CODIGO=[Ô] & txtCodigo
SUPERFOR 21/07/2012 20:40:17
#406410
Obrigado Marcelo!!

Deu certo.
Tópico encerrado , respostas não são mais permitidas
Voltar