I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2
AndreaR
AndreaR
il 20 febbraio 2006 alle 10:42
8 messaggi dal 26 gennaio 2005
www.gestioneprotocollo.net
Risolto così, drammaticamente semplice.... boh! 

Dim rsTemp 
set rsTemp = Server.CreateObject("ADODB.RecordSet") 
rsTemp.Open "select * from MaterialTemp where Id_Usuario="&Session("Id_Usuario") , baseDB, 3,3 
if not rsTemp.EOF then 
Dim strsqlDev
set rsDev = Server.CreateObject("ADODB.RecordSet") 
rsDev.Open "MaterialDevuelto" , baseDB, 3,3
while not rsTemp.EOF 
rsDev.AddNew
rsDev("Id_Devolucion")=identificador
rsDev("Referencia")=rsTemp("Referencia")
rsDev("Upn")=rsTemp("Upn")
rsDev("Nombre")=rsTemp("Nombre")
rsDev("Lote")=rsTemp("Lote")
rsDev("FechaCaducidad")=rsTemp("FechaCaducidad")
rsDev("Unidades")=rsTemp("Unidades")
rsDev("Estado")=rsTemp("Estado")
rsTemp.MoveNext 
wend
rsDev.Update
end if


Grazie a tutti lo stesso!
RispondiQuoting
BrightSoul
BrightSoul
il 20 febbraio 2006 alle 14:45
11.886 messaggi dal 09 febbraio 2002
Contributi

Provato anche così, non da errori ma non salva nella seconda tabella... le tabelle sono simili ma non uguali.

non ha importanza, puoi decidere tu quali campi prendere.
Guarda, te la cavi con 1 riga. Semplice e con il massimo della performance.

baseDB.Execute "INSERT INTO MaterialDevuelto (ID_Devolucion, Referencia, Upn, Nombre, Lote, FechaCaducidad, Unidaded, Estado) SELECT " & identificador & " as identificador, Referencia, Upn, Nombre, Lote, FechaCaducidad, Unidaded, Estado FROM MaterialTemp where Id_Usuario="&Session("Id_Usuario")


Modificato da BrightSoul il 20 febbraio 2006 14.46 -
Enjoy learning and just keep making
RispondiQuoting
1 2

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.