Início
![[Resolvido]Erro em código Empty](https://2img.net/i/empty.gif)
joão2017 3/10/2017, 15:31Bom dia!
Eu uso o seguinte código para adicionar dados na tabela, no access 2000, estou mudando para o 2010 e o código não funciona.
Dim rs As ADODB.Recordset (Esta linha da o erro " O tipo definido pelo usuário não foi definido")
Set cnn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "con_DetalheDoPedido", cnn, , , adCmdTable
rs.AddNew
rs("CódigoDoPedido") = codPed
rs("CódigoDoProduto") = Me.txtCódigoDoProduto
rs("Quantidade") = Me.txtQuantidade
rs("Linha") = Me.txtLinha
rs("Referência") = Me.txtReferência
rs("PreçoDeCusto") = Me.txtCusto
rs("Unidade") = Me.cmbUn
rs("DescontoMáximo") = Me.txtDescontoMáximo
rs("PreçoDeVenda") = Me.txtPreçoUnitário
rs.Update
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
Alguem tem uma idéia?
Obrigado.
Eu uso o seguinte código para adicionar dados na tabela, no access 2000, estou mudando para o 2010 e o código não funciona.
Dim rs As ADODB.Recordset (Esta linha da o erro " O tipo definido pelo usuário não foi definido")
Set cnn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "con_DetalheDoPedido", cnn, , , adCmdTable
rs.AddNew
rs("CódigoDoPedido") = codPed
rs("CódigoDoProduto") = Me.txtCódigoDoProduto
rs("Quantidade") = Me.txtQuantidade
rs("Linha") = Me.txtLinha
rs("Referência") = Me.txtReferência
rs("PreçoDeCusto") = Me.txtCusto
rs("Unidade") = Me.cmbUn
rs("DescontoMáximo") = Me.txtDescontoMáximo
rs("PreçoDeVenda") = Me.txtPreçoUnitário
rs.Update
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
Alguem tem uma idéia?
Obrigado.
Última edição por joão2017 em 3/10/2017, 16:17, editado 1 vez(es)
