MCA
|
CUIABÁ
MT - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/06/2007 15:00 hs
Pessoal boa tarde, estou com uma pequena dúvida na hora de gravar um dado na tabela. Gostaria de saber se existe alguma possibilidade de, antes de gravar, o programa fizesse uma busca na tabela para ver se já existe aquela informação que está sendo gravada, se existir, então ele só atualiza, se não, ele faz a gravação normal. Alguém poderia me ajudar com isso?
Marcel de Campos VB6/Crystal Reports
|
|
|
|
|
|
Álvaro
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/06/2007 15:23 hs
Você usa DAO, SQL ?
http://www.vbweb.com.br/dicas_visual.asp?Codigo=707&Classificacao=
Se usar DAO, pode usar o comando seek que coloquei acima, e procurar por esse campo no banco
Se usar o SQL, pode procurar pelo campo e perguntar como está o recordcount dele, se estiver zerado é sinal que não existe esse registro
exemplo
Dim Sql As Recordset
Set Sql = seubanco.OpenRecordset("select descricao,quant,valorunitario from itensprestacao where nnota=" & TxtNNota.Text & " and razao='" & CboDestinatario.Text & "'")
if sql.recordcount=0 then
msgbox "Não existe o registro"
comandos para gravar
else
comandos para editar
endif
Tiver dúvida posta ai
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
MCA
|
CUIABÁ
MT - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/06/2007 15:42 hs
Álvaro, ajudou cara! Deu certinho, esse método seek é bom que por ele procura por valores exatos. No caso de números é como uma luva. Obrigado mano! Como faço para fechar o post?
Marcel de Campos VB6/Crystal Reports
|
|
|
|
|
|
Postada em 18/06/2007 16:48 hs
No primeiro post que vc fez a pergunta tem um cadeado no pé da área de texto deste post... é só clicar lá. at+ |
|
|
|
|
