ED - Claret
|
SÃO JOSE DO RIO PRETO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 20/02/2011 13:12 hs
Olá amigos...
Preciso dar um UPDATE na cláusula abaixo; já tentei de tudo mas só fracassei..
For vr = 0 To Contar - 1
If vr = 0 Then bd.Execute "INSERT INTO Tbltmp(Numero, Item" & vr & ") SELECT [_LancCampo].Numero, [_LancCampo].Valor FROM CadParametros INNER JOIN _LancCampo ON CadParametros.Parametros = [_LancCampo].Parametros GROUP BY [_LancCampo].Numero, [_LancCampo].Ponto, [_LancCampo].Parametros, [_LancCampo].Valor, CadParametros.Ordem " & _
"Having ((([_LancCampo].Numero) = " & Alter(Numeros(vr)) & ") And (([_LancCampo].Ponto) = " & Alter(Pontos(vr)) & ")) ORDER BY CadParametros.Ordem;"
'If vr > 0 Then bd.Execute "UPDATE Tbltmp SET (Numero, Item" & vr & ") SELECT [_LancCampo].Numero, [_LancCampo].Valor FROM CadParametros INNER JOIN _LancCampo ON CadParametros.Parametros = [_LancCampo].Parametros GROUP BY [_LancCampo].Numero, [_LancCampo].Ponto, [_LancCampo].Parametros, [_LancCampo].Valor, CadParametros.Ordem " & _
"Having ((([_LancCampo].Numero) = " & Alter(Numeros(vr)) & ") And (([_LancCampo].Ponto) = " & Alter(Pontos(vr)) & ")) ORDER BY CadParametros.Ordem;"
'**********************************
If vr > 0 then "UPDATE.............."
'***********************************
Next vr
GRANDE ABRAÇO
|
|
|
|
|
|
|
|
Postada em 21/02/2011 09:37 hs
Esse codigo ta na maior bagunça; tenta melhorar, nao da pra entender.
|
|
|
|
ED - Claret
|
SÃO JOSE DO RIO PRETO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/02/2011 10:09 hs
Juan... vou simplificar...
tenho um tabela temporaria:
tblTmp::: - Numero - Item1 - Item2 - Item3 - Item4
tenho outra onde deverá trasnferir seus registros para a temporária(conforme o codigo bagunçado acima)
tblOrigem::: - Numero - Ponto - Valor
exemplo da tblOrigem
Numero Ponto - Valor
00001 AFL 0,3
00001 AFL 0,2
00001 TTT 0,8
00001 RJU 1,2
00001 bbb 10
00001 bbb 20
00002 ...... sucessivamente
00002
00003
......
EU FILTRO O NUMERO "00001"
E QUERO TRANSFERIR OS DADOS PARA A TBLTMP DA SEGUINTE FORMA
Numero _ campo1 - Campo2 - Campo3 - Campo4
00001 AFL TTT RJU bbb
00001 0,3 0,8 1,2 10
00001 0,2 20
00001
preciso aninhar os valores, entendeu?
Caso tenha outra idéia, ela será bem vinda
Grande abraço
|
|
|
|
|
