baladaclick

não to conseguindo fazer. td na minha cabeça está confuso. tipo. eu quero que o usuario admsaopaulo veja todas as vendas de saopaulo, e depois um usuario matriz que veja as vendas de todas as regionais vou postar meus codes autentica.asp <%@Language=VBScript%> <%response.buffer="true"%> <% 'Recupero o texto que foi escrito no formulário vconsultor=request.form("consultor") vsenha=request.form("senha") 'Faça conexão com o banco de dados db=Server.MapPath("banco/megne.mdb") Set con = Server.CreateObject( "adodb.Connection" ) con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";" set rs=con.execute("select * from login where consultor='"&vconsultor&"' and senha='"&vsenha&"'") if rs.EOF then response.write"Senha ou Login inválido! Volte e tente novamente." else session("consultor") = rs("consultor") response.redirect"adm.asp" end if %> essa é aonde exibe as vendas <% PagAtual = Request.QueryString("PagAtual") 'página atual Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/megne.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação Set RS2= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = "SELECT * FROM clientes where consultor = '"& session("consultor") &"'" SQL2 = "SELECT * FROM login where consultor = '"& session("consultor") &"'" RS.Open SQL, conn, 3 RS2.Open SQL2, conn, 3 %>

você diz como se fosse um nivel de acesso essa flag?

deu certinho andrea meu anjo. valeu pela dica rike. agora é o seguinte, fiz o filtro deu certinho sem problemas, ele está exibindo as vendas de cada filial filtrado corretamente. agora como eu faço p criar um usuário que pode acessar tudo. um adm que pode visualizar, excluir, editar todos os registros de todas as filiais? valeu moçada.!!!!

beleza. vou tentar meu anjo. Obrigado de novo

Olha eu de novo. galera é o seguinte, eu nunca trabalhei com session. to começando hj a ver isso. eu queria saber como eu poderia fazer um sistema de login, assim que logado ele filtra todos os registros relacionados aquele login entenderam? como posso começar isso? eu fiz aqui um login mas esta muito confuso e queria começar do 0. beleza galera. valeu abraço

Eu amo esta mulher!!!! rssss Deu certo Andrea. Obrigado novamente. me manda seu endereço p eu mandar umas flores. você Merece! Abraço!!!

Salve salve galera SB. venho logo cedo com mais uma duvida. to querendo fzer um UPDATE mas não está dando certo. está ai o codigo. valeu moçada <% consultor = request.form("consultor") data = request.form("data") hora = request.form("hora") regional = request.form("regional") pedido = request.form("pedido") modalidade = request.form("modalidade") plano = request.form("plano") tipo = request.form("tipo") valor_parcela = request.form("valor_parcela") venc_inicial = request.form("venc_inicial") te = request.form("te") qtde1 = request.form("qtde1") colchao1 = request.form("colchao1") medida1 = request.form("medida1") infra1 = request.form("infra1") rigido1 = request.form("rigido1") acessorios1 = request.form("acessorios1") nome = request.form("nome") tipo_logradouro = request.form("tipo_logradouro") logradouro = request.form("logradouro") bairro = request.form("bairro") cidade = request.form("cidade") uf = request.form("uf") cep = request.form("cep") tel = request.form("tel") cel = request.form("cel") rg = request.form("rg") cpf = request.form("cpf") nome_mae = request.form("nome_mae") beneficio = request.form("beneficio") empresa = request.form("empresa") end_empresa = request.form("end_empresa") cidade_empresa = request.form("cidade_empresa") fone_empresa = request.form("fone_empresa") cargo = request.form("cargo") salario = request.form("salario") admissao = request.form("admissao") tipo_renda = request.form("tipo_renda") referencias = request.form("referencias") Set conexao = CreateObject("ADODB.Connection") abrir ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco/megne.mdb") conexao.open abrir inserir = "UPDATE clientes (consultor, data, hora, regional, pedido, modalidade, plano, tipo, valor_parcela, venc_inicial, te, qtde1, colchao1, medida1, infra1, rigido1, acessorios1, nome, tipo_logradouro, logradouro, bairro, cidade, uf, cep, tel, cel, rg, cpf, nome_mae, beneficio, empresa, end_empresa, cidade_empresa, fone_empresa, cargo, salario, admissao, tipo_renda, referencias) values ('"& consultor &"', '"& data &"', '"& hora &"', '"& regional &"', '"& pedido &"', '"& modalidade &"', '"& plano &"', '"& tipo &"', '"& valor_parcela &"', '"& venc_inicial &"', '"& te &"', '"& qtde1 &"', '"& colchao1 &"', '"& medida1 &"', '"& infra1 &"', '"& rigido1 &"', '"& acessorios1 &"', '"& nome &"', '"& tipo_logradouro &"', '"& logradouro &"', '"& bairro &"', '"& cidade &"', '"& uf &"', '"& cep &"', '"& tel &"', '"& cel &"', '"& rg &"', '"& cpf &"', '"& nome_mae &"', '"& beneficio &"', '"& empresa &"', '"& end_empresa &"', '"& cidade_empresa &"', '"& fone_empresa &"', '"& cargo &"', '"& salario &"', '"& admissao &"', '"& tipo_renda &"', '"& referencias &"')" Conexao.execute(inserir) response.redirect("adm.asp") %>

