baladaclick

BOA TARDE MOÇADA ESTOU COM UMA PEQUENA BUCHA ESTOU FAZENDO MANUTENÇÃO EM UM SISTEMA QUE JÁ EXISTE E NÃO FOI FEITO POR MIM E ESTÁ UMA BAGUNÇA. OS CAMPOS DO BANCO DE DADOS ESTÃO COM CARACTERES DO TIPO "ESPAÇO", "Ç", "ACENTOS". BOM EU CONSEGUIR FAZER O ASP INTERPRETAR OS "ESPAÇOS", MAS NÃO ESTOU CONSEGUINDO FAZER ELE RECONHECER O CAMPO QUE TEM "Ç" O NOME DO CAMPO É "Endereço residencial", EU TENTO <%=RS("endereço residencial")%> E O ASP DIZ QUE ESTE CAMPO não EXISTE NO BANCO. TENTO também <%=RS("EndereE7E3o residencial")%> E NADA. NO MOMENTO NÃO TEM COMO REFAZER O BANCO PORQUE ELE É USADO CONSTANTEMENTE E ELE RODA COM UM PROGRAMA CRIADO POR ELES EM VISUAL BASIC. EU PRECISO SÓ FAZER UM SISTEMINHA DE IMPRESSÃO DE ENVELOPE PARA MALA DIRETA. ALGUÉM PODE ME AJUDAR.? ABRAÇO!!!!

Galera que seria este erro? no meu banco de dados tenho o campo pedido de até 10 digitos e quando digito 6 numeros ele da erro: Estouro de Cint Abraço

mas eu gostaria de fazer td em asp, nada de javascript tem algum jeito? já tentei assim <%=%> e não deu

galera, venho com uma duvida boba, como que eu defino o que o action do form vai direcionar para uma pagina diferente de acordo com o com lista escolhido? action do form <form action="????" method="post" name="form2" class="style43" id="form2"> combo list <select name="tipo" id="tipo"> <option value="valores.asp">Valores</option> <option value="lista.asp">Dados</option> quero que o value do meu combo entre no action do form. como faço? obrigado moçada

boa ideia kadosh. vou tentar valeu

Galera é o seguinte, os meus campos com formato de data não aceitam valores nulos, em branco. como faço p que eles aceitem? no meu banco esta em formato data <% pedido=cint(request.querystring("pedido")) 'converte para int pedido = request.Form("pedido") observacao = request.form("observacao") restricoes = request.form("restricoes") data_alteracao = request.form("data_alteracao") aprovacao = request.form("aprovacao") reanalise = request.Form("reanalise") finalizado = request.Form("finalizado") Set conexao = CreateObject("ADODB.Connection") abrir ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco/netdbf.mdb") conexao.open abrir alterar = "UPDATE clientes set observacao= '"& observacao &"', restricoes= '"& restricoes &"', data_alteracao= #"& data_alteracao &"#, aprovacao= '"& aprovacao &"', reanalise= '"& reanalise &"', finalizado= #"& finalizado &"# where pedido= '"&pedido&"';" Conexao.execute(alterar) response.redirect("adm.asp") %> o campo, finalizado está em formato data, e não aceita atualizar o registro com este campo em branco.. valeu moçada galera preciso de ajuda

galera, venho com uma duvida boba, como que eu defino o que o action do form vai direcionar para uma pagina diferente de acordo com o com lista escolhido? action do form <form action="????" method="post" name="form2" class="style43" id="form2"> combo list <select name="tipo" id="tipo"> <option value="valores.asp">Valores</option> <option value="lista.asp">Dados</option> quero que o value do meu combo entre no action do form. como faço? obrigado moçada COMO FAÇO? TERIA QUE DECLARAR ESTA COMBOLIST?

sim estou usando. o meu problema agora é a data invertida que você acha que é?

uia deu certo. mas olha que estranho. ele inverte a pesquisa. eu faço o filtro de 01/05/2007 e ele me retorna datas 05/01/2007, ele inverte o mês e dia. andrea o que é # que você colocou na string? eu tentei resolver colocando no topo do meu codigo isso: <%Session.LCID = 1046%> mas não deu certo eu colocando esse <%Session.LCID = 1046%> eu teria que setar alguma coisa???

Viu, coloquei o campo com formato data deu td certinho. agora surgiu mais um problema quando vou pedir p me mostrar os registros do dia 01/05/2007 até 02/05/2007 ele dá essa mensagem: "Tipo de erro: Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /sam/pesquisa_relatorio.asp, line 44 " o que eu tenho que colocar no meu codigo p que isso não aconteça? isso deve ser porque eu mudei o campo de texto para data. ele deve estar tratando este campo como texto ainda não é?. me corrijam se eu estiver errado. sou meio chato mesmo, porque eu procuro entender as coisas que acontecem hehehe. valeu moçada meu code Set RS = Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação data_inicial = request("data_inicial") data_final = request("data_final") SQL = "select "& registros &" FROM "& tabela &" "&aonde&" "&e&" data between '"&data_inicial&"' and '"&data_final&"' " RS.Open SQL, conn, 3

eu coloquei como formato data. ele não aceita "0" a esquerda. eu coloco 01/05/2007 ele deixa como 1/5/2007 teria como deixar o "0" a esquerda ou é um formato único mesmo? galera já resolvi essa do 0 a esquerda na propriedade de formato eu coloquei DD/MM/YYYY agora vou testar o filtro

