Ir para conteúdo
Fórum Script Brasil

Carolline

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre Carolline

Carolline's Achievements

0

Reputação

  1. rsrs obrigado pela dica mas já consegui resolver meu problema e ainda ficou bem mais simples o codigo rsrs vou postar um pedaço caso seja a duvida de outros ne lookrev = "SELECT Revendedor, Produto, Quantidade FROM Precos WHERE Revendedor = '" & strRevendedor &"' and Produto = '" & strProduto & "' and Quantidade = '" & strQuantidade & "' " set rst = conexao.execute(lookrev) If rst.eof then conexao.execute "insert into Precos(Revendedor, Produto, Quantidade, PrecoRevendedor, PrecoMaster)" & _ "values('" & strRevendedor & "','" & strProduto & "','" & strQuantidade & "','" & strPrecoRevendedor & "','" & strPrecoMaster & "')" else conexao.execute "update Precos SET PrecoRevendedor = '" & strPrecoRevendedor & "', PrecoMaster = '" & strPrecoMaster & "' " & _ " WHERE Revendedor = '" & strRevendedor & "' and Produto = '" & strProduto & "' and Quantidade = '" & strQuantidade & "' " end if
  2. oláaaa consegui dar uma melhorada já hehe vou postar o codigo intero agora mas o problema que ele entra direto no primeiro insert =/ por favor help me rsrs já que editei o post vou explicar o problema de novo rsrs é um sistema para uma empresa de bordado o que esse script deveria fzer: procurar pra ver já tem o nome do revendedor na tabela, se não tiver faz o primeiro insert caso tenha, procura pra ver se tem o produto, se não tiver faz o segundo insert caso tenha também, procura pra ver se tem a quantidade estipulada, se não tiver faz o terceiro insert caso tenha os 3, faz update do preço do revendedor e do master na linha que teria o revendedor,produto e quantidade(pegos no form) obrigada de novo rsrs espero que vocês tenham paciencia não que seja de proposito, mas sou iniciante rsrs bjins <% Dim Revendedor : Revendedor = Request.Form("txtRevendedores") Dim Produto : Produto = Request.Form("Produto") Dim Quantidade : Quantidade = Request.Form("Quantidade") Dim PrecoRevendedor : PrecoRevendedor = Request.Form("PrecoRevendedor") Dim PrecoMaster : PrecoMaster = Request.Form("PrecoMaster") Dim rstlook1 : Set rstlook1 = Server.CreateObject("ADODB.Recordset") Dim rstlook2 : Set rstlook2 = Server.CreateObject("ADODB.Recordset") Dim rstlook3 : Set rstlook3 = Server.CreateObject("ADODB.Recordset") %> <!--#include file="inc/conexao.asp"--> <% lookrev = "select Revendedor from Precos where Revendedor = 'Revendedor' " lookprod = "select Produto from Precos where Produto = 'Produto' " lookqnt = "select Quantidade from Precos where Quantidade = 'Quantidade' " set rstlook1 = conexao.execute(lookrev) set rstlook2 = conexao.execute(lookprod) set rstlook3 = conexao.execute(lookqnt) If rstlook1.eof = true then conexao.execute "insert into Precos(Revendedor, Produto, Quantidade, PrecoRevendedor, PrecoMaster)" & _ "values('" & Revendedor & "','" & Produto & "','" & Quantidade & "','" & PrecoRevendedor & "','" & PrecoMaster & "')" else If rstlook2.eof = true then conexao.execute "insert into Precos(Revendedor, Produto, Quantidade, PrecoRevendedor, PrecoMaster)" & _ "values('" & Revendedor & "','" & Produto & "','" & Quantidade & "','" & PrecoRevendedor & "','" & PrecoMaster & "')" else If rstlook3.eof = true then conexao.execute "insert into Precos(Revendedor, Produto, Quantidade, PrecoRevendedor, PrecoMaster)" & _ "values('" & Revendedor & "','" & Produto & "','" & Quantidade & "','" & PrecoRevendedor & "','" & PrecoMaster & "')" else conexao.execute "update Precos SET PrecoRevendedor = '" & PrecoRevendedor & "', PrecoMaster = '" & PrecoMaster & "' " & _ " WHERE Revendedor = '" & Revendedor & "' and Produto = '" & Produto & "' and Quantidade = '" & Quantidade & "' " end if end if end if conexao.close set conexao = nothing %> obs: aprendi a editar o post hehe ai tirei o anterior brigadaaaaaaaaaaa
×
×
  • Criar Novo...