Obrigado Marcos e Bareta. to vendo que vou ter que estudar muuuuito. valeu irmaos

entaum cara é que uma vez eu tava tendo problemas com inserção e remoção do banco de dados no access e alguém em algum lugar me falou pra fazer isso por isso eu disse que num sabia bem ao certo.... mas aí eu coloquei e funcionou entaum vai que funciona com você também hehehe ^^V mas se num usou ignora...^^*) acho que é alguma coisa de locktype num sei não alguém sabe??? responde pra gente aí^^V valeu rike. fico agradecido com sua ajuda. daqui a pouco venho com mais duvidas hehehe

os dois estavam certo. preciso me acostumar com essa parada de converter o campo inteiro. e também eu tinha confundido os campos no link muito obrigado Andrea e Rike. To enchendo o saco de vocês esta semana hein. hehe valeu pessoal. só uma duvida porque colocou" 3, 3 " nesta linha? "RS.Open SQL, conn, 3, 3 "

não to conseguindo deletar o registro com a determinada id Link p deletar registro do banco excluir.asp?id=<%= rs("pedido")%> página que vai deletar o registro <% Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/megne.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = "Delete from clientes where pedido ="&id&";" RS.Open SQL, conn, 3 %> Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'pedido ='. /analise/excluir.asp, line 11 mais duvidas. kkkkkkkkkk valeu moçada. pessoal vocês são 10

então rike eu nem perdi tempo exclui o registro e agora não da erro nenhum obrigadao cara. agora vou lançar um tópico de deletar registros. c der me ajude no outro tópico. abraço

voltamos com mais um erro hauhauhauhu o que é isso? Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0006) Estouro: 'cint' /analise/editar.asp, line 3 <% pedido=cint(request.querystring("pedido")) 'converte para int Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/megne.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = "SELECT * FROM clientes WHERE pedido ="&pedido&";" RS.Open SQL, conn, 3 %> o interessante que acontece isso só em um registro especicifico. os outros dao certo valeu

aí rike. deu certo irmao. não sabia dessa. valewwwwwww. muito obrigado

não to conseguindo abrir o link requisitado. Link com querystring editar.asp?id=<%= rs("pedido")%> página que vai exibir a id que foi requisitada. <% Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/netdbf.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = " SELECT * FROM clientes WHERE pedido ="&request.querystring("id") RS.Open SQL, conn, 3 %> Tipo de erro: Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /analise/editar.asp, line 8 quem souber... mandia! valeu

Legal andrea. Resolveu mais um problema meu. Eita Mulher Inteligente essa não? valeu Andrea Abração daqui a pouco venho com mais duvidas rssss

sim ele traz registros. mas quando não existe registros ele da esse erro. gostaria que ele desse a mensagem que não existem registros obrigado andrea

