duvida !

Question

 

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

Answer 1

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

Answer 2

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
 %>

Answer 3

Emerson voce nao tem esta pagina já online em algum provedor, para poder analisar melhor?

 

Abraços

 

Estevam

Answer 4

 

Poxa Estevam ainda não !!!

 

Só local !

 

Abraço.

 

Emerson Sobral

Answer 5

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.

Answer 6

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