Ir para conteúdo

POWERED BY:

Arquivado

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

kika

em ASP para inserir dados no Access

Por , em ASP Clássico

Recommended Posts

Mário Monteiro    179

Mário Monteiro
Postado

mas nao esta mais dando nenhum erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

kika    0

kika
Postado

Erro não, agora ele insere no BD. O problema agora é exibir na tela a Tabela da maneira que postei anteriormente.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mas no banco estão todos os dados das tres colunas??Se sim como está este trecho do codigo que exibe os dados?

Compartilhar este post

Link para o post
Compartilhar em outros sites

kika    0

kika
Postado

No meu BD tenho uma tabela com 3 campos, são eles:

O campo TAMANHO, é preenchido com (1,2,3,4,6,8,10) e os campos INICIAL e VENDA são vazios para preenchimento do usuário na tela.

 

Código onde tenho o Form teste.asp

 

<!-- #include file="db.asp" --><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><div align="left">  <form action="insere2.asp" method="post" name="Form" id="Form">	<table width="273" border="1" align="left" cellpadding="2" cellspacing="0">	  <%	   Dim iPageSize	   'Numero de colunas na página Dim iPageCount	  'O número de páginas que iremos retornar' Dim iPageCurrent	'A página que queremos exibir' Dim strParam		'Passando parametro Dim strSQL		  'comando SQL ' Dim iRecordsShown   'Loop controller for displaying just iPageSize records' Dim I			   'Standard looping var' iPageSize = 8 'Número de Produtos a serem exibidos por página na Tabela' Build SQL String using the parametersstrSQL = "SELECT tamanho FROM produtos"' Criando e abrindo a conexão		     Set Conn = Server.CreateObject("ADODB.Connection")  Conn.Open ConString    Set rsProdInfo = Server.CreateObject("ADODB.Recordset")'  rsProdInfo.PageSize = iPageSize'  rsProdInfo.CacheSize = iPageSize  rsProdInfo.Open strSQL, Conn	  %>	  <tr>		<td width="102" align="center" valign="middle" bgcolor="#ff9900"><div align="center"><font color="#ffffff" face="Verdana" size="2"><strong>TAMANHO</strong></font></div></td>		<td width="69" align="center" valign="middle" bgcolor="#ff9900"><div align="center"><font color="#ffffff" face="Verdana" size="2"><strong>INICIAL</strong></font></div></td>		<td width="82" align="center" valign="middle" bgcolor="#ff9900"><div align="center"><font color="#ffffff" face="Verdana" size="2"><strong>VENDA</strong></font></div></td>	  </tr>	  <%	  ' iRecordsShown = 0' Do While iRecordsShown < iPageSize And Not rsProdInfo.EOF		  	  %>	  <tr bgcolor="7f4200">		<td align="center" valign="middle" bgcolor="#FFF0E1"><div align="center"><font face="Verdana" size="1" color="#ff9900"><b><%= rsProdInfo("tamanho")%></b></font></div></td>		<td align="center" valign="middle" bgcolor="#FFF0E1"><font face="Verdana" size="1" color="#A63600"><b>		  		  <input name="inicial" type="text" id="inicial" size="5" />		</a></b></font></td>		<td align="center" valign="middle" bgcolor="#FFF0E1"><font face="Verdana" size="1" color="#A63600"><b>		  <input name="venda" type="text" id="venda" size="5" />		</a></b></font></td>	  </tr>	  <%  '	iRecordsShown = iRecordsShown + 1  '	rsProdInfo.MoveNext  '	Loop	    rsProdInfo.Close  set rsProdInfo = Nothing	  Conn.Close set Conn = Nothing			  	    %>	</table>	<p> </p>	<p>	  	  <input name="inserir" type="submit" value="inserir"/>		</p>  </form></div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Kika beleza?

você sumiu, mas beleza! hauhauh

 

db.asp

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("teste.mdb")Conexcao.open%>
teste.asp

