VERIFICAR REGISTRO EXISTENTE NO BD
Boa tarde amigos!
Na hora de gravar o registro, preciso saber se já existe um determinado registro no BD, como devo fazer?
Ex.:
If tabtarefas("n_tarefa") = txtnumtarefa.text then
msgbox"Esta tarefa já existe!"
else
tabtarefas("n_tarefa") = txtnumtarefa.text
end if
So q nao esta verificando nada... estou fazendo errado?
Alguem teria algum exemplo pra me fornecer por favor?
Abraços.
Na hora de gravar o registro, preciso saber se já existe um determinado registro no BD, como devo fazer?
Ex.:
If tabtarefas("n_tarefa") = txtnumtarefa.text then
msgbox"Esta tarefa já existe!"
else
tabtarefas("n_tarefa") = txtnumtarefa.text
end if
So q nao esta verificando nada... estou fazendo errado?
Alguem teria algum exemplo pra me fornecer por favor?
Abraços.
AMigo,
Vc vai ter q fazer um select na tabela passando como where a tarefa, então caso seja BOF ou EOF vc grava a nova
Vc vai ter q fazer um select na tabela passando como where a tarefa, então caso seja BOF ou EOF vc grava a nova
Sim, mas como faço isso... poderia me dar um exemplo, por favor?
Vlw!
Vlw!
Lembrando que o campo é texo... aceita numeros e letras.
Vlw
Vlw
DIm rs as new ADODB.Recordset
'Pega o dados e joga em um recordser
rs = "Select * from tblTarefas where n_tarefa like '%" txtnumTarefas.text "%'", Conexao, 3
'Depois desse select vc faz a verificação
if rs.EOF = true then
'Grava a tarefa porque nao existe a outra
else
msgbox("Atarefa já existe!),vbCritical, app.title
end if
'Pega o dados e joga em um recordser
rs = "Select * from tblTarefas where n_tarefa like '%" txtnumTarefas.text "%'", Conexao, 3
'Depois desse select vc faz a verificação
if rs.EOF = true then
'Grava a tarefa porque nao existe a outra
else
msgbox("Atarefa já existe!),vbCritical, app.title
end if
nao ta dando certo assim!
Alguem por favor!
Alguem por favor!
Amigo como vc faz a conexao ? e qual banco vc usa?
Qual banco de dados?
faço a conexao assim:
Set PrK = OpenDatabase(App.Path & "\dados.Mdb")
Set TabTarefas = PrK.OpenRecordset("Select * From Tarefas")
Set PrK = OpenDatabase(App.Path & "\dados.Mdb")
Set TabTarefas = PrK.OpenRecordset("Select * From Tarefas")
Use o método FIND do recordset...
Algo como
Algo como
TabTarefas.Find("Argumentos da busca")
A consulta estou conseguindo fazer, o q nao estou conseguindo é a validaçao dos dados....
eu preciso saber se a tarefa ja existe, caso sim, retorne um mensagem para o usuario informando q a tarefa ja existe, e nao grava no BD, caso nao exista, grava o registro no BD.
VLW!
eu preciso saber se a tarefa ja existe, caso sim, retorne um mensagem para o usuario informando q a tarefa ja existe, e nao grava no BD, caso nao exista, grava o registro no BD.
VLW!
Tópico encerrado , respostas não são mais permitidas