Gabriel Souza
-
Total de itens
3 -
Registro em
-
Última visita
Sobre Gabriel Souza
Gabriel Souza's Achievements
0
Reputação
-
Mesmo depois de fazer isso, a página continua dando o mesmo erro, e na mesma linha. Sinceramente estou ficando louco e não consigo saber o que acontece.
-
Valeu Rafael, não tinha pensado nisso, mas o pior está no fato da linha 60 (onde supostamente está o erro) ser essa = quantcx2 = quantcx + qt '(Essa é a linha 60) Parece que ele não está conseguindo trazer os valores e somar mas enfim, estou meio enferrujado com programação ASP por isso vim pedir o HELP Aqui. Vlw pela ajuda até agora vou mudar a tratativa do where e like.
-
Boa tarde Galera. Estou montando um sistema para gerenciar o estoque da empresa via web, o estou com um problema pois quando chega um novo produto quer fazer o update e para isso tenho um form que ficou assim: <br><body> <p><form action="estoque.asp" method="POST" class="form"> <p align="center"><br> <font color="#000000" size="4" face="Georgia, Times New Roman, Times, serif"><em><strong>Cód: </strong></em></font> <input name="codi" type="text" id="cod" size="8"> <p align="center"><font color="#000000" size="4" face="Georgia, Times New Roman, Times, serif"><em><strong>Descrição Produto:</strong></em></font> <input type="text" name="produto" size="75"> <p align="center"><font color="#000000" size="4" face="Georgia, Times New Roman, Times, serif"><em><strong>Quantidade Cx. : <input name="quantcx" type="text" id="quantcx" size="5"> </strong></em></font> <p align="center"><em><strong><font color="#000000" size="4" face="Georgia, Times New Roman, Times, serif">Quantidade Unid. : <input name="quantun" type="text" id="quantun" size="8"> </font></strong></em> <p align="center"> <input type="submit" name="Submit" value="Inserir"> <br> </form> Depois disto quero pegar o valor do item que já tenho em estoque e somar com o valor fornecido pelo form, para ter a quantidade real de produtos que terão no estoque abaixo segue o código asp: '<% ' Vamos abrir a conexão: Set con = Server.CreateObject("ADODB.Connection") con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("estoque.mdb")&";" ' Recuperando variavel e fazendo a inserção: cod = Request.Form("cod") quantun = request.form("quantun") quantcx = request.form("quantcx") Set rst = Server.CreateObject("ADODB.Recordset") set quantcx2 = Server.CreateObject("ADODB.Recordset") set quantun2 = Server.CreateObject("ADODB.Recordset") Set qt = Server.CreateObject("ADODB.Recordset") Set unid = Server.CreateObject("ADODB.Recordset") SQL = "Select * from estoque where codproduto LIKE '%" & cod & "%'" SQL2 = " Select cx from estoque where codproduto LIKE '%" & cod & "%'" SQL3 = " Select cx from estoque where codproduto LIKE '%" & cod & "%'" rst.open SQL, con qt.open SQL2, con unid.open SQL3, con quantcx2 = quantcx + qt '(Essa é a linha 60) quantun2 = quantun + unid If not rst.EOF Then do while not rst.EOF strSQL = "UPDATE estoque(cx, unid) set ('" & quantcx2 & "','" & quantun2 & "') where codproduto LIKE '%" & cod & "%'" con.execute strSQL response.write "ITEM INCLUÍDO COM SUCESSO!" rst.movenext quant.movenext unid.movenext loop else response.write "Houve um erro na inserção." end if %>' ´ Mas sempre apresente a seguinte mensagem de erro: Microsoft VBScript runtime error '800a000d' Type mismatch /estoque.asp, line 60 Já não sei mais o que fazer. Estou no aguardo. E agradeço a atenção desde já OBS: Meu banco de dados é access (infelizmente)