Manter dados no AddNew

[Lucas Lima VB 0]

Olá Pessoal

 

Estou criando um sistema, com banco de dados em SQL

ja esta tudo funcionando direitinho, porem

um dos bancos de dados tem os campos Codigo (sem a auto numeração), Data, Titulo, e Edição.

Esses quatro campos, gostaria que não mudassem

quando eu apertasse o Botão Novo, com a função "MeuBanco.recordset.AddNew

que eles se mantivesse os mesmos valores

 

como faço essa Rotina?

 

desde ja agradeço

 

Abraços

[Claudio Neto 3]

Como assim, "não mudassem"?

 

Se entendi, você quer inserir um novo registro na tabela sendo que esses três dados devem ser iguais ao último registro inserido. É isso?

 

Se for, faça um select antes de fazer o add new. Guarde em variáveis os valores dos campos e depois que fizer o addnew coloque esses valores em seu campo.

 

Se não for isso, não entendi.

[Lucas Lima VB 0]

Como assim, "não mudassem"?

 

Se entendi, você quer inserir um novo registro na tabela sendo que esses três dados devem ser iguais ao último registro inserido. É isso?

 

Se for, faça um select antes de fazer o add new. Guarde em variáveis os valores dos campos e depois que fizer o addnew coloque esses valores em seu campo.

 

Se não for isso, não entendi.

 

é exatamente isso kara!

 

Brigadão mesmo... mas

tem como você me dar um exemplo da programação!?

pois sou bem iniciante, e estou aprendendo tudo sizinho na raça

lendo muito, pesquisando muito nos foruns da vida

 

não tenho ideia da programação disso

 

mas Brigadão

 

abraço

[Claudio Neto 3]

Beleza.

 

Vou me basear no fato de você já ter sua conexão pronta:

 

dim strData, strTitulo, strEdicao as string
dim iCodigo as integer

rs.open "select top 1 codigo, data, titulo, edicao From tabela order by codigo desc", cn, 3, 3 'isso pegará o último registro inserido

iCodigo = rs.fields("codigo")
strData = rs.fields("data")
strTitulo = rs.fields("titulo")
strEdicao = rs.fields("edicao")

rs.addnew

rs.fields("codigo") = iCodigo + 1
rs.fields("data") = strData
rs.fields("titulo") = strTitulo
rs.fields("edicao") = strEdicao

rs.update

Se não tiver entendido alguma coisa diz ai.

[Lucas Lima VB 0]

Beleza.

 

Vou me basear no fato de você já ter sua conexão pronta:

 

dim strData, strTitulo, strEdicao as string
dim iCodigo as integer

rs.open "select top 1 codigo, data, titulo, edicao From tabela order by codigo desc", cn, 3, 3 'isso pegará o último registro inserido

iCodigo = rs.fields("codigo")
strData = rs.fields("data")
strTitulo = rs.fields("titulo")
strEdicao = rs.fields("edicao")

rs.addnew

rs.fields("codigo") = iCodigo + 1
rs.fields("data") = strData
rs.fields("titulo") = strTitulo
rs.fields("edicao") = strEdicao

rs.update

Se não tiver entendido alguma coisa diz ai.

 

beleza Claudio! Vlw pela ajuda entendi quase lá...entretanto

 

Esses dados serão salvos em um banco Adodc

porem esses dados são "Buscados" em uma conexão data envirnment

e a Pesquisa é feita em DataGrid

e gostaria que esse AddNew, e Update ocorresse ao clicar no "Enter"

e ao clicar no "Esc" ocorresse um add new, e um Update.. porem

no add new todos os campos limparam, inclusive aqueles que estavam sendo mantidos ao pressionar "enter"

 

bom, espero ter sido claro quanto minha duvia

pois é bem confuso, mas é o que minha empresa necessita e exige

 

não repara, mas minha programação é de iniciante

estudo programação a menos de 1 mes!

seria muito bom ter contato com um profissional, para me auxiliar nesse sistema

 

desde ja obrigado pela a juda, e pelos conselhos