Galera seguinte, tenho a paginação funcionando 99%. tem um probleminha, ele não dá mensagem de "nenhum registro encontrado", invés dessa msg ele aparece uma pagina de erro. Tipo de erro: ADODB.Recordset (0x800A0BCD) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /analise/pesquisa.asp, line 66 como que eu faço p ele retornar que nenhum registro foi encontrado? o script está grande mas não sabia qual parte colocar aqui. desculpem valewww <% PagAtual = Request.QueryString("PagAtual") 'página atual Set db = server.createobject("adodb.connection") db_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/netdbf.mdb") db.CursorLocation = 3 db.Open db_conn campo_busca = request("campo_busca") opcao = Request("opcao") sql = "select * from clientes where "& opcao &" like '%"& campo_busca &"%'" set RS = db.execute(sql) %> <!--#include file="topo.asp"--> <table width="100%" height="123" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100%" height="85" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr bgcolor="#003366"> <td width="13%" height="32" bordercolor="#003366" bgcolor="#72778D"><div align="center"><span style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; color: #FFFFFF"><span style="font-family: Verdana, Arial, Helvetica, sans-serif"> <%session("regional")%> Pedido</span></span></div></td> <td width="13%" bordercolor="#003366" bgcolor="#72778D"><div align="center"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; color: #FFFFFF">Data</span></div></td> <td width="15%" bordercolor="#003366" bgcolor="#72778D"><div align="center"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; color: #FFFFFF">Modalidade</span></div></td> <td width="25%" bordercolor="#003366" bgcolor="#72778D"><div align="center"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; color: #FFFFFF">Cliente</span></div></td> <td width="34%" bordercolor="#003366" bgcolor="#72778D"><div align="center"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; color: #FFFFFF">Regional</span></div></td> </tr> </table> <span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif"> <% '############## paginacao Introdu&ccedil;&atilde;o ################# '------- Coloque aqui a quantidade de registros que voc&ecirc; deseja por p&aacute;gina -------- SELECT CASE np CASE "1" NumPorPage = "1" CASE "15" NumPorPage = "15" CASE ELSE NumPorPage = "25" END SELECT 'Const NumPorPage = 20 'Verifica qual a p&aacute;gina solicitada Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira p&aacute;gina Else PagAtual = Request.QueryString("PagAtual") End If 'Cria conex&atilde;o com o Banco de Dados, j&aacute; abrir anteriormente 'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset") '>>> FIZ EM CIMA RS.CursorLocation = 3 Acerta a posi&ccedil;&atilde;o do cursor . 3 ou adUseClient RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o n&uacute;mero de registros 'Cria a String SQL '>>> FIZ EM CIMA Dim SQLpag '>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos" '>>> FIZ EM CIMA RS.Open SQLpag, Conn Abre o RecordSet RS.MoveFirst 'Move o RecorSet para o in&iacute;cio RS.PageSize = NumPorPage 'Coloca a quantidade de p&aacute;ginas Dim TotalPages 'Pega o n&uacute;mero total de p&aacute;ginas TotalPages = RS.PageCount RS.AbsolutePage = PagAtual 'Configura a p&aacute;gina atual '############## paginacao Introdu&ccedil;&atilde;o - FIM ################# Count = 0 'Zera o contador 'Inicia a Fun&ccedil;&atilde;o DO, utilizando a quantidade de p&aacute;ginas especificadas 'Ou seja ele ir&aacute; executar a a&ccedil;&atilde;o at&eacute; que o valor Count seja menor que "20" como est&aacute; no nosso exemplo i = 0 DO WHILE NOT RS.EOF And Count < RS.PageSize 'paginacao And Count < RS.PageSize ' ----- linhas coloridas ------- if i mod 2<>0 then cor = "#000000" else cor = "#000000" end if '------------------------------- %> </span> <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#64687B"> <tr> <td width="13%" height="28" bordercolor="#D0D1D9" bgcolor="#D0D1D9"><div align="center"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("pedido")%></span></span></div></td> <td width="13%" bordercolor="#D0D1D9" bgcolor="#D0D1D9"><div align="center"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("venda")%></span></span></div></td> <td width="15%" bordercolor="#D0D1D9" bgcolor="#D0D1D9"><div align="center"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("modalidade")%></span></span></div></td> <td width="25%" bordercolor="#D0D1D9" bgcolor="#D0D1D9"><div align="center"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("nome_cliente")%></span></span></div></td> <td width="34%" bordercolor="#D0D1D9" bgcolor="#D0D1D9"><div align="center"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif"><span class="style7" style="font-family: Verdana, Arial, Helvetica, sans-serif"><%=RS("vendedor")%></span></span></div></td> </tr> </table> <% i = i+1 Count = Count + 1 'paginacao RS.MoveNext LOOP 'também paginacao %></td> </tr> <tr> <td height="19" valign="bottom">&nbsp;</td> </tr> <tr> <td height="19" valign="bottom"><div align="center" class="style21"> <% '#####################inicio da paginação#################### Response.Write("<B><font color=""#006600"" size=""1"" face=""arial""><strong> P&aacute;gina " & PagAtual & " de " & TotalPages & " </strong></font></B> <br> ") 'Mostra os bot&otilde;es: Anterior e Pr&oacute;xima, utilizando da op&ccedil;&atilde;o de IF IF PagAtual > 1 THEN 'Se for a primeira p&aacute;gina, Mostra apenas o bot&atilde;o Pr&oacute;ximo e Ultima Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("<a href='adm.asp?PagAtual=" & 1 & "'>") Response.Write("Primeira") Response.Write("</a></font></B>&nbsp;&nbsp;") Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("<a href='adm.asp?PagAtual=" & PagAtual - 1 & "'>") Response.Write("Anterior") Response.Write("</a></font></B>&nbsp;&nbsp;") Else Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("Primeira") Response.Write("</font></B>&nbsp;&nbsp;") Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("Anterior") Response.Write("</font></B>&nbsp;&nbsp;") End If '------------------- numero ------------------------- '---------- Numero de numeros para ser mostrados ---- max_n_mostrados = 10 intervalo = Int(max_n_mostrados /2) inicio = PagAtual - intervalo final = PagAtual + intervalo If CInt(inicio) <1 Then inicio = 1 final = 10 END IF If CInt(final) > CInt(TotalPages) Then final = TotalPages For i = inicio To final If CInt(i)=CInt(PagAtual) Then Response.Write "<font color=""#000000"" size=""1"" face=""arial"">[ <B>" & i & "</B> <font color=""#000000"" size=""1"" face=""arial"">]</font>&nbsp;&nbsp;" END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<a href='adm.asp?PagAtual=" & i & "'>" & i & "</a>&nbsp;&nbsp;" END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<a href='adm.asp?PagAtual=" & i & "'>" & i & "</a>&nbsp;&nbsp;" END IF Next '------------------------------------------------------ IF CInt(PagAtual) <> CInt(TotalPages) THEN 'Se estiver na &uacute;ltima p&aacute;gina, mostra apenas o bot&atilde;o Anterior e Primeira Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("<a href='adm.asp?PagAtual=" & PagAtual + 1 & "'>") Response.Write("Pr&oacute;xima") Response.Write("</a></font></B>&nbsp;&nbsp;") Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("<a href='adm.asp?PagAtual=" & TotalPages & "'>") Response.Write("Ultima") Response.Write("</a></font></B>&nbsp;&nbsp;") Else Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("Pr&oacute;xima") Response.Write("</font></B>&nbsp;&nbsp;") Response.Write("<B><font color=""#000000"" size=""1"" face=""arial"">") Response.Write("Ultima") Response.Write("</font></B>&nbsp;&nbsp;") End If '################## fim paginação ######################## %>

