COMO DELETAR REGISTRO DUPLICADO
gostaria de saber se tem como deletar arquivos com o mesmo nome
tenho uma tabela acess 97
meu form em vb6 gera as parcelas 30/ 60/ 90
quero deletar nota 1001 ae geral 3 parcelas com a mesma nota queria deletar todas as tre de uma vez alguem sabe me explicar como fazer isso por favor
tenho uma tabela acess 97
meu form em vb6 gera as parcelas 30/ 60/ 90
quero deletar nota 1001 ae geral 3 parcelas com a mesma nota queria deletar todas as tre de uma vez alguem sabe me explicar como fazer isso por favor
Delete from tabela where nota = [ô]1001[ô]
O legal é você colocar outra condição, como a data por exemplo.
O legal é você colocar outra condição, como a data por exemplo.
vc pode me passar detalhado como usar
nao entendi muito bem como fazer
meu codigo de pesquisa
On Error GoTo trata
Connect
rs.Open [Ô]SELECT * FROM caixa WHERE OSN Like [ô][Ô] & TxtPesq.Text & [Ô]%[ô][Ô], CON, adOpenStatic, adLockOptimistic
Do While Not rs.EOF
On Error GoTo TrataErro01
List1.AddItem rs.Fields(1).Value
TrataErro01:
If Err.Number = 94 Then
[ô] MsgBox [Ô]Erro de Conversão de Letra para Número ![Ô]
End If
List1.ListIndex = List1.ListIndex + 1
rs.MoveNext
Loop
nao entendi muito bem como fazer
meu codigo de pesquisa
On Error GoTo trata
Connect
rs.Open [Ô]SELECT * FROM caixa WHERE OSN Like [ô][Ô] & TxtPesq.Text & [Ô]%[ô][Ô], CON, adOpenStatic, adLockOptimistic
Do While Not rs.EOF
On Error GoTo TrataErro01
List1.AddItem rs.Fields(1).Value
TrataErro01:
If Err.Number = 94 Then
[ô] MsgBox [Ô]Erro de Conversão de Letra para Número ![Ô]
End If
List1.ListIndex = List1.ListIndex + 1
rs.MoveNext
Loop
fiz dessa forma deu certinho vleu
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\cadasro de clientes\dados\dados.mdb[Ô]
cnn.Execute [Ô]Delete from caixa where osn = [ô][Ô] & TxtPesq.Text & [Ô][ô][Ô]
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\cadasro de clientes\dados\dados.mdb[Ô]
cnn.Execute [Ô]Delete from caixa where osn = [ô][Ô] & TxtPesq.Text & [Ô][ô][Ô]
ou apenas
rs.Open [Ô]Delete from tabela where nota = [ô][Ô] & & TxtPesq.Text & [Ô][ô][Ô], CON, adOpenStatic, adLockOptimistic
Eu sempre acrescento a data, porque quando as notas eram A1, tinham um numero
Quando começou a eletronica, voltou ao numero 1 as notas
Ai começou a misturar, nota 1001 de 2009 com a nota 1001 de 2012
Ai minha solução foi usar a SéRIE, A1 e 55 (eletronica)
Ai não deleta as duplicatas antigas e atuais, deleta só a que é do ano corrente
NUMERONFV = IIF(NOT TXTNUMERONFV.TEXT=[Ô][Ô],TXTNUMERONFV.TEXT,0)
SERIENFE = IIF(NOT TXTSERIENFE.TEXT=[Ô][Ô],TXTSERIENFE.TE,[Ô]55[Ô])
PESQUISA = [Ô]DELETE * FROM Duplicatas WHERE NUM_NFV=[Ô] & NUMERONFV
PESQUISA = PESQUISA & [Ô] AND SER_NFE=[ô][Ô] & SERIENFE & [Ô][ô][Ô]
DB_FIN.EXECUTE PESQUISA
Quando começou a eletronica, voltou ao numero 1 as notas
Ai começou a misturar, nota 1001 de 2009 com a nota 1001 de 2012
Ai minha solução foi usar a SéRIE, A1 e 55 (eletronica)
Ai não deleta as duplicatas antigas e atuais, deleta só a que é do ano corrente
NUMERONFV = IIF(NOT TXTNUMERONFV.TEXT=[Ô][Ô],TXTNUMERONFV.TEXT,0)
SERIENFE = IIF(NOT TXTSERIENFE.TEXT=[Ô][Ô],TXTSERIENFE.TE,[Ô]55[Ô])
PESQUISA = [Ô]DELETE * FROM Duplicatas WHERE NUM_NFV=[Ô] & NUMERONFV
PESQUISA = PESQUISA & [Ô] AND SER_NFE=[ô][Ô] & SERIENFE & [Ô][ô][Ô]
DB_FIN.EXECUTE PESQUISA
Tópico encerrado , respostas não são mais permitidas