Junior_ASP
-
Total de itens
4 -
Registro em
-
Última visita
Sobre Junior_ASP
Junior_ASP's Achievements
0
Reputação
-
Eu estou utilizando este código no ASP. Mas eu acredito que deva funcionar no ASP.Net também. Talvez tenha de fazer algumas modifições por causa dos comandos, mas eu acredito que a lógica é a mesma! Falou.
-
Com isso você pode listar os produtos só que eu n sei qual banco de dados você está utilizando. Só n se esqueça de utilizar a sua string de conexão com o banco de dados. Neste caso eu tenho 2 arquivos: um para a conexao e outro para a listagem dos registros. Com eles você pode extrair qualquer informação do banco de dados. Espero tê-lo ajudado! Junior Arquivo Conecta.asp <% Dim StrCon Dim Conexao Set Conexao = Server.CreateObject("ADODB.Connection") StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("BDLivrariaASP.mdb") Sub Abreconexao() Conexao.Open StrCon End Sub Sub FechaConexao() Conexao.Close End Sub %> Arquivo lista de Produtos <!-- #Include File="Conecta.asp" --> <HTML> <HEAD> <TITLE>Categorias</TITLE> </HEAD> <BODY BGCOLOR=#ffffff TEXT=#000000> <CENTER><TABLE BORDER=1 WIDTH=80% CELLPADING=0 CELLSPACING=0> <TR ALIGN=Center> <TD COLSPAN=2><FONT FACE=Verdana SIZE=2>Lista de Categorias</FONT></TD> </TR> <% Dim ComandoSQL, rsCategorias Abreconexao ComandoSQL = "SELECT CodCategoria, NomeCategoria FROM Categorias" Set rsCategorias = conexao.execute(ComandoSQL) While not rsCategorias.eof %> <TR> <TD> <FONT FACE=Verdana SIZE=2> <%=rsCategorias("CodCategoria")%> </FONT> </TD> <TD> <FONT FACE=Verdana SIZE=2> <%=rsCategorias("NomeCategoria")%> </FONT> </TD> </TR> <% rsCategorias.MoveNext WEnd rsCategorias.close FechaConexao Set rsCategorias = Nothing %> </BODY> </HTML>
-
A sintaxe do dicionario é muito simples... Para Armazenar Set Session("DicionarioUsuario") = Server.CreateObject("Scripting.dictionary") Set MeuDicionario = Session("DicionarioUsuario") MeuDicionario.Add cStr(MeuDicionario.Count + 1), varMensagem Para resgatar Dim MeuDicionario, aMensagens Set MeuDicionario = Session("DicionarioUsuario") aMensagens = MeuDicionario.Items for i=0 to MeuDicionario.Count - 1 Response.Write "<BR>" & aMensagens(i) Next O problema é que eu encontrei vários artigos falando sobre o erro que eu estou tendo, mas nenhum deles informa uma solução. Espero que tenha lhe ajudado!
-
Eu estou tendo um problema ao tentar executar um script no qual estou utilizando o objeto dicionario. Eu tenho uma tela de cadastro que contém vários campos e com o dicionário eu armazenador as informações inválidas. O problema é que quando eu executo o script uma mensagem de erro é emitida: (0x800A01C9) Esta tecla já está associada com um elemento desta coleção Eu desativei alguns campos e funcionou, mas é claro que estes campos que eu desativei também tem que estar funcionando normalmente, então eu não posso simplesmente desativá-los. Eu procurei pela internet e encontrei alguns comentários dizendo que este é um bug, mas n explica como solucioná-lo. Alguém, por favor, saberia me dizer como resolver isso? Muito obrigado!!! Junior