Ir para conteúdo
Fórum CódigoFonte.net

fabio avil

Membros
  • Total de itens

    5
  • Registro em

  • Última visita

  1. fabio avil

    Exluir Cadastro

    Ola pessoal Gostaria de saber se é possivel na mesma acao do ALTERAR CADASTRO eu tb coloca uma opção pra EXCLUI-LOS segue meu codigo: <% 'Não deixa informações no Cache Response.Expires = 0 'Declaração das variáveis Dim objConn, strQuery, sql_query, RsQuery, campo, sql, autonum, strDBPath Dim razao, nomefantasia, endereco, fone, fax,celular,datafundada,iestadual,email,site, ObjRs 'Atrubuição dos valores as respectivas variáveis razao= Request.Form("razao") nomefantasia= Request.Form("nomefantasia") endereco= Request.Form("endereco") fone= Request.Form("fone") fax= Request.Form("fax") celular= Request.Form("celular") datafundada= Request.Form("datafundada") iestadual= Request.Form("iestadual") email= Request.Form("email") site= Request.Form("site") autonum = Request.Form("autonum") 'Cria o objeto RecordSet e atribui a variável Set objConn = Server.CreateObject("ADODB.Connection") 'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access... 'objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" strDBPath = Server.MapPath("contato.mdb") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" strQuery = "UPDATE contato SET razao = '"&razao &"', nomefantasia='"&nomefantasia&"', endereco='"&endereco&"', fone='"&fone&"', faz='"&fax&"',celular='"&celular&"', datafundada= '"&datafundada&"', iestadual= '"&iestadual&"', email= '"&email&"' , site= '"&site&" WHERE autonum ="&autonum 'Caso ocorra um erro esta função de erro será chamada On error Resume Next 'Executaa inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery) objConn.close '"APAGA" qualquer instancia que possa ter no objeto objRs e objConn Set objRs = Nothing Set objConn = Nothing if err = 0 Then end if %> []ços
  2. fabio avil

    Filtrar Usuarios

    Ola pessoal Estou finalizando meu sistema de cadastro aq da minha associação e nela eu tenho um cadastro de inlusoes dos devedores , nesse cadastr eu tenho os campos : EMPRESA, NOME DEVEDR, VALOR e DATA..... eu gostaria de fazer o seguinte , criar um login com o NOME DA EMPRESA e SENHA e ele acessar esse CADASTRO DE INCLUSÕES mas q aparece pra ele somente os DEVEDORES dele , entenderam?? []ço
  3. fabio avil

    Mostrar Dados

    Pessoal Bom Dia.... Seguinte, estou fazendo um ssitema de controle de producao aqui da empresa que trabalho. ele esta da seguinte forma: CAD_ACAMENTO CAD_CORTE CAD_COSTURA Todos os cadastros possuem os mesmos campos: N OP, QTDE E DATA.... eu preciso gerar uma consulta na tela que apresente ao mesmo tempo todos os processo de todas as tabelas com suas datas , qtda etc na mesma linha: Alguem pode me ajudar []ÇOS
  4. Obrigado pela atenção.. mas ja conseguiu;; []ços
  5. Galera Boa Tarde Sou novo em asp e estou com algumas dificuldade , fiz um sistem de busca mas essa dando erro de sintaxe segue o codigo: <% Dim strURL Dim cnnSearch Dim rstSearch Dim strDBPath Dim strSQL Dim strSearch inicio = Timer '#Função que tira todos os acentos das palavras function TiraAcento(StrAcento) for i = 1 to len(StrAcento) Letra = mid(StrAcento, i, 1) Select Case Letra Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä" Letra = "A" Case "é","É","ê","Ê","Ë","ë","È","è" Letra = "E" Case "í","Í","ï","Ï","Ì","ì" Letra = "I" Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò" Letra = "O" Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û" Letra = "U" Case "ç","Ç" Letra = "C" Case "ñ" Letra = "N" End Select texto = texto & Letra next TiraAcento = texto end function strURL = Request.ServerVariables("URL") strSearch = Request.QueryString("search") %><title>Cadastro em ASP com foto</title> <body bgcolor="#F4F4F4"> <table width="69%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2FFF2" height="125"> <tr> <td bgcolor="#E3E0DB" height="125"><table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td bgcolor="#F4F4F4"> <p align="center"><strong> <font face="Tahoma" style="font-size: 8pt">Digite aqui a data desejada a ser pesquisada!</font></strong></p> <form action="<%= strURL %>" method="get"> <div align="center"> <input name="search" value="<%= strSearch %>" size="11" style="font-family: Tahoma; font-size: 10 pt; border: 1px solid #808080; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" /> <input name="submit" type="submit" value="ok" style="font-family: Tahoma; font-size: 10 pt; font-weight: bold; border: 1px solid #808080; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" /> </div> </form> <p align="center"> <% If strSearch <> "" Then strDBPath = Server.MapPath("usuarios.mdb") Const adUseClient = 3 Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" cnnSearch.CursorLocation = adUseClient strSQL = "SELECT nome, empresa, autorizacao, entrada " _ & "FROM cadastro" _ & "WHERE empresa LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR email LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY saida;" Set rstSearch = cnnSearch.Execute(strSQL) intContador = rstSearch.RecordCount %> </p></td> </tr> </table> <p align="center"><font face="Tahoma"><span style="font-size: 8pt"><br> </span></font> <font face="Tahoma" style="font-size: 8pt">( Foram encontradas&nbsp;<b><%=intContador%></b> ocorrências )</font></p> <div align="center"> <table width="603" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF"> <tr> <th width="271" bgcolor="#808080" align="left"> <FONT color=#F4F4F4 face=Tahoma><STRONG> <font style="font-size: 8pt">Nome</font></STRONG></FONT></th> <th width="183" bgcolor="#808080" align="left"> <FONT color=#F4F4F4 face=Tahoma><STRONG> <font style="font-size: 8pt">Empresa</font></STRONG></FONT></th> <th width="115" bgcolor="#808080" align="left"> <FONT color=#F4F4F4 face=Tahoma><STRONG> <font style="font-size: 8pt">&nbsp;Autorização</font></STRONG></FONT></th> <th width="57" bgcolor="#808080" align="left"> <p align="center"><font color="#F4F4F4"><strong> <font face="Tahoma" style="font-size: 8pt">Entrda</font></strong></font></th> <th width="85" bgcolor="#808080" align="left"> <p align="center"><font color="#F4F4F4"><strong> <font face="Tahoma" style="font-size: 8pt">Saida</font></strong></font></th> </tr> <% Do While Not rstSearch.EOF %> <tr> <td bgcolor="#E3E0DB" width="271">&nbsp;</td> <td bgcolor="#E3E0DB" width="183"> &nbsp;</td> <td bgcolor="#E3E0DB" width="115"> &nbsp;</td> <td bgcolor="#E3E0DB" width="57"> &nbsp;</td> <td bgcolor="#E3E0DB" width="85"> &nbsp;</td> </tr> <% rstSearch.MoveNext Loop %> </table> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br> &nbsp;Sua busca foi processada em <%response.write FormatNumber( Timer - inicio, 2 )%> segundos.</font><br> <% rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing End If %> </div></td> </tr> </table> <p>&nbsp;</p> []ços
×
×
  • Criar Novo...