ATUALIZACAO DE BANCO DE DADOS
Ola amigos
Estou usando um campo com o AutoIncremento mo Access.
Acontece que em um certo momento, eu preciso jogar o valor desse campo
para uma variavel de memoria, pois preciso desse valor para usa-lo em outra rotina.
Entao eu executo o comando Update, que atualiza a informacao na base de dados.
Ate ai tudo bem, porem eu nao consigo pegar o valor do campo do AutoIncremento, pois sempre
me e retornado o valor "0" .
Faco Assim.
rscmdAux!TBPED_DATA = Format(dtpInc.Value, "DD/MM/YYYY") '& " " & Format(Now, "HH:MM:SS")
rscmdAux!TBPED_VALOR = CDbl("0" & LblTotal.Caption)
rscmdAux!TBCLI_ID = cboRemetente.ItemData(cboRemetente.ListIndex)
rscmdAux.Update
str_IdPedido = rscmdAux!TBPED_ID (Campo de Autoincremento)
O campo do Autoincremento e salvo perfeitamente na base de dados, ocorre esse pequeno problema.
Obs.
No SQL e MySQL, essa mesma rotina funciona perfeitamente, orem deve haver alguma particularidade
para o Access.
Alguem ja teve esse problema?
Obrigado
BOM
COLOCQUE ESTA VARIÃ ÂVEL ANTES DO UPDATE
str_IdPedido = rscmdAux!TBPED_ID
E VERIFIQUE C REALMENTE O REGISTRO ESTA SENDO ALTERADO NOS CAMPOS Q VC DEFINIU, CASO NAUM ? POSTA SEU CÓ“DIGO ONDE VC FILTRA OS DADOS
ESPERO TER AJUDADO
COLOCQUE ESTA VARIÃ ÂVEL ANTES DO UPDATE
str_IdPedido = rscmdAux!TBPED_ID
E VERIFIQUE C REALMENTE O REGISTRO ESTA SENDO ALTERADO NOS CAMPOS Q VC DEFINIU, CASO NAUM ? POSTA SEU CÓ“DIGO ONDE VC FILTRA OS DADOS
ESPERO TER AJUDADO
Obrigado Fabio
Nao posso colocar antes do UPdade, porque o campo e de Autoincremento e o valor para rscmdAux!TBPED_ID , sera gerado apenas apos o Update.
Aqui esta o meu codigo.
rscmdAux.Open strSelect, envPanal.cnn_Panal, adOpenKeyset, adLockOptimistic
If rscmdAux.EOF Then
rscmdAux.AddNew
End If
rscmdAux!TBPED_DATA = Format(dtpInc.Value, "DD/MM/YYYY") '& " " & Format(Now, "HH:MM:SS")
rscmdAux!TBPED_VALOR = CDbl("0" & LblTotal.Caption)
rscmdAux!TBCLI_ID = cboRemetente.ItemData(cboRemetente.ListIndex)
rscmdAux!TBCID_ID = Str_IdCid
rscmdAux.Update
str_IdPedido = rscmdAux!TBPED_ID (Retorna o calor "0", quando deveria retornar o valor criado
pelo Autoincremento)
rscmdAux.Close
Obrigado e um Abraço
Nao posso colocar antes do UPdade, porque o campo e de Autoincremento e o valor para rscmdAux!TBPED_ID , sera gerado apenas apos o Update.
Aqui esta o meu codigo.
rscmdAux.Open strSelect, envPanal.cnn_Panal, adOpenKeyset, adLockOptimistic
If rscmdAux.EOF Then
rscmdAux.AddNew
End If
rscmdAux!TBPED_DATA = Format(dtpInc.Value, "DD/MM/YYYY") '& " " & Format(Now, "HH:MM:SS")
rscmdAux!TBPED_VALOR = CDbl("0" & LblTotal.Caption)
rscmdAux!TBCLI_ID = cboRemetente.ItemData(cboRemetente.ListIndex)
rscmdAux!TBCID_ID = Str_IdCid
rscmdAux.Update
str_IdPedido = rscmdAux!TBPED_ID (Retorna o calor "0", quando deveria retornar o valor criado
pelo Autoincremento)
rscmdAux.Close
Obrigado e um Abraço
BOM , NAUM TINHA VISTO TUA QUESTÃO POR COMPLETO PELO Q VC PASSOU NA QUESTÃO PARECIA Q VC QUERIA ERA ATUALIZAR REGISTRO E NAUM ACRESCENTAR REGISTRO
TENTA COM ESSA FUNÇÃO
INSERT INTO TABCLIENTE (CLI_CTIPO) VALUES ('FÃ ÂSICA')
[txt-color=#ffff00]SELECT DISTINCT @@IDENTITY FROM TABCLIENTE; [/txt-color]
ESPERO TER AJUDADO
TENTA COM ESSA FUNÇÃO
INSERT INTO TABCLIENTE (CLI_CTIPO) VALUES ('FÃ ÂSICA')
[txt-color=#ffff00]SELECT DISTINCT @@IDENTITY FROM TABCLIENTE; [/txt-color]
ESPERO TER AJUDADO
Tópico encerrado , respostas não são mais permitidas