andrea já deu certo. muito obrigado. esqueci de pegar o valor do form e armazenar na variavel opcao = request.form("opcao"); Obrigado Andrea e o Hendersonnnnnnnnnnnnnnnn valewwwww daqui a pouco apareço com mais duvidas.

mesmo problema, ele retorna sem valores. diz que nenhum registro foi encontrado

certo. eu vou tentar, daqui a pouco eu posto novamente. obrigadao andrea ANDREA FUNCIONOU CERTINHO muito OBRIGADO, AGORA QUERO O SEGUINTE, COLOQUEI UMA LISTBOX AO LADO PARA SELECIONAR O CAMPO QUE QUERO FAZER A PESQUISA E FIZ AS ALTERAÇÕES NO SELECT. BOM EU não SEI COMO RETORNAR ESTAS PESQUISAS NO RESPONSE.WRITE. QUEM PUDER ME AJUDAR VALEWWW <% Set db = server.createobject("adodb.connection") db_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/netdbf.mdb") db.CursorLocation = 3 db.Open db_conn campo_busca = request("campo_busca") sql = "select * from clientes where '%"& opcao &"%' like '%"& campo_busca &"%'" set tab = db.execute(sql) if tab.eof then response.write "Não foram encontrados registros." response.end else while not tab.eof response.write tab("NÃO SEI O QUE COLOCAR") & "<br>" tab.movenext wend end if %>

porque eu não sei fazer

Procurei pelo SB e não achei algum artigo sobre como fazer buscas no banco quem souber posta ai valeu

fala brow. tipo, e em relação aos relacionamentos. o que me diz? como faria? depois eu vou jogar na net o sistema e você da uma olhada abraço irmao

Galera é o seguinte, gostaria de saber qual a estrutura que tenho que usar p c montar um sistema de estoque. eu montei aqui mas to muito confuso. as tabelas que tenho é ENTRADA, SAIDA, PRODUTOS, FILIAIS isso pelo meu modo de pensar. queria opiniao de vocês de como montaria o banco, tabelas e os relacionamentos. tenho quase todos as páginas prontas, mas to pecando no banco. valeu