none
duvida ! RRS feed

  • Pergunta

  •  

    Tenho uma duvida como que eu faço uma ação para usar o mesmo botão tanto para gravar como para alterar o cadastro depois da busca .

    Estou fazendo assim ?

    No formulario empresa fiz um : <input name="acao" type="hidden" id="acao" value="buscar"/>

     

    E fiz assim tb.

     

     

      Dim acao               : acao            = Request.Form("acao")

     IF acao = "buscar" THEN
      
      SQL = "SELECT ID_EMPRESA, RAZAO_SOCIAL, NOME_FANTASIA, CEP, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, EMAIL, TELEFONE FROM EMPRESA"

     ELSEIF

      SQL1 = "UPDATE ID_EMPRESA FROM EMPRESA WHERE = "&ID_EMPRESA&""
     
     END IF

     %>

     

    Mas não funciona alguém pode me ajudar.

     

     

    Abraço.

     

    Emerson Sobral

    sexta-feira, 26 de outubro de 2007 16:39

Todas as Respostas

  • Emerson, pelos meus conhecimentos, padrao de linguagen voce nao tem como fazer isso, agora vai POG (Programaçao Orientada a Gambiarra) até teria mas mesmo assim tenho minhas dúvidas se iria realmente funcionar, pois voce teria que definir um campo tipo hidden, e fazer com que o usuário clica-se em alguma "parte" que fizesse ter certeza que ele quer atualizar ou buscar, ai voce jogaria um status para o campo hidden, antes de usuário clicar na açao. Particularmente acho que nao seja a melhor maneira ainda que pode gerar defeitos na aplicaçao.

     

    Agora, se voce precisa atualizar alguma coisa na busca, coloca um link de update em cada item encontrado na busca e abre um pop up pra fazer a atualizaçao necessária, acho que ficaria melhor, é só uma idéia.

     

    Qualquer coisa manda o link da pagina para verificar como esta, ai fica melhor pra entender o que voce quer fazer.

     

    Abraços

     

    Estevam

    segunda-feira, 29 de outubro de 2007 13:02
  • Olá Estevam .

     

    qual seria a melhor maneira de fazer o bnt_alteração ?:

    Olha meu cod !

     

    </script> 

     <%
     
        Dim cod_empresa    : cod_empresa    = Request.Form("txt_codigo")
     Dim Nome_Fantasia  : Nome_Fantasia  = Request.Form("txt_fantasia")
     Dim Razao_Social   : Razao_Social   = Request.Form("txt_razao")
     Dim Endereco       : Endereco       = Request.Form("text_endereco")
     Dim Cep            : Cep            = Request.Form("txt_cep")
     Dim Numero         : Numero         = Request.Form("text_numero")
     Dim Complemento    : Complemento    = Request.Form("text_complemento")
     Dim Bairro         : Bairro         = Request.Form("text_bairro")
     Dim Estado         : Estado         = Request.Form("Estado")
     Dim Cidade         : Cidade         = Request.Form("txt_cidade")
     Dim E_mail         : E_mail         = Request.Form("txt_email")
     Dim Telefone       : Telefone       = Request.Form("txt_telefone")
     Dim acao        : acao           = Request.Form("acao")

     IF acao = "gravar" THEN
      
      SQL = "INSERT INTO EMPRESA(ID_EMPRESA, Razao_Social, Nome_Fantasia, Endereco, Cep, Numero, Complemento, Bairro, Estado, Cidade, Email, Telefone) VALUES("&cod_empresa&",'"&Nome_Fantasia&"','"&Razao_Social&"','"&Endereco&"','"&Cep&"','"&Numero&"','"&Complemento&"','"&Bairro&"','"&Estado&"','"&Cidade&"','"&E_mail&"','"&Telefone&"')"

     ELSEIF acao = "alterar " then

      SQL = "UPDATE ID_EMPRESA FROM EMPRESA WHERE = "&cod_empresa&""
     
     END IF
     
     'SET RS = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.
      
     'IF RS.EOF THEN
         'Response.Redirect("incluir1.asp")
      'ELSE
      'Response.Redirect("incluir2.asp")
     'END IF
     %>

    segunda-feira, 29 de outubro de 2007 16:30
  • Emerson voce nao tem esta pagina já online em algum provedor, para poder analisar melhor?

     

    Abraços

     

    Estevam

    segunda-feira, 29 de outubro de 2007 17:12
  •  

    Poxa Estevam ainda não !!!

     

    Só local !

     

    Abraço.

     

    Emerson Sobral

    segunda-feira, 29 de outubro de 2007 18:30
  • Ja debugou o codigo pra ver se ele tras a ação?

    Porque você nao tenta trabalhar com o controle LAbel para fazer as condições?

    Isso da pra fazer sim cara, só nao sei no momento o cenário real do problema.
    quinta-feira, 1 de novembro de 2007 11:26
  • Então o que acontece como que eu faço para conseguir fazer atualizar o cadastro no meu botão to fazendo assim, mas ta com erro .

    Isso aqui esta na minha pagina empresa.asp

     


     <%
     
        Dim cod_empresa    : cod_empresa    = Request.Form("txt_codigo")
     Dim Nome_Fantasia  : Nome_Fantasia  = Request.Form("txt_fantasia")
     Dim Razao_Social   : Razao_Social   = Request.Form("txt_razao")
     Dim Endereco       : Endereco       = Request.Form("text_endereco")
     Dim Cep            : Cep            = Request.Form("txt_cep")
     Dim Numero         : Numero         = Request.Form("text_numero")
     Dim Complemento    : Complemento    = Request.Form("text_complemento")
     Dim Bairro         : Bairro         = Request.Form("text_bairro")
     Dim Estado         : Estado         = Request.Form("Estado")
     Dim Cidade         : Cidade         = Request.Form("txt_cidade")
     Dim E_mail         : E_mail         = Request.Form("txt_email")
     Dim Telefone       : Telefone       = Request.Form("txt_telefone")
     Dim acao        : acao           = Request.Form("acao")

     IF acao = "gravar" THEN
      
      SQL = "INSERT INTO EMPRESA(ID_EMPRESA, Razao_Social, Nome_Fantasia, Endereco, Cep, Numero, Complemento, Bairro, Estado, Cidade, Email, Telefone) VALUES("&cod_empresa&",'"&Nome_Fantasia&"','"&Razao_Social&"','"&Endereco&"','"&Cep&"','"&Numero&"','"&Complemento&"','"&Bairro&"','"&Estado&"','"&Cidade&"','"&E_mail&"','"&Telefone&"')"

     ELSEIF acao = "alterar " then

      SQL = "UPDATE ID_EMPRESA FROM EMPRESA WHERE = "&cod_empresa&""
      
     END IF
     
     'SET RS = conexao.execute(SQL)' SET RS_BUSCA RECOR SET = MINHA CONEXÃO EXECUTE O MEU COMANDO SQL.
      
     'IF RS.EOF THEN
        'Response.Redirect("incluir1.asp")
      'ELSE
      'Response.Redirect("incluir2.asp")
     'END IF
     %>
     

     

    abraço..

     

    Emerson Sobral

    quinta-feira, 1 de novembro de 2007 11:46