USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Delete com Command
Postada em 14/7/2003 por ®ogerVB            
'Declare uma variavel: Public cmd as ADODB.Command
Dim n As Variant

n = MsgBox("Confirma a exclusão"?", vbCritical + vbYesNo, "Excluir")

If n = vbYes Then
    Cn.BeginTrans
    Set cmd = New ADODB.Command
    Set cmd.ActiveConnection = Cn
    cmd.CommandType = adCmdText
    cmd.CommandText = "Delete * from Tabela where codigo = ?"
    cmd.Parameters(0) = TxtCodigo
    cmd.Execute
    Cn.CommitTrans
    Set cmd = Nothing
End If
  
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página