APAGANDO REGISTRO COM O MESMO ID
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
[ô]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
Private Sub Cmd3_Click()
On Error GoTo Trataerro
Dim Rst As New ADODB.Recordset
If TxtCpf.Text <> [Ô][Ô] Then
If MsgBox([Ô]Tem Certeza que Deseja Excluir[Ô] & Chr(13) & [Ô]O Cliente(a) --->> [Ô] & TxtCliente.Text & [Ô] ?[Ô], vbYesNo, [Ô]Atenção[Ô]) = vbYes Then
Set Rst = New ADODB.Recordset
Sql = [Ô]Delete From Tbl_Contratos Where Id_Contrato =[ô][Ô] & LblId_Contrato.Caption & [Ô][ô][Ô]
Rst.Open Sql, Conexao
MsgBox [Ô]Cadastro Excluido com Sucesso![Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Else
MsgBox [Ô]Nao Existe Tarefa Para Excluir![Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Exit Sub
Trataerro:
MsgBox Err.Description, vbCritical, [Ô]Erro no Sistema[Ô]
End Sub
veja se te ajuda...
On Error GoTo Trataerro
Dim Rst As New ADODB.Recordset
If TxtCpf.Text <> [Ô][Ô] Then
If MsgBox([Ô]Tem Certeza que Deseja Excluir[Ô] & Chr(13) & [Ô]O Cliente(a) --->> [Ô] & TxtCliente.Text & [Ô] ?[Ô], vbYesNo, [Ô]Atenção[Ô]) = vbYes Then
Set Rst = New ADODB.Recordset
Sql = [Ô]Delete From Tbl_Contratos Where Id_Contrato =[ô][Ô] & LblId_Contrato.Caption & [Ô][ô][Ô]
Rst.Open Sql, Conexao
MsgBox [Ô]Cadastro Excluido com Sucesso![Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Else
MsgBox [Ô]Nao Existe Tarefa Para Excluir![Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Exit Sub
Trataerro:
MsgBox Err.Description, vbCritical, [Ô]Erro no Sistema[Ô]
End Sub
veja se te ajuda...
alterei pra esta forma mas nao funciona !
On Error GoTo Trataerro
Dim Rst As New ADODB.Recordset
If Codigo <> [Ô][Ô] Then
If MsgBox([Ô]Tem Certeza que Deseja Excluir[Ô]) = vbYes Then
Set Rst = New ADODB.Recordset
SQL = [Ô]Delete From caixa Where codigo =[ô][Ô] & Codigo & [Ô][ô][Ô]
Rst.Open SQL, Conexao
MsgBox [Ô]Cadastro Excluido com Sucesso![Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Else
MsgBox [Ô]Nao Existe Tarefa Para Excluir![Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Exit Sub
Trataerro:
MsgBox Err.Description, vbCritical, [Ô]Erro no Sistema[Ô]
On Error GoTo Trataerro
Dim Rst As New ADODB.Recordset
If Codigo <> [Ô][Ô] Then
If MsgBox([Ô]Tem Certeza que Deseja Excluir[Ô]) = vbYes Then
Set Rst = New ADODB.Recordset
SQL = [Ô]Delete From caixa Where codigo =[ô][Ô] & Codigo & [Ô][ô][Ô]
Rst.Open SQL, Conexao
MsgBox [Ô]Cadastro Excluido com Sucesso![Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Else
MsgBox [Ô]Nao Existe Tarefa Para Excluir![Ô], vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Exit Sub
Trataerro:
MsgBox Err.Description, vbCritical, [Ô]Erro no Sistema[Ô]
qual erro... que exibi
veja que o [Ô]Código[Ô] Carrega Alguma Informação.. ele deverá carregar o Codigo que deseja Excluir... seja duplicado ou não
O campo [Ô]codigo[Ô] é NUMéRICO ou TEXTO?
NUMéRICO
TEXTO
NUMéRICO
SQL = [Ô]Delete From caixa Where codigo = [Ô] & CodigoTEXTO
SQL = [Ô]Delete From caixa Where codigo =[ô][Ô] & Codigo & [Ô][ô][Ô]
DA ERRO COM OS DOIS = OS ARGUMENTOS SAO INCORRETOS , ESTAO FORA DO INTERVALO ACEITAVEL OU ESTAO EM CONFLITO ! esta e a mensagem !
mostre seu código..
Essa mensagem é comum qdo vc está referendo a um nome de campo diferente do que está no banco de dados.
Tome cuidado pois no banco, o nome do seu campo pode estar [Ô]Codigo[Ô] e no código está [Ô]codigo[Ô] (tudo minusculo).
Alguns bancos de dados aceitam, outros não!!
Tome cuidado pois no banco, o nome do seu campo pode estar [Ô]Codigo[Ô] e no código está [Ô]codigo[Ô] (tudo minusculo).
Alguns bancos de dados aceitam, outros não!!
ja chequei ta tudo = ?
Amigo, sinceramente, nao sei porque voces ficam instanciando essas instancias na rotina de exclusão..
veja em ADO
With Conexao
.BeginTrans
.Execute [Ô]DELETE FROM apurcomissaocattotais WHERE codigo=[ô][Ô] & txtcodigo.text
.CommitTrans
end with
em DAO
Set DB = DBEngine.OpenDatabase(caminho)
Set RS = DB.OpenRecordset([Ô]MovLigacoes[Ô], dbOpenTable)
DB.Execute ([Ô]Delete from MovLigacoes where MovOcorrencia =[ô][Ô] & txtCodigo.Text & [Ô][ô][Ô])
veja em ADO
With Conexao
.BeginTrans
.Execute [Ô]DELETE FROM apurcomissaocattotais WHERE codigo=[ô][Ô] & txtcodigo.text
.CommitTrans
end with
em DAO
Set DB = DBEngine.OpenDatabase(caminho)
Set RS = DB.OpenRecordset([Ô]MovLigacoes[Ô], dbOpenTable)
DB.Execute ([Ô]Delete from MovLigacoes where MovOcorrencia =[ô][Ô] & txtCodigo.Text & [Ô][ô][Ô])
Tópico encerrado , respostas não são mais permitidas