dr.X
|
BELO HORIZONTE
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 20/08/2007 17:21 hs
Bom, o problema é o seguinte: Faço uma consulta por intervalo de data e lanço nesta tabela o preço atualizado e que ao mesmo tempo copia estes preços para uma segunda tabela. Eu faço um loop e até aí tudo bem, porém na tabela 3 que é a tabela origem eu não consigo atualizar com o novo valor. Agluém teria uma solução para me ajudar ??? Desde já agradeço. |
|
|
|
|
|
JOM
|
BOM JESUS DA LAPA
BA - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 20/08/2007 21:58 hs
|
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/08/2007 10:13 hs
"update tabela set valor = " & cdbl(txtvalor.text) where condicao |
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/08/2007 10:14 hs
"update tabela set valor = " & cdbl(txtvalor.text) & " where codigo=" & txtcodigo |
|
|
|
dr.X
|
BELO HORIZONTE
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/08/2007 15:36 hs
JOM, aí vai o código. Repara não, pois sou iniciante.  Bom, com esse código eu consigui atualizar a segunda linha, porém a primeira neca de catibiriba. Nem com "moveMin". Dá uma luz aí amigão. Obrigado pela atenção dos colegas do Fórum. Conectar Set rsReajuste.ActiveConnection = con
rsReajuste.Open "Select * from LOCACAO" Set rsReaj.ActiveConnection = con
rsReaj.Open "Select * from IMOVEL where id_Imovel = '" & rsReajuste.Fields("ID_IMO") & "'", con, adOpenStatic, adLockOptimistic
rsReaj.MoveMin Do Until rsReajuste.EOF
lblIMO.Caption = rsReajuste.Fields("ID_IMO")
If rsReaj.Fields(1) = lblIMO.Caption Then
rsReaj.Fields(7) = rsReajuste.Fields("VALOR")
End If
rsReajuste.MoveNext
Loop rsReaj.Update |
|
|
|
Jonas
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/08/2007 19:20 hs
Para comandos update, você deve colocar o valor substituindo a vírgula por ponto.
'Ex: 1.250,89 para 1250.89
strValor = format(valor, "####0.00")'formata o valor sem separador de milhares e com vírgula para decimais
strValor = replace(strValor, ",", ".")'substitui virgula por ponto
"update tabela set valor = " & strValor & " where codigo=" & txtcodigo
|
|
|
|
