baladaclick

andrea eu já tinha feito isso eu sei que o problema esta no and ..."& aonde &" and aprovacao = '"& filtro & "'" coloquei o response.write sql - ele retorna isso. SELECT * FROM clientes where id_regional = 3 aprovacao = 'aprovada ' tipo, com o nivel 1 e 2 funcional direito com o 3 não. está faltando alguma coisa nessa linha, SQL = "SELECT "& registros &" FROM "& tabela &" "& aonde &" and aprovacao = '"& filtro & "'" tipo, quando eu tiro o and o nivel 1 e 2 funciona mas o nivel 3 não. alguém tem ideia do que pode ser feito? kkk eu fiz uma gambiarra aqui tentando e deu certo <% Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/netdbf.mdb") Conn.Open DSNtest id_perfil = session("id_perfil") id_regional = session("id_regional") id_consultor = session("id_consultor") vendedor = session("vendedor") IF id_perfil = 1 THEN registros = "*" tabela = "clientes" aonde = "where id_consultor = " & session("id_consultor") ordem = "order by data" e = "and" ELSEIF id_perfil = 2 THEN registros = "*" tabela = "clientes" aonde = "where id_regional = " & session("id_regional") ordem = "order by data" e = "and" ELSEIF id_perfil = 3 THEN registros = "*" tabela = "clientes" aonde = "where " ordem = "order by id_cliente desc" e = "" END IF filtro = request("filtro") if filtro = "" then 'se quiser definir algum filtro por padrão: filtro = "aprovada" end if Set RS= Server.CreateObject("ADODB.Recordset") SQL = "SELECT "& registros &" FROM "& tabela &" "& aonde &" "& e &" aprovacao = '"& filtro & " '" RS.Open SQL, conn, 3 %>

não consigo listar a palavra do filtro no nivel 3. os niveis 2 e 1 estão corretos. valeu moçada Microsoft JET Database Engine erro '80040e14' Erro de sintaxe (operador faltando) na expressão de consulta 'and aprovacao = 'aprovada''. /sam/aprovadas.asp, line 45 <% Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/netdbf1.mdb") Conn.Open DSNtest id_perfil = session("id_perfil") id_regional = session("id_regional") id_consultor = session("id_consultor") vendedor = session("vendedor") IF id_perfil = 1 THEN registros = "*" tabela = "clientes" aonde = "where id_consultor = " & session("id_consultor") ordem = "order by data" ELSEIF id_perfil = 2 THEN registros = "*" tabela = "clientes" aonde = "where id_regional = " & session("id_regional") ordem = "order by data" ELSEIF id_perfil = 3 THEN registros = "*" tabela = "clientes" aonde = "where " ordem = "order by data" END IF filtro = request("filtro") if filtro = "" then 'se quiser definir algum filtro por padrão: filtro = "aprovada" end if Set RS= Server.CreateObject("ADODB.Recordset") SQL = "SELECT "& registros &" FROM "& tabela &" "& aonde &" and aprovacao = '"& filtro & "'" RS.Open SQL, conn, 3 %>

Eu tenho uma venda com pedido 2222 cadastrado no meu banco, quero saber como eu faço quando eu cadastrar uma venda com o mesmo pedido e ele dar um print de que esse pedido já existe. valeu

Deu certinho andrea. Muuuito obrigado meu anjinho de chocolate. bjao impressao minha ou o scritbrasil está com virus? meu antivirus alerta toda vez que entro no forum daqui

AH está ELE DÁ ISSO select pedido from clientes like '17302'

para imprimir é isso não é? response.write(sql)? se for isso tá dando este erro Microsoft JET Database Engine erro '80040e14' Erro de sintaxe na cláusula FROM. /sam/pesquisa.asp, line 16

andrea ele da erro na clausula from

<% 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/netdbf1.mdb") Conn.Open DSNtest Set RS = Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação opcao = Request("opcao") campo_busca = request("campo_busca") SQL = "SELECT "& opcao &" from clientes like'%"& campo_busca &"%'" RS.Open SQL, conn, 3 %> galera da uma olhada no que pode ser. valeu moçada desculpe, ele adicionou 3 vezes. não foi culpa minha

