Atualizar dados no SQL Server

#1

Bom dia, tenho uma aplicação que preciso salvar, alterar e excluir os registros no banco de dados, a inserção e a exclusão estão funcionando corretamente, mas o comando de alterar não funciona, seguem os códigos:
Botão de Salvar:
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto01”, Screen.Item(“TxtNome01”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto01”, Screen.Item(“TxtCod01”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto02”, Screen.Item(“TxtNome02”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto02”, Screen.Item(“TxtCod02”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto03”, Screen.Item(“TxtNome03”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto03”, Screen.Item(“TxtCod03”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto04”, Screen.Item(“TxtNome04”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto04”, Screen.Item(“TxtCod04”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto05”, Screen.Item(“TxtNome05”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto05”, Screen.Item(“TxtCod05”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto06”, Screen.Item(“TxtNome06”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto06”, Screen.Item(“TxtCod06”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto07”, Screen.Item(“TxtNome07”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto07”, Screen.Item(“TxtCod07”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto08”, Screen.Item(“TxtNome08”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto08”, Screen.Item(“TxtCod08”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto09”, Screen.Item(“TxtNome09”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto09”, Screen.Item(“TxtCod09”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto10”, Screen.Item(“TxtNome10”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto10”, Screen.Item(“TxtCod10”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto11”, Screen.Item(“TxtNome11”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto11”, Screen.Item(“TxtCod11”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto12”, Screen.Item(“TxtNome12”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto12”, Screen.Item(“TxtCod12”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto13”, Screen.Item(“TxtNome13”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto13”, Screen.Item(“TxtCod13”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto14”, Screen.Item(“TxtNome14”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto14”, Screen.Item(“TxtCod14”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto15”, Screen.Item(“TxtNome15”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto15”, Screen.Item(“TxtCod15”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto16”, Screen.Item(“TxtNome16”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto16”, Screen.Item(“TxtCod16”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto17”, Screen.Item(“TxtNome17”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto17”, Screen.Item(“TxtCod17”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto18”, Screen.Item(“TxtNome18”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto18”, Screen.Item(“TxtCod18”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto19”, Screen.Item(“TxtNome19”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto19”, Screen.Item(“TxtCod19”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto20”, Screen.Item(“TxtNome20”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto20”, Screen.Item(“TxtCod20”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto21”, Screen.Item(“TxtNome21”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto21”, Screen.Item(“TxtCod21”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto22”, Screen.Item(“TxtNome22”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto22”, Screen.Item(“TxtCod22”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto23”, Screen.Item(“TxtNome23”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto23”, Screen.Item(“TxtCod23”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto24”, Screen.Item(“TxtNome24”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto24”, Screen.Item(“TxtCod24”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto25”, Screen.Item(“TxtNome25”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto25”, Screen.Item(“TxtCod25”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto26”, Screen.Item(“TxtNome26”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto26”, Screen.Item(“TxtCod26”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto27”, Screen.Item(“TxtNome27”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto27”, Screen.Item(“TxtCod27”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto28”, Screen.Item(“TxtNome28”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto28”, Screen.Item(“TxtCod28”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto29”, Screen.Item(“TxtNome29”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto29”, Screen.Item(“TxtCod29”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto30”, Screen.Item(“TxtNome30”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto30”, Screen.Item(“TxtCod30”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto31”, Screen.Item(“TxtNome31”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto31”, Screen.Item(“TxtCod31”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto32”, Screen.Item(“TxtNome32”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto32”, Screen.Item(“TxtCod32”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto33”, Screen.Item(“TxtNome33”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto33”, Screen.Item(“TxtCod33”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto34”, Screen.Item(“TxtNome34”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto34”, Screen.Item(“TxtCod34”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto35”, Screen.Item(“TxtNome35”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto35”, Screen.Item(“TxtCod35”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto36”, Screen.Item(“TxtNome36”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto36”, Screen.Item(“TxtCod36”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto37”, Screen.Item(“TxtNome37”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto37”, Screen.Item(“TxtCod37”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto38”, Screen.Item(“TxtNome38”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto38”, Screen.Item(“TxtCod38”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto39”, Screen.Item(“TxtNome39”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto39”, Screen.Item(“TxtCod39”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto40”, Screen.Item(“TxtNome40”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto40”, Screen.Item(“TxtCod40”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto41”, Screen.Item(“TxtNome41”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto41”, Screen.Item(“TxtCod41”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto42”, Screen.Item(“TxtNome42”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto42”, Screen.Item(“TxtCod42”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto43”, Screen.Item(“TxtNome43”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto43”, Screen.Item(“TxtCod43”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto44”, Screen.Item(“TxtNome44”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto44”, Screen.Item(“TxtCod44”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto45”, Screen.Item(“TxtNome45”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto45”, Screen.Item(“TxtCod45”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto46”, Screen.Item(“TxtNome46”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto46”, Screen.Item(“TxtCod46”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto47”, Screen.Item(“TxtNome47”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto47”, Screen.Item(“TxtCod47”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto48”, Screen.Item(“TxtNome48”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto48”, Screen.Item(“TxtCod48”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto49”, Screen.Item(“TxtNome49”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto49”, Screen.Item(“TxtCod49”).Value
Screen.Item(“UPDATE”).SetVariableValue “NomeProduto50”, Screen.Item(“TxtNome50”).Value
Screen.Item(“UPDATE”).SetVariableValue “CodProduto50”, Screen.Item(“TxtCod50”).Value
Screen.Item(“UPDATE”).Execute(TRUE)

MsgBox "Receita alterada! ", vbOKOnly + vbInformation, ""

Código na Consulta inserida na tela:
UPDATE Receitas
SET NomeProduto01 = ‘<%NomeProduto01%>’,
CodProduto01 = ‘<%CodProduto01%>’,
NomeProduto02 = ‘<%NomeProduto02%>’,
CodProduto02 = ‘<%CodProduto02%>’,
NomeProduto03 = ‘<%NomeProduto03%>’,
CodProduto03 = ‘<%CodProduto03%>’,
NomeProduto04 = ‘<%NomeProduto04%>’,
CodProduto04 = ‘<%CodProduto04%>’,
NomeProduto05 = ‘<%NomeProduto05%>’,
CodProduto05 = ‘<%CodProduto05%>’,
NomeProduto06 = ‘<%NomeProduto06%>’,
CodProduto06 = ‘<%CodProduto06%>’,
NomeProduto07 = ‘<%NomeProduto07%>’,
CodProduto07 = ‘<%CodProduto07%>’,
NomeProduto08 = ‘<%NomeProduto08%>’,
CodProduto08 = ‘<%CodProduto08%>’,
NomeProduto09 = ‘<%NomeProduto09%>’,
CodProduto09 = ‘<%CodProduto09%>’,
NomeProduto10 = ‘<%NomeProduto10%>’,
CodProduto10 = ‘<%CodProduto10%>’,
NomeProduto11 = ‘<%NomeProduto11%>’,
CodProduto11 = ‘<%CodProduto11%>’,
NomeProduto12 = ‘<%NomeProduto12%>’,
CodProduto12 = ‘<%CodProduto12%>’,
NomeProduto13 = ‘<%NomeProduto13%>’,
CodProduto13 = ‘<%CodProduto13%>’,
NomeProduto14 = ‘<%NomeProduto14%>’,
CodProduto14 = ‘<%CodProduto14%>’,
NomeProduto15 = ‘<%NomeProduto15%>’,
CodProduto15 = ‘<%CodProduto15%>’,
NomeProduto16 = ‘<%NomeProduto16%>’,
CodProduto16 = ‘<%CodProduto16%>’,
NomeProduto17 = ‘<%NomeProduto17%>’,
CodProduto17 = ‘<%CodProduto17%>’,
NomeProduto18 = ‘<%NomeProduto18%>’,
CodProduto18 = ‘<%CodProduto18%>’,
NomeProduto19 = ‘<%NomeProduto19%>’,
CodProduto19 = ‘<%CodProduto19%>’,
NomeProduto20 = ‘<%NomeProduto20%>’,
CodProduto20 = ‘<%CodProduto20%>’,
NomeProduto21 = ‘<%NomeProduto21%>’,
CodProduto21 = ‘<%CodProduto21%>’,
NomeProduto22 = ‘<%NomeProduto22%>’,
CodProduto22 = ‘<%CodProduto22%>’,
NomeProduto23 = ‘<%NomeProduto23%>’,
CodProduto23 = ‘<%CodProduto23%>’,
NomeProduto24 = ‘<%NomeProduto24%>’,
CodProduto24 = ‘<%CodProduto24%>’,
NomeProduto25 = ‘<%NomeProduto25%>’,
CodProduto25 = ‘<%CodProduto25%>’,
NomeProduto26 = ‘<%NomeProduto26%>’,
CodProduto26 = ‘<%CodProduto26%>’,
NomeProduto27 = ‘<%NomeProduto27%>’,
CodProduto27 = ‘<%CodProduto27%>’,
NomeProduto28 = ‘<%NomeProduto28%>’,
CodProduto28 = ‘<%CodProduto28%>’,
NomeProduto29 = ‘<%NomeProduto29%>’,
CodProduto29 = ‘<%CodProduto29%>’,
NomeProduto30 = ‘<%NomeProduto30%>’,
CodProduto30 = ‘<%CodProduto30%>’,
NomeProduto31 = ‘<%NomeProduto31%>’,
CodProduto31 = ‘<%CodProduto31%>’,
NomeProduto32 = ‘<%NomeProduto32%>’,
CodProduto32 = ‘<%CodProduto32%>’,
NomeProduto33 = ‘<%NomeProduto33%>’,
CodProduto33 = ‘<%CodProduto33%>’,
NomeProduto34 = ‘<%NomeProduto34%>’,
CodProduto34 = ‘<%CodProduto34%>’,
NomeProduto35 = ‘<%NomeProduto35%>’,
CodProduto35 = ‘<%CodProduto35%>’,
NomeProduto36 = ‘<%NomeProduto36%>’,
CodProduto36 = ‘<%CodProduto36%>’,
NomeProduto37 = ‘<%NomeProduto37%>’,
CodProduto37 = ‘<%CodProduto37%>’,
NomeProduto38 = ‘<%NomeProduto38%>’,
CodProduto38 = ‘<%CodProduto38%>’,
NomeProduto39 = ‘<%NomeProduto39%>’,
CodProduto39 = ‘<%CodProduto39%>’,
NomeProduto40 = ‘<%NomeProduto40%>’,
CodProduto40 = ‘<%CodProduto40%>’,
NomeProduto41 = ‘<%NomeProduto41%>’,
CodProduto41 = ‘<%CodProduto41%>’,
NomeProduto42 = ‘<%NomeProduto42%>’,
CodProduto42 = ‘<%CodProduto42%>’,
NomeProduto43 = ‘<%NomeProduto43%>’,
CodProduto43 = ‘<%CodProduto43%>’,
NomeProduto44 = ‘<%NomeProduto44%>’,
CodProduto44 = ‘<%CodProduto44%>’,
NomeProduto45 = ‘<%NomeProduto45%>’,
CodProduto45 = ‘<%CodProduto45%>’,
NomeProduto46 = ‘<%NomeProduto46%>’,
CodProduto46 = ‘<%CodProduto46%>’,
NomeProduto47 = ‘<%NomeProduto47%>’,
CodProduto47 = ‘<%CodProduto47%>’,
NomeProduto48 = ‘<%NomeProduto48%>’,
CodProduto48 = ‘<%CodProduto48%>’,
NomeProduto49 = ‘<%NomeProduto49%>’,
CodProduto49 = ‘<%CodProduto49%>’,
NomeProduto50 = ‘<%NomeProduto50%>’,
CodProduto50 = ‘<%CodProduto50%>’
WHERE ID = <%ID%>;

acredito ser um erro mínimo que não estou conseguindo ver.

#2

Aparentemente, falta apenas garantir que o ID receba um valor válido para dar condição ao cláusula WHERE.

Sub btnUpdate_Click()
	Dim i
	Dim s
	Dim id
	Dim oQuery : Set oQuery = Screen.Item("UPDATE")
	
	Me.SetFocus()
	
	For i = 1 To 50
		' Formata numero em 2 digitos, e.g.: 01, 02, ..., 50 para nao precisar
		' repetir o script diversas vezes.
		s = Right("0" & i, 2)
		
		oQuery.SetVariableValue "NomeProduto" & s, Screen.Item("txtNome" & s).Value
		oQuery.SetVariableValue "CodProduto" & s, Screen.Item("txtCod" & s).Value
	Next
	
	' Aguarda input do ID do tipo numero caso nao exista
	' um campo de texto na tela de operacao.
	Do
    	id = InputBox("Insira o ID", , 1)
  	Loop Until IsNumeric( id )
  	
  	' Define ID
	oQuery.SetVariableValue "ID", id
	
	oQuery.Execute( True )
End Sub
1 Like