Preciso digitar 9,90 no preço do produto

[heitor_of_mg 0]

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)[Microsoft][Driver ODBC para Microsoft Access] Número de valores da consulta e campos de destino não coincidem./dreamweaver8/inserir.asp, line 115Boa tarde pessoal...Estão vendo esta mensagem no topo? É o problema que estou tendo.Vamos lá... Estou com um formulário feito no DW em ASP, e usando BD Access. Montei o formulário e em seguida usei o Server Behaviors INSERT RECORD.Funciona? Quase.Notei que no campo chamado Preço (preco). Se eu digitar um número redondo tipo 30, 35, etc... ele grava normal na tabela do banco. Só que se eu digito um número com casas decimais (tipo 20,40) ele devolve o erro que eu colei no topo deste POST.O que estar acontecendo?Alguém, por gentileza pode me ajudar.por via das dúvidas vai o código da página abaixo:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/conexao.asp" --><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)End If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_insert")) = "inserir") Then MM_editConnection = MM_conexao_STRING MM_editTable = "produtos" MM_editRedirectUrl = "produtos1.asp" MM_fieldsStr = "produto|value|preco|value|cod_tipo|value|obs|value" MM_columnsStr = "produto|',none,''|preco|none,none,NULL|cod_tipo|none,none,NULL|obs|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End IfEnd If%><%' *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End IfEnd If%><%Dim tiposDim tipos_numRowsSet tipos = Server.CreateObject("ADODB.Recordset")tipos.ActiveConnection = MM_conexao_STRINGtipos.Source = "SELECT * FROM tipo"tipos.CursorType = 0tipos.CursorLocation = 2tipos.LockType = 1tipos.Open()tipos_numRows = 0%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><form ACTION="<%=MM_editAction%>" METHOD="POST" id="inserir" name="inserir">Produto:<label> <input name="produto" type="text" id="produto" /> </label> <p>Preço:<label> <input name="preco" id="preco" type="text" /> </label> </p> <p>Tipo: <label> <select name="cod_tipo" id="cod_tipo"> <%While (NOT tipos.EOF)%> <option value="<%=(tipos.Fields.Item("cod_tipo").Value)%>"><%=(tipos.Fields.Item("tipo").Value)%></option> <% tipos.MoveNext()WendIf (tipos.CursorType > 0) Then tipos.MoveFirstElse tipos.RequeryEnd If%> </select> </label> </p> <p>Obs.: <label> <br /> <textarea name="obs" id="obs"></textarea> </label> </p> <p> <label> <input type="submit" name="Submit" value="Submit" /> </label> </p> <input type="hidden" name="MM_insert" value="inserir"></form></body></html><%tipos.Close()Set tipos = Nothing%>

[grasi 0]

Já tentou mudar o tipo do campo que grava o número no banco de dados?que tal varchar

[heitor_of_mg 0]

E como eu faço isso no Access. MySQL eu sei fazer mas no Access não. Podes me dar mais uma dica?Obrigadão.

[Giovani 104]

Vou deixar um link com o pessoal de Access também, quem sabe eles ajudem você!

[]´s http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Superwagtel 1]

heitor_of_mg

 

Tudo é bem simples, abre a tabela e lá em cima à esquerda tem uma régua verde "exibir" , você clica nela e na linha de preços onde você quer que receba os valores em (R$00,00) e muda de texto para moeda

Salva e volta para o site pra conferir.

Não esqueça que no campo de texto do formulário do site onde serão inseridos os valores deve estar configurado para receber ou atualizar texto

 

Valeu?