sim eu busco no banco. o campo data está em formato texto com máscara

Pessoal. tenho uma pagina aonde quero exibir dados de uma data inicial até uma data final meu 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/netdbf.mdb") Conn.Open DSNtest id_perfil = session("id_perfil") id_regional = session("id_regional") id_consultor = session("id_consultor") vendedor = session("vendedor") data_inicial = session("data_inicial") data_final = session("data_final") IF id_perfil = 1 THEN registros = "*" tabela = "clientes" aonde = "where id_consultor = " & session("id_consultor") ordem = "order by aprovacao" e = "and" ELSEIF id_perfil = 2 THEN registros = "*" tabela = "clientes" aonde = "where id_regional = " & session("id_regional") ordem = "order by aprovacao" e = "and" ELSEIF id_perfil = 3 THEN registros = "*" tabela = "clientes" aonde = "where" ordem = "order by aprovacao" e = "" END IF Set RS = Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação data_inicial = request("data_inicial") data_final = request("data_final") SQL = "select "& registros &" FROM "& tabela &" "&aonde&" "&e&" data between '"&data_inicial&"' and '"&data_final&"' " RS.Open SQL, conn, 3 %> tipo no meu form eu coloco a data de 01/05/2007 até 02/05/2007 mas ele filtra outras vendas também que não estão nesta data. esse é o problema. valeu moçada

ok vou tentar´! no meu insert ele coloca a barra ai vai p banco. mas acho que o problema é a mascara do banco quando eu tiro a mascara ele fica como numero inteiro no banco. ai eu fui ver um outro campo de data que esta como texto e lá não tem mascara e funciona normal com as / deu certo andrea. obrigaduuu

teria como mudar sim, mas ele diz que vai excluir 354 registros eu vou mudar td p sql. não fui eu quem fiz esse banco. mas queria resolver este problema. ele está como campo texto com mascara 99/99/9999

Galera bom dia. o meu problema é o seguinte, no meu banco no campo data tenho as datas neste formato dd/mm/aaaa, e esta como campo texto. mas na hora de exibir no asp ele me retorna ddmmaaaa sem as barras. alguém pode me ajudar? eu tentei mudar o formato do campo no banco de texto para data, mas ele vai acabar excluindo alguns registros meus. e não posso mudar. e o meu sistema está fora do ar por causa disso. alguém me ajude/! valeu

vou tentar aqui meu anjo. obrigado querida

Galera bom dia. eu gostaria de fazer um filtro nos meus registros. assim, data inicial e data final quero que me mostre todos os registros que foram incluidos da data 10/05/2006 até 10/07/2006 por exemplo. tenho dois campos de texto chamado data_inicial e outro data_final. como poderia fazer esse filtro ? de x data até y data. valeu moçada

já resolvi. obrigadao andrea

não entendi essa andrea select count(aprovacao) as total, aprovacao from clientes group by aprovacao ele vai contar o que ai?

o status das vendas est?no campo "aprovacao", como faria para ele contar as vendas que foram aprovadas, reprovadas deste campo aprovacao? SQL = "select aprovacao count(aprovada)as vendas_aprovadas, count(cancelada) as vendas_canceladas, count(pendente) as vendas_pendentes from clientes" tentei dessa forma e n?foi

Bom dia pessoal, minha duvida é como faço para fazer uma contagem dos registros que eu tenho no banco de dados. queria esta contagem total, e depois filtrar esses registros. por exemplo qtde vendas aprovadas / qtde vendas canceladas / qtde vendas pendentes eu não queria que ele me retornasse em response.write, eu quero deste tipo <%="pendentes"%> para que eu possa mover aonde eu quiser estes resultados. 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" RS.Open SQL, conn, 3 id_perfil = session("id_perfil") %> valeu moçada, abraço

já está td ok. vacilo meu valeu

Andreia acho que você está confundindo. Aquele outro tópico seria do filtro que eu queria fazer no status das vendas. Aquilo já foi resolvido. Agora o que eu quero incrementar em minha busca é ele me retornar resultados que sejam associadas ao ID que foi logado. Entendeu? Obrigado meu anjo

seguinte, tenho os perfis de usuário 1 2 3, o 3 seria o mais alto nivel. no meu buscador ele traz registros de todos os registros independente do nivel. ex. nivel 1 - vendedor quero que na pesquisa ele me retorne resultados somente do vendedor logado nivel2 - filial quero que me retorne resultados somente da filial e dos vendedores dessa filial nivel 3 - matriz. está certo. ele me retorna todos os dados de tdas as filiais e vendedores meu code não está dando problema nenhum, só quero melhorar. abraço galera !!!! <% 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/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 aprovacao" e = "and" ELSEIF id_perfil = 2 THEN registros = "*" tabela = "clientes" aonde = "where id_regional = " & session("id_regional") ordem = "order by aprovacao" e = "and" ELSEIF id_perfil = 3 THEN registros = "*" tabela = "clientes" aonde = "" ordem = "order by aprovacao" e = "" END IF Set RS = Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação opcao = Request("opcao") campo_busca = request("campo_busca") SQL = "select "& registros &" from "& tabela &" where "&opcao&" like '%"&campo_busca&"%'" RS.Open SQL, conn, 3 %>