Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal...
Estou com um problema para gravar números no banco de dados, estou trabalhando com um banco Access que possui as seguinte tabela:
Tbl_prodcotacao: Dentro dessa tabela tenho os campos:
Nome do Campo Tipo de dados
Lib_codigo Numeração Automática
Per_codigo Número
Pro_codigo Número
Lib_quantidade Número
Lib_unMedida Texto
Bom o que acontece é que quando tento gravar uma cotação ocorre o seguinte erro:
Microsoft OLE DB Provider for ODBC Drivers erro '80040e07'
[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.
/novoteste/valida_cadastra_prod_cotacao.asp, line 26
Quando eu mudo os campos da tabela para texto, funciona normal, mas preciso que sejam gravados como números.
Imaginei que teria que converter as informações em numero antes de gravar, mas o que fiz não tenho certeza se esta certo.
Alguém pode me ajudar??? Segue abaixo o codigo...
<!--#include file="conexao.asp"-->
<!--#include file="seguranca_admin.asp"-->
<%
Per_codigo = request.Form("periodo")
Pro_codigo = request.Form("produto")
Lib_quantidade = request("Lib_quantidade")
Lib_unMedida = request("Lib_unMedida")
Per_codigo = Cint(Per_codigo)
Pro_codigo = Cint(Pro_codigo)
Lib_quantidade = Cint(Lib_quantidade)
SQL = "Select * from tbl_prodcotacao where Pro_codigo = '" &Pro_codigo& "'"
SQL2 = "Insert Into tbl_prodcotacao(Per_codigo, Pro_codigo, Lib_quantidade, Lib_unMedida) Values('"&Per_codigo&"','"&Pro_codigo&"','"&Lib_quantidade&"','"&Lib_unMedida&"')"
Set RS = conexao.execute(SQL)
if RS.EOF <> true then
Response.Redirect "erro_cadprod_cotacao.asp?N="&Pro_codigo&"&E="&Lib_quantidade&""
else
conexao.execute(SQL2)
Response.Redirect "ok_cad_prod_cotacao.asp?N="&Pro_codigo&"&E="&Lib_quantidade&""
end if
'fecha a tal da conexão
conexao.close
set conexao = nothing
set bd = nothing
%>
Alguém pode me ajudar.
Carregando comentários...