<!-- #include file="db.asp" --><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><div align="left">  <form action="insere.asp" method="post" name="Form" id="Form">	<table width="273" border="1" align="left" cellpadding="2" cellspacing="0">	  <%	  'Dim iPageSize	   'Numero de colunas na página'Dim iPageCount	  'O número de páginas que iremos retornar'Dim iPageCurrent	'A página que queremos exibir'Dim strParam		'Passando parametro'Dim strSQL		  'comando SQL 'Dim iRecordsShown   'Loop controller for displaying just iPageSize records'Dim I			   'Standard looping var'iPageSize = 9 'Número de Produtos a serem exibidos por página na Tabela' Build SQL String using the parametersSQL = "SELECT * FROM produtos"Set rs = Conexcao.Execute(SQL)	  %>	  <tr>		<td width="102" align="center" valign="middle" bgcolor="#ff9900"><div align="center"><font color="#ffffff" face="Verdana" size="2"><strong>TAMANHO</strong></font></div></td>		<td width="69" align="center" valign="middle" bgcolor="#ff9900"><div align="center"><font color="#ffffff" face="Verdana" size="2"><strong>INICIAL</strong></font></div></td>		<td width="82" align="center" valign="middle" bgcolor="#ff9900"><div align="center"><font color="#ffffff" face="Verdana" size="2"><strong>VENDA</strong></font></div></td>	  </tr>	  <%	  		'iRecordsShown = 0		'Do While iRecordsShown < iPageSize And Not rs.EOF		  'SHUMI mudei para While		While not rs.EOF			  %>	  <tr bgcolor="7f4200">		<td align="center" valign="middle" bgcolor="#FFF0E1"><div align="center"><font face="Verdana" size="1" color="#ff9900"><b><%= rs("tamanho")%></b></font></div></td>		<td align="center" valign="middle" bgcolor="#FFF0E1"><font face="Verdana" size="1" color="#A63600"><b>		 <input name="inicial" type="text" id="inicial" size="5" />		</a></b></font></td>		<td align="center" valign="middle" bgcolor="#FFF0E1"><font face="Verdana" size="1" color="#A63600"><b>		  <input name="venda" type="text" id="venda" size="5" />		<!-- SHUMI inserir o codigo do produto para gravação no banco -->  		  <input name="produto" id="produto" type="hidden" value="<%=rs("codproduto")%>">						</a></b></font></td>	  </tr>	  <%	  'iRecordsShown = iRecordsShown + 1	  rs.MoveNext	  'Loop	  Wend	 rs.Close  ' rsProdInfo.Close		set rs = Nothing		  		Conexcao.Close		set Conexcao = Nothing			  	  	%>	</table>	<p> </p>	<p>	  	  <input name="inserir" type="submit" value="inserir"/>		</p>  </form></div></body></html>
insere.asp

<!-- #include file="db.asp" --><html><body><%'Resgato as informações digitadasinicial = Request.Form("inicial")venda = Request.Form("venda")produto = Request.Form("produto")' SHUMI aqui faço o Split você usa ele para "tirar" determinados caracteres ou valores ex. produto, ", "  ai produto é a variavel'e você ta passando a virgula como parametro.produtoo = Split(produto, ", ")iniciall = Split(inicial, ", ")vendaa = Split(venda, ", ")'aqui você ta fazendo o For para pegar todos os valores das variaveis separadosFor A = LBOUND(produtoo) To UBOUND(produtoo)'os Ifs estou debugando para que se o user deixar em branco algum campo não quebre a matriz e não exiba erroIF produtoo(A) <> "" Thenproduto = produtoo(A)Elseproduto = "0"End IFIF vendaa(A) <> "" Thenvenda = vendaa(A)Elsevenda = "0"End IFIF iniciall(A) <> "" Theninicial = iniciall(A)Elseinicial = "0"End IF' insere no banco	  SQL = "INSERT INTO valores (inicial,venda,produto) VALUES ('"& inicial &"','"& venda &"','"& produto &"')"		Conexcao.Execute(SQL)		'Response.End()%><p>comando <%=SQL%> foi executado. <br>Os dados foram inseridos.</p><!--O Next do For acima--><%Next%></body></html>
Qualquer coisa me fala