Galera tenho uma pagina onde listo registros de vendas aporvadas, canceladas, reprovadas e tal. como eu faço p que quando eu clique em aprovadas ele me de os registros que foram aprovadas e assim por diante. dá uma olhada no meu codigo <% Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/netdbf1.mdb") Conn.Open DSNtest id_perfil = session("id_perfil") id_regional = session("id_regional") id_consultor = session("id_consultor") vendedor = session("vendedor") IF id_perfil = 1 THEN registros = "*" tabela = "clientes" aonde = "where id_consultor = " & session("id_consultor") ordem = "order by id_cliente desc" ELSEIF id_perfil = 2 THEN registros = "*" tabela = "clientes" aonde = "where id_regional = " & session("id_regional") ordem = "order by id_cliente desc" ELSEIF id_perfil = 3 THEN registros = "*" tabela = "clientes" aonde = "where aprovacao = "aprovada"" ordem = "order by id_cliente desc " END IF Set RS= Server.CreateObject("ADODB.Recordset") SQL = "SELECT "& registros &" FROM "& tabela &" "& aonde &" "& ordem &" " RS.Open SQL, conn, 3 %>

Galera, seguinte, existe alguma outra forma de montar um formulario com envio p banco sem ter que ficar colocando email = request.form("email") nome = request.form("nome") cidade = request.form("cidade") Insert INTO clientes (email, nome, cidade) values ('"& email &"', ' " & nome & " ', ' " & cidade & " ') ??? porque c eu tiver um formulário com 30 campos vou ter que fazer isso com todos os campos? parece que tem uma forma for each c não me engano. gostaria de um exemplo valeu moçada

mostra seu código! mas tenta assim Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("pasta/banco.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") Set RS2= Server.CreateObject("ADODB.Recordset") sql = "insert into recado (titulo, descricao, data, idmural, idusuario) values ('"&VarAssunto&"', '"&VarDescricao&"', '"&Date()&"', '"&idmural&"', '"&usuario&"')" sql2 = "insert into recado_log (idrecado, titulo, descricao, data, idusuario) values ('"&VarAssunto&"', '"&VarDescricao&"', '"&Date()&"', '"&usuario&"')" rs.open SQL, conn, 3 rs2.open SQL2, conn, 3

como está a sua pagina que vai receber os dados?

Galera bom dia, estou com um problema com o nível de usuário. ele da erro no codigo abaixo dizendo: "Tipo de erro: Microsoft JET Database Engine (0x80040E14) A instrução SELECT inclui uma palavra reservada ou um nome de argumento que está incorreto ou faltando, ou a pontuação está incorreta. /adm/adm.asp, line 24 " o que seria isso? já tentei de outras formas e ele dá o mesmo erro. até remontei meu banco, o codigo e nada. quem puder me ajudar. estamos ai. valeu moçada e um BJO p Andrea(meu anjo no scriptbrasil) hehehehe <% 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 id_perfil = session("id_perfil") IF id_perfil = 1 THEN registros = "*" tabela = "clientes" aonde = "where id_consultor = " & session("id_consultor") elseif id_perfil = 2 Then registros = "*" tabela = "clientes" aonde = "where id_regional = " & session("id_regional") END IF Set RS= Server.CreateObject("ADODB.Recordset") SQL = "SELECT "& registros &" FROM "& tabela &" "& aonde &" " RS.Open SQL, conn, 3 %>

Esse é o meu codigo de autenticação do login. <%@Language=VBScript%> <%response.buffer="true"%> <% 'Recupero o texto que foi escrito no formulário vlogin = request.form("login") vsenha = request.form("senha") 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 consultor where login= '"&vlogin&"' and senha='"&vsenha&"'" RS.Open SQL, conn, 3 if rs.EOF then response.Redirect("autentica1.asp") else session("login") = rs("login") session("id_consultor") = rs("id_consultor") session("nome_consultor") = rs("nome_consultor") session("id_regional") = rs("id_regional") response.redirect"adm.asp" end if %> agora esse é uma parte do meu painel administrativo. que é aonde está dando erro <% 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 RS2= Server.CreateObject("ADODB.Recordset") SQL2 = "SELECT * FROM clientes where id_consultor = '" & session("id_consultor") & "'" RS2.Open SQL2, conn, 3 %> está dando um erro assim "Tipo de dados imcompatível na expressão de critério. adm.asp, line 14" o que seria isso? valeu galerinha

agora abriu querida, vou tentar adaptar no que eu preciso. muito obrigado. daqui a pouco já venho com as duvidas

andrea boa tarde meu anjo não sei o que esta acontecendo mas ele chega td em caracteres, já tentei baixar ele em 4 computadores e nada obrigado!! alguém me ajude. ó deus

