APAGAR
Olá pessoal será q alguem pode me ajudar olhem só a minha duvida:
Eu tenho um banco de dados que tem em seu cadastro algumas datas, eu gostaria que o eu clicar num botão ele procure por estes campos e identifique os que tem datas antigas (tipo datas de 1 Mês atras), e apaga-se este registro automatico.
Será q alguem ja passou por algum problema assim???
Desde ja agradeço Brigaduuuuuuuuuuuu...
Eu tenho um banco de dados que tem em seu cadastro algumas datas, eu gostaria que o eu clicar num botão ele procure por estes campos e identifique os que tem datas antigas (tipo datas de 1 Mês atras), e apaga-se este registro automatico.
Será q alguem ja passou por algum problema assim???
Desde ja agradeço Brigaduuuuuuuuuuuu...
coloque assim:
if text1.text<date then
data1.recordset.delete
end if
finalize o topico
if text1.text<date then
data1.recordset.delete
end if
finalize o topico
conexao.execute "DELETE FROM NomeDaTabela WHERE CampoData < #" & (now - 31) & "#"
automaticamente estará excluindo todos os registros com data menor que 31 dias atras.
automaticamente estará excluindo todos os registros com data menor que 31 dias atras.
Descupe a minha ignorancia mas o q seria o execute neste codigo
A conexao seria o data né?
Valeu!!!
A conexao seria o data né?
Valeu!!!
vc define uma conexão e um recordset, certo? seria a conexão (direto com o banco)
Se você estiver usando DAO faça como a nossa colega FORMIGINHA disse.
Se for ADO faça como o nosso colega JEAN disse.
Dica:
Baixe algumas apostilas ou leia alguns artigos disponiveis aqui mesmo no Forum, para entender melhor como funcionam os comandos de DAO, ADO e SQL.
Boa sorte,
Se for ADO faça como o nosso colega JEAN disse.
Dica:
Baixe algumas apostilas ou leia alguns artigos disponiveis aqui mesmo no Forum, para entender melhor como funcionam os comandos de DAO, ADO e SQL.
Boa sorte,
Blz valeu galera pela força...
Só mais uma pergunta!
E seu eu quiser que ele apague a penas alguns campos não todo o registro?
Pode isto???
Brigaduuuuuuuuuuu
Só mais uma pergunta!
E seu eu quiser que ele apague a penas alguns campos não todo o registro?
Pode isto???
Brigaduuuuuuuuuuu
bem...
alguns campos do mesmo registro? então não é delete... é update... basta dar um update setando os campos para null
alguns campos do mesmo registro? então não é delete... é update... basta dar um update setando os campos para null
Desculpa pessoal mais no meu projeto da erro no "Execute" o q pode ser:
Este codigo abaixo e o que estou sando será q tem algum problema nele:
Data1.Execute "DELETE FROM Teste WHERE Data < #" & (Now - 31) & "#"
Brigaduuuuuuuuuuuuu
Este codigo abaixo e o que estou sando será q tem algum problema nele:
Data1.Execute "DELETE FROM Teste WHERE Data < #" & (Now - 31) & "#"
Brigaduuuuuuuuuuuuu
no caso.. vc usa o DATA do vb... então ao inves de usar o comando execute,.. tente o RecordSource...ficaria assim:
Data1.RecordSource = "DELETE FROM Teste WHERE Data < #" & (Now - 31) & "#"
Data1.refresh
Não use o objeto Data, ele é muito ruim...
Vá até a aba de ferramentas, clique com o botão direito e selecione "Components"
Dentre a lista selecione o item "Microsoft ADO Data Control 6.0"
Depois coloque esta sub no botão que quizer.
Private Sub btnRemove_Click()
Dim local as String
Dim con as ADODB.Connection
local = "c:\banco.mdb" 'Este é o local do banco .MDB
set con = new ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & local & ";Persist Security Info=False"
con.execute "DELETE FROM Teste WHERE Data < #" & (Now - 31) & "#"
set con = nothing
End sub
Espero que tenha entendido o códio
Vá até a aba de ferramentas, clique com o botão direito e selecione "Components"
Dentre a lista selecione o item "Microsoft ADO Data Control 6.0"
Depois coloque esta sub no botão que quizer.
Private Sub btnRemove_Click()
Dim local as String
Dim con as ADODB.Connection
local = "c:\banco.mdb" 'Este é o local do banco .MDB
set con = new ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & local & ";Persist Security Info=False"
con.execute "DELETE FROM Teste WHERE Data < #" & (Now - 31) & "#"
set con = nothing
End sub
Espero que tenha entendido o códio
Tópico encerrado , respostas não são mais permitidas