ROTINA DE BUSCA
Alguem me ajuda a fazer a seguinte rotina:
Quando introduzo uma matricula de uma viatura, num Formulário,
Se essa maticula existir na BDmatriculas, no campo "matri", então,
a o campo "okmatr" da BDmatriculas, passa a <True>, se não existir,
deixa tudo como está. (não faz nada na BD).
Eu keria fazer isto automáticamente, sem me preocupar se existe ou
não a matricula.
Se alguem me puder dizer como fazer esta rotina agradeço.
Quando introduzo uma matricula de uma viatura, num Formulário,
Se essa maticula existir na BDmatriculas, no campo "matri", então,
a o campo "okmatr" da BDmatriculas, passa a <True>, se não existir,
deixa tudo como está. (não faz nada na BD).
Eu keria fazer isto automáticamente, sem me preocupar se existe ou
não a matricula.
Se alguem me puder dizer como fazer esta rotina agradeço.
bem...
vc já tem um recordset carregado? se sim, qual o nome?
vc já tem um recordset carregado? se sim, qual o nome?
Está meio sem sentido, ou é minha cabeça por já passar das 18:00 Hrs.
Você quer atualizar um campo de uma mesma tabela, de um mesmo registro ? Se ele existir ?
Favor esclarecer melhor sua necessidade.
Você quer atualizar um campo de uma mesma tabela, de um mesmo registro ? Se ele existir ?
Favor esclarecer melhor sua necessidade.
bem... pelo que eu entendi ele quer apenas atualizar o banco...
Peço desculpa de só agora responder. DESCULPEM.
mas foi-me completamente inpossivel responder.
Jean: Sim tenho um Recordset carregado chamado AdoClientes , e eu quero actualizar um
campo da mesma tabela.
Tks.
mas foi-me completamente inpossivel responder.
Jean: Sim tenho um Recordset carregado chamado AdoClientes , e eu quero actualizar um
campo da mesma tabela.
Tks.
faça assim - sem necessidade de ter o recordset carregado:
conexão.Execute "UPDATE BDMatriculas SET OkMatr=1 WHERE matri = '" & txtmatri.text & "'"
conexão.Execute "UPDATE BDMatriculas SET OkMatr=1 WHERE matri = '" & txtmatri.text & "'"
Jean:
Eu tenho uma rotina de gravar que faz o seguinte:
Private Sub gravar()
Adodc1.Recordset.UpdateBatch adAffectAllChapters
.............
End Sub
é dentro desta rotina que eu quero introduzir o que pretendo. ou seja:
Quando gravo, se a matricula existir no no campo "matri" dum registro qualquer,
então o OkMatr passa a <True>. Se não existir não faz nada. (grava simplesmente)
Tks.
Eu tenho uma rotina de gravar que faz o seguinte:
Private Sub gravar()
Adodc1.Recordset.UpdateBatch adAffectAllChapters
.............
End Sub
é dentro desta rotina que eu quero introduzir o que pretendo. ou seja:
Quando gravo, se a matricula existir no no campo "matri" dum registro qualquer,
então o OkMatr passa a <True>. Se não existir não faz nada. (grava simplesmente)
Tks.
pode colocar o comando que te passei no fim de tua rotina de gravação.
Ok. mas se eu tenho o ADODC1 carregado como faço. ????
Não posso fazer
ADODC1.Execute (não dá)
como faço ??
Não posso fazer
ADODC1.Execute (não dá)
como faço ??
ahhhhh baunnnn... ai naun sei... só uso ADO - nunca usei nada diferente...
AÃ, M_ROGER, blz ??? Nesse seu caso uma simples busca pelo recordset já não resolveria ??? Algo do tipo:
Dim msg As String
If KeyAscii = 13 Then ' Só tà ' dando um exemplo com um Enter numa caixa qquer, ok???
rscadastro.Index = "Campo"
rscadastro.Seek "=", Controle
If Not rsTABELA.NoMatch Then
msg = "O REGISTRO JÃ Â EXISTE CONFORME DESCRITO:" & Chr(13) & Chr(13)
msg = msg & "Campo: " & rsTABELA("Campo") & Chr(13)
msg = msg & "Campo1: " & rscadastro("Campo1") & Chr(13)
-------- SAI DA ROTINA DE INCLUSÃO-----------
-------- SEM MEXER NO BANCO------------
Exit Sub
End If
-------------CONTINUA COM A INCLUSÃO-------------
End If
End Sub
______________________________________________________________________
Não sei se é isso o que vc tá procurando, mas como ajudar não machuca (hehehe)
TaÃ, cara espero ter te ajudado, vlw ???
Abraço.
Dim msg As String
If KeyAscii = 13 Then ' Só tà ' dando um exemplo com um Enter numa caixa qquer, ok???
rscadastro.Index = "Campo"
rscadastro.Seek "=", Controle
If Not rsTABELA.NoMatch Then
msg = "O REGISTRO JÃ Â EXISTE CONFORME DESCRITO:" & Chr(13) & Chr(13)
msg = msg & "Campo: " & rsTABELA("Campo") & Chr(13)
msg = msg & "Campo1: " & rscadastro("Campo1") & Chr(13)
-------- SAI DA ROTINA DE INCLUSÃO-----------
-------- SEM MEXER NO BANCO------------
Exit Sub
End If
-------------CONTINUA COM A INCLUSÃO-------------
End If
End Sub
______________________________________________________________________
Não sei se é isso o que vc tá procurando, mas como ajudar não machuca (hehehe)
TaÃ, cara espero ter te ajudado, vlw ???
Abraço.
Tópico encerrado , respostas não são mais permitidas