Resgatar ID ?

[Leandro Diniz 0]

Amigos, preciso da ajuda de vcs !

 

 

Estou desenvolvendo um sistema onde tenho que gravar uma primeira parte dos dados em uma tabela (tabela1) e na sequencia resgatar o ID gravado na (tabela1) para gravar outros dados em outra tabela(tabela2).

 

Obs.: Pensei em dar um SELECT MAX(id) logo depois da gravação, mais ai vem a duvida ! como o sistema tera varios usuarios trabalhando simultaneamente eu nao correria o risco de um usuario resgatar o ID do outro ?

 

Alguem poderia me dar uma dica de como fazer ?

 

Grato

 

Leandro

[Marcelo Barcellos 0]

Use os métodos do recorset

Exemplo

ObRs.Open "NomeDaTabela",objConexao,1,3,2ObjRs.AddNewObjRs("Campo1") = Campo1ObjRs("Campo2") = Campo2Objrs.Update '----Nesse momento a tabela será atualizaMeuID = ibjRs("MeuID") '----Aqui recupera-se o ID autonuméricoobjrs.CloseobjConexao.CloseResponse.write MeuID

Assim, eu garanto que não haverá como você ter problemas.

[jrcardozo 4]

tem algum dado digitdo no for que pode ser chave primaria?se não tem, á possibilidade de fazer o seguinte....crie um campo na tabela para receber a data e hora do cadastro, depois execute um select igualando todos os campos do form, inclusive o novo campo com data e hora do cadastro, o retorno será sua chave primaria......neste caso diminui o erro, veja bem, DIMINUI, pois se dois usuarios cadastrarem na mesma data,hora,minuto e segundo os mesmos dados vai dar erro. Mas tá ai uma possibilidade de solução pois a coincidencia teria que ser enorme. Se o o cadastro é feito apenas por usuarios cadastrados, inclua na data e hora do cadastro o ID do usuario, ai diminuirá mais ainda a possibilidade de erro