Compartilhar este post

Link para o post
Compartilhar em outros sites

kika    0

kika
Postado

Oi Shumi,Funcionou, só tive que dar uma alterada na db.asp porque estava dando erro, tive que colocar o caminho do servidor, pois com Server.MaPpath não funcionava.Agora entendi o que você fez e vi os dados sendo inseridos, tanto na tela quanto no BD

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Que bom Kika!você estava me falando ontem que seu sistema as lojas que iriam inserir as informações certo?Vamos fazer essa parte já???

Compartilhar este post

Link para o post
Compartilhar em outros sites

kika    0

kika
Postado

Isso mesmo Shumi, cada Loja é que vai inserir os valores.Vamos fazer então, o que você achar melhor pra começar é só falar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

eae ta com muito sono hoje? rsFaz assim no seu banco de dados faz a estrutura para receber o cadastro da loja.como por exemplo:- Razão Social- Nome fantasia- CNPJ- Endereço- Numero- TelefoneAi não esqueça da chave primária.Faça apenas o cadastro do estabelecimento, sem login e sem senha.

Compartilhar este post

Link para o post
Compartilhar em outros sites

kika    0

kika
Postado

Foi horrível pra acordar, nem escutei o relógio despertar (desliguei e nem lembro...rs).Vou fazer isso que você falou no BD

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Ok Kika!Depois tenta fazer a programação para inserir no banco.

Compartilhar este post

Link para o post
Compartilhar em outros sites

kika    0

kika
Postado

Shumi,Tive que dar uma parada nisso, pq estou tendo que fazer uma outra coisa aqui. Daqui a pouco acabo e volto para o código e posto aqui o que fiz.

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Ok Kika!precisar estamos ai

Compartilhar este post

Link para o post
Compartilhar em outros sites

kika    0

kika
Postado

Shumi,Estou de volta, desculpe mas tive que parar esse trabalho pra fazer outro. Mas já estou de volta para dar continuidade nesse.Criei as seguintes tabelas e campos no BD:LOJAS:- codcli (chave-primária)- Razão Social- Nome fantasia- CNPJ- Endereço- Numero- TelefoneUSUÁRIOS:- codcli (chave-primária)- Login- SenhaColoquei o codcli pra relacionar as duas tabelas. Agora vou fazer a programação para inserir.

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Kika faz só uma alteração...LOJAS:- codcli (chave-primária)- Razão Social- Nome fantasia- CNPJ- Endereço- Numero- Telefone- IDcoduser (NUMERICO) aqui vai a relação do user com a LojaUSUÁRIOS:- coduser (chave-primária)- Login- SenhaTo em casa hoje, cheio de tempo... rs

Compartilhar este post

Link para o post
Compartilhar em outros sites

kika    0

kika
Postado

Já alterei as tabelas e agora estou criando o cadastro. Já que você estará com tempo, hoje de noite então entro na internet pra continuarmos o desenvolvimento do código.

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

beleza eu to dodoi hoje! rsPor isso não fui trabalhar, ai to na net o dia todo!

Compartilhar este post

Link para o post
Compartilhar em outros sites

kika    0

kika
Postado

uhmmm....eu achei que você tinha se referido a estar em casa a noite.Se não der pra você ficar na inter a noite por não estar se sentindo bem, não tem problema. Não preciso ter isso pronto pra segunda-feira mais, esticaram até o final da semana que vem, pois surgiram outras prioridades.

Compartilhar este post

Link para o post
Compartilhar em outros sites

kika    0

kika
Postado

ok então, sem problemas. Se não acessar contiuamos outro dia.

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