|
|
|
|
|
|
|
|
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
|
|
|
|
|
