Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

homero_troiano

Preciso de !!!

Por , em ASP Clássico

Recommended Posts

homero_troiano    0

homero_troiano
Postado

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>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito