Jump to content

[Resolvido] Actualização de campos do Access


Helio13

Recommended Posts

Boa tarde!

Gostava de saber se alguém me poderia ajudar numa questão...

Eu estou a fazer transferencia de dados do access para o mysql (campo a campo com o recordset) e criei dois campos na tabela do access (Transferido e Erro) e queria que quando estou a fazer o update de inserção do mysql, se o registo foi inserido ele actualizava o campo "Transferido" que está por defeito como Não para Sim, e se ocorresse algum erro na transferencia ele guardava o erro desse registo na coluna "Erro"...??

Tudo isto através de VB

Alguém me pode ajudar??

Obrigado e cumprimentos

Link to comment
Share on other sites

  • 1 year later...

Helio,

Porque nao fazes uma consulta e transferes todos os registos, em que o campo transferido seja igual a false

ou entao :

Dim db as database

dim rst as recordset

Set rst = CurrentDb.OpenRecordset("SELECT * FROM MinhaTabela WHERE Transferido = False;")

Do While Not RST.EOF

RST.moveFirst

' Aqui adicionas os registos tabela sql

RST("Transferido") = True 'aqui alteras o campo Transferido para nao ser transferido da proxima vez

RST.Update

DoEvents

RST.MoveNext

Loop

RST.Close

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.