[[resolvido] Ajuda Com Update No Banco De Dados (sql)]

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

[[resolvido] Ajuda Com Update No Banco De Dados (sql)]

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