AJUDA EM MUDANCA DE DAO PARA ADO
Olá amigos,
Eu tenho um programa feito em DAO, e estou refazendo o programa utilizando ADO.
Estou com um problema no código
Eu tenho uma tela de entrada de produtos no estoque, eu fazia o seguinte em DAO:
Eu buscava os produtos cadastrados numa combo e digitava o valor de entrada no estoque na caixa de texto: txtestoque, e automaticamente o novo valor era gravado na tabela produtos.
fazia da seguinte forma:
vproduto.Seek [Ô]=[Ô], Mid(Combo1, 1, 3)
vproduto.Edit
vproduto!estoque = txtestoque.Text
vproduto.Update
E o método .seek da erro em ADO.
Como eu faço agora via ADO?
Grato
Eu tenho um programa feito em DAO, e estou refazendo o programa utilizando ADO.
Estou com um problema no código
Eu tenho uma tela de entrada de produtos no estoque, eu fazia o seguinte em DAO:
Eu buscava os produtos cadastrados numa combo e digitava o valor de entrada no estoque na caixa de texto: txtestoque, e automaticamente o novo valor era gravado na tabela produtos.
fazia da seguinte forma:
vproduto.Seek [Ô]=[Ô], Mid(Combo1, 1, 3)
vproduto.Edit
vproduto!estoque = txtestoque.Text
vproduto.Update
E o método .seek da erro em ADO.
Como eu faço agora via ADO?
Grato
LEANDRO_BUENO você não vai mais poder usar SEEK, use uma query de SQL ... exemplo simples de como usar mais procura na net como usar ADO com SQL que vc vai acar bastante coisa .. vai ver que assim apesar de inicio parecer mais complicado ... usar o SQL e uma mão na roda...
Dim Re As ADODB.Recordset
Dim sSQL As String
sSQL = [Ô]select * from TABELA[Ô]
sSQL = sSQL & [Ô] where CAMPO = CONDICAO
Set Re = CN.Execute(sSQL)
If Not Re.EOF Then
end if
Dim Re As ADODB.Recordset
Dim sSQL As String
sSQL = [Ô]select * from TABELA[Ô]
sSQL = sSQL & [Ô] where CAMPO = CONDICAO
Set Re = CN.Execute(sSQL)
If Not Re.EOF Then
end if
Como você está usando ADO, então abra a conexão que aqui estou chamando de Cnn
insira uma variável string:
Para gravar:
insira uma variável string:
Dim Sql as stringPara gravar:
sql = [Ô]Update NomeDaTabela Set Estoque=[ô][Ô]
sql = sql & TxtEstoque.Text & [Ô][ô] [Ô]
sql = sql & [Ô]Where Codigo=[ô][Ô] & Mid(Combo1, 1, 3) & [Ô][ô][Ô]
Cnn.Execute sql
Realmente amigos, via sql é uma mão na roda.
obrigado pela ajuda.
ROBIU, deu certinho a sua instrução SQL, obrigado.
obrigado pela ajuda.
ROBIU, deu certinho a sua instrução SQL, obrigado.
Tópico encerrado , respostas não são mais permitidas