Atualizar Bd Com .edit

[Roberto Carvalho]

Ola sou novo no forum e também estou começando a utilizar Asp a pouco tempo e tenho uma duvida, Eu já sei com a propriedade .addnew é possível inserir dados no bd, eu gostaria de saber se pela propriedade .edit é possível fazer atualizações no mesmo?????

[JCMPJ]

Bom se você está falando sobre recordset, AddNew não é uma propriedade é um método, bem diferente. Ainda sobre recordset não existe propriedade edit e também não existe método edit.

Existe a propriedade EditMode que indica o status de edição do registro atual.

Para atualizar um registro você usa o método Update.

[]'s

[Roberto Carvalho]

A minha duvida é porque para inserir dados no meu bd eu uso o seguinte codigo:

<%

if cod<>"" and desc<>"" and valor<>"" then

Dim con2

Dim rst2

Const adOpenKeyset2 = 1

Const adLockOptimistic2 = 3

Set con2 = Server.CreateObject("ADODB.Connection")

Set rst2 = Server.CreateObject("ADODB.Recordset")

con2.Open "DBQ=" & Server.MapPath("controle.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

rst2.Open "SELECT * FROM produtos", con2, adOpenKeyset2, adLockOptimistic2

rst2.AddNew

rst2("cod")= cod

rst2("desc")= desc

rst2("valor")= valor

rst2("estoque")=estoque

rst2.Update

rst2.Close

con2.Close

end if

%>

Mais quando troco o rst2.addnew pelo rst2.edit para alterar as informações do bd da erro, será que é possível???

[JCMPJ]

Rapidamente,

Veja está linha

rst2.Open "SELECT * FROM produtos", con2, adOpenKeyset2, adLockOptimistic2

o que ela faz? Abre um recorset com todos os registros existentes na tabela produtos. Na verdade para inserir um registro você só precisa de um recordset associado a uma tabela. Uma forma bem mais eficiente de se fazer isso pode ser (Teste ai):

rst2.Open "SELECT * FROM produtos WHERE 1=2", con2, adOpenKeyset2, adLockOptimistic2

rst2.AddNew

ou mesmo

rst2.Open "produtos", con2, adOpenKeyset2, adLockOptimistic2

rst2.AddNew

Nos dois casos você vai ter um recordset vazio, pois menhum registro foi retornado (concorda que 1=2 é sempre falso), economizamos tempo e memória.

Para editar um produto, por exemplo, primeiro você deve saber que produto ou produtos você vai editar (atualizar seria um termo mais apropriado).

Uma forma pode ser, por exemplo:

rst2.Open "SELECT * FROM produtos WHERE cod = 5", con2, adOpenKeyset2, adLockOptimistic2

rst2("cod")= cod

rst2("desc")= desc

rst2("valor")= valor

rst2("estoque")=estoque

rst2.Update

pronto você editou o produto que tinha o campo cod = 5.

Testa ai e veja o que vai acontecer se você fizer:

rst2.Open "SELECT * FROM produtos", con2, adOpenKeyset2, adLockOptimistic2

rst2("cod")= cod

rst2("desc")= desc

rst2("valor")= valor

rst2("estoque")=estoque

rst2.Update

Isso vai atualizar o primeiro registro que estiver no recordset.

:blink: