Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Sou iniciante em programação e naum estou conseguindo fazer um programa para cadastro de produtos. Estou usando access2000 no win98 com pws, existe algum impecilio?Quando cadastro um produto novo dá um erro dizendo que eu passei mais dados do que o esperado, só quando é produto novo...Na minha tabela (produtos) está setado o campo ID como autoincremental como devo proceder na implementação?<%sub AbreConexaoconst camDados = "c:\emarketing\emarketing.mdb"set conEmarketing = Server.CreateObject("ADODB.Connection")conEmarketing.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & camDadosend subsub FechaConexaoconEmarketing.closeset conEmarketing = nothingend sub%>----------------------------------------<html><head><link rel="stylesheet" href="estilo1.css" type="text/css"><meta http-equiv="Content-Language" content="pt-br"><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>Inclusão de Produtos</title></head><body><h1>Cadastro de Produtos</h1><form method="POST" action="inserir.asp"> <table border="0" width="100%" cellpadding="0" cellspacing="0"> <tr> <td width="22%">Código do produto:</td> <td width="78%"><input type="text" name="produtoId" size="8" maxlength="8"></td> </tr> <tr> <td width="22%">Nome:</td> <td width="78%"><input type="text" name="nome" size="20" maxlength="20"></td> </tr> <tr> <td width="22%">Categoria:</td> <td width="78%"><input type="text" name="nome" size="20" maxlength="20"></td> </td> </tr> <tr> <td width="22%">Valor:</td> <td width="78%"><input type="text" name="valor" size="13" maxlength="13"></td> </tr> <tr> <td width="22%">Descrição:</td> <td width="78%"><textarea rows="2" name="S1" cols="62"></textarea></td> </tr> <tr> <td width="22%"></td> <td width="78%"></td> </tr> <tr> <td width="22%"></td> <td width="78%"> <input type="submit" value="Gravar" name="B1"> <input type="reset" value="Limpar" name="B2"></td> </tr> </table></form></body></html>---------------------------------------------------<%OPTION EXPLICIT%><!--#Include file="conexao.inc"--><%DIM conEmarketing, rsInserir, rsSQL, strINS, strSQL, var_produtoId, Var_nome, Var_categoria, Var_valorVar_nome = TRIM(Request.Form("nome"))Var_valor = Request.Form("valor")Var_categoria = TRIM(request.form("categoria"))strINS = "INSERT INTO Produtos"strINS = strINS &"(nome, valor, categoria)"strINS = strINS &"VALUES('"&Var_nome&"',"strINS = strINS &"'"&Var_categoria&"',"strINS = strINS &Var_valor&")"strSQL = "SELECT nome FROM PRODUTOS WHERE nome = '"&Var_nome&"'"CALL abreConexaoSET rsSQL = conEmarketing.Execute(strSQL)%><html><head>Inserindo PRODUTOS</head><body><%IF NOT rsSQL.EOF THENResponse.Write"<font face='verdana' size='3' color='red'><b>O produto: "&Var_nome& " já está cadastrado.</font></b><br>"ELSESET rsInserir = conEmarketing.Execute(strINS)Response.Write"O produto: "&Var_nome& " foi cadastrado com sucesso."END IFrsSQL.closeCALL fechaConexaoSET rsSQL = NOTHINGSET rsInserir = NOTHING%></body></html>Carregando comentários...