galera, não to conseguindo fazer os niveis de usuários. da uma olhadinha o que pode ser não está dando erro algum ele só não exibe os dados quando eu tiro o nivel da certo <% 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 regional = '"& session("regional") &"'" SQL2 = "SELECT * FROM clientes where consultor = '"& session("consultor") &"'" RS.Open SQL, conn, 3 RS2.Open SQL, conn, 3 %> <!--#include file="topo.asp"--> <table width="100%" height="48" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100%" height="48" valign="top"><table width="100%" height="123" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100%" height="85" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p align="center" style="font-size: 24px; color: #35496A; font-weight: bold"><span style="font-family: Verdana, Arial, Helvetica, sans-serif"> <% if rs.eof then response.write "<br><br><br>N&atilde;o foram encontrados registros na sua pesquisa.<br>Pesquise novamente!" response.end end if %> <%session("consultor") = rs("consultor") %> <%session("regional") = rs("regional") %> <%session("nivel") = rs("nivel")%> <% ''COLOQUEI AQUI MEU CÓDIGO ''NEM SEI O QUE É O RESTO Select Case session("nivel") Case 1 'SUPONDO QE SEJA DA MATRIZ SQL = "SELECT * FROM clientes where regional = '"& session("regional") &"'" Set Rs = conexao.Execute(SQL) if not Rs.EOF Then %> <table width="80%" cellpadding="0" cellspacing="0"> <tr> <td>Campo 1</td> <td>Campo 2</td> <td>Campo 3</td> </tr> <tr> <td><% = Rs("nome") %></td> <td><% = Rs("regional") %></td> <td><% = Rs("modalidade") %></td> </tr> </table> <% End If Case 2 'SUPONDO QUE SEJA DA FILIAL SQL = "SELECT * FROM clientes where consultor = '"& session("consultor") &"'" Set Rs = conexao.Execute(SQL) if not Rs.EOF Then %> <table width="80%" cellpadding="0" cellspacing="0"> <tr> <td>Campo 1</td> <td>Campo 2</td> <td>Campo 3</td> </tr> <tr> <td><% = Rs("nome") %></td> <td><% = Rs("regional") %></td> <td><% = Rs("modalidade") %></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table> <% End If End Select ''FINAL DO MEU CÓDIGO %> valeu moçada. to nisso faz uma semana. rsssss

Galera, Bom Dia. Estou fazendo um sisteminha de vendas e gostaria de saber como trabalhar com permissões. é o seguinte, tenho 3 níveis de acesso, vendedor,filial e Matriz. Vendedor visualiza somente venda sua. - isto está ok. Filial visualiza todas as vendas dos vendedores da sua filial - não consigo Matriz visualiza todas as vendas de todas as filiais - não consigo não estou conseguindo fazer isso. alguém poderia me ajudar? Abraços vai uma parte do codigo p vocês verem <% 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 clientes where regional = '"& session("regional") &"'" RS.Open SQL, conn, 3 RS2.Open SQL3, conn, 3 %>

ôôôôô minha querida, obrigadao mesmo. mas tem um probleminha acabei de baixar e ele esta td em caracteres. tipo assim ñöªñöªñöª©±W·×o¯9Þ^sjì5ÇÛkŠ·×o¯)5öšâíU„w«D^”?Ä¥§fˆKâȉï5Z Ú—|ŒÈ¯©ˆ S¤!÷ˆfId=ÕÇP·DM%äÇ­¨¢†Wy†5DŸt1©ô;ö=‘ºtï8V}l)6HQlžÊÕE•<`¿¾}E+ÑJ^÷{ü¯øv"n7ó‡'¦‹9ë,¨1æ0i­+Qxxv.C„ûÄÌg1lÃOxÂTcŠv«Â÷NÌ«ÏO7Š™ýX-ô\‹á%¨£ML1wÀêÃØ1áaýc£Â/é}Â"¯˜Þ½cü˜®%lö,¬que,Þù"Œ®5–ú]‰1[ñS¢*»¡¥6±Ø…•n€Á4Èén_¢f‡Ë`z³¥#xèô²º#ÖjµÐWI¨fÌß›¿¾*não+ÅBV7†ÑúD§X{«s¼­XnlM…-±]­™E׆ú¯…«„Õ¨6nu›€ºü¨µSLOo5¢–ï5ó`éU°ÔXÂjAmúçºÐ²que‡XàñS±%;P_³ñ™´µ£î.cD¯g¹ø}]ЊÉD_S¼Ð¶àTÀe“â|Õ³ŠR|¾à¡g¯Z¶ówSÞ8üÎ> ›¹Y_B•§º>i­O±ëœû§ÿyCwvåS¦¿tþñ«_´õ£‰Ž—ŽiåO^ß²ìÓ‡޻oôôO·úDjêÐ>NÔŠõ…€8ôúg+V‡:+-ª” ~ÑÕôEÒLq¨¶FåêFNt2$êÊK ºaÅê ~U›‡RJëiÃgÆB Ucnão5Ãè»]â(o->¬žò…i¹ûB÷ܱ÷Ýèl¿ù“æïšXý­)—ÖŒ¾uóolýh£c¶.Aþ›'lÜÔ6éË{­?Úäßw^ù›E£ÿ¹F®#»çÍøú´‹«¬ý¬àzçû;“ç*0råÞöëúÌ»WU>queè—}®_<-=AœIµ{OH9“r¶÷Š·L!(£…`¢¯H0ŒI¡uÃ0Ã0Ã0Ì©BQ–ôÿX3’ªMúc f\ù_DÈ“g3ÛHâÄ0ÿDzÿï°ÅxðdôÀËH¹®°“äÀþûò¬WÞ•g¥<{ì°å{¨+ÿèaËW¾›gåwÞÏîýÙ¾ÃøäpJŔƭ`Š(©þÿþ×Óß}àÑì÷bc.3ôY=ú wÉ^15 ÂúŒ«Fºá"%—×Ì°9Ž»jCÚÉE±Ÿ™³ŸZô¦èKåÀRã¹-Û†4‚d%tΛHÛÙ²ÀUª½¬Pºg0ýÙ+¡§Œ•0)Ôgé)GdÃàíÖ ÿœÒðpƒ¢Ðù¢&)_Ö[¾GÆEÿ6ÔÐÁ/"Ez¡Ã)_ž÷|¾1¡>`òƒþ, Ó&|ù#våW åW½‘?çD>¿|ZÑàs0#Iô¯æ oü±Aü¬â`ÇŸèÚ^ù±ýy(密b(F¹{Dùžid¹½WÖdÅ–_‚ß=>ñ³b]í?œHý“ÿºãÀäŒPùáV™å;¤ •¿Ït~lùùC,/Õ8þiá%(¿¿ã_,žÃÙ4ìòxý3PûÇÒ‘®Ïýn<ôàºËĵØfñ{yƒ%ëï×_šdÇß,ž5Úu"×ö¿XÈyý§ŸÿÑO Y renomeei para teste.asp e a mesma coisa

sim é em uma tabela só chamada clientes. os usuarios e senhas estao na tabela logins

está bom coração. vou tentar de novo! mas vou ficar t enchendo

agradeço de coração toda a ajuda da andrea e do rike. desisto... vou ver c acho um script sobre isso pronto. lamentavelmente, ainda não tenho um bom conhecimento.. muito obrigado !!! pode fechar

já fiz. querem que eu faça um post do code completo?

pessoal desculpe mas não consegui. alguém teria um pequeno exemplo? vamos ver c vocês entenderam minha pensamento, quero que consultores - veja somente vendas deles- ok regional - vejam todas as vendas dos consultores ligados a esta regional adm - veja todas as vendas de todas as regionais. não to conseguindo. não acontece nada. ÓÓÓÓ DEUS ÓÓÓ CÉUS está FODA

essa é uma parte do code <% 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 %> <!--#include file="topo.asp"--> <table width="100%" height="48" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100%" height="48" valign="top"><table width="100%" height="123" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100%" height="85" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p align="center" style="font-size: 24px; color: #35496A; font-weight: bold"><span style="font-family: Verdana, Arial, Helvetica, sans-serif"> <% if rs.eof then response.write "<br><br><br>N&atilde;o foram encontrados registros na sua pesquisa.<br>Pesquise novamente!" response.end end if %> <%session("consultor") = rs("consultor") %> <% nivel = session("nivel") if nivel = 1 then campos = "*" 'ou seja, verá todos os campos da tabela else campos = "regional" end if SQL = "SELECT * FROM clientes where regional = '"& session("regional") &"'" %> seria isso mesmo? nossa nisso agora eu to boiando