25 messaggi dal 27 febbraio 2002
come posso trasformare questo update con un update in sql?
visto che il db è un file excel

grazie ciao


Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "fatture"


Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = objConn
objRS.CursorType = 3 'Static cursor.
objRS.LockType = 2 'Pessimistic Lock.
objRS.Source = "select * from prova"
objRS.Open

'The update is made here
objRS.MoveFirst

objRS.Fields(4).Value = nfatt
objRS.Fields(6).Value = giornofatt&"/"&mesefatt&"/"&annofatt
objRS.Fields(7).Value = societa

objRS.Update

objRS.Movenext

objRS.Fields(4).Value = nordina
objRS.Fields(7).Value = attenzione

objRS.Update

objRS.Movenext

objRS.Fields(4).Value = idcliente
objRS.Fields(7).Value = indirizzo

objRS.Update

objRS.Movenext

objRS.Fields(3).Value = piva
objRS.Fields(7).Value = cap &" - "& citta

objRS.Update

objRS.Movenext

objRS.Fields(4).Value = ddtn

objRS.Update

objRS.Movenext

objRS.Fields(5).Value = spedizione

objRS.Update

objRS.Movenext

objRS.Fields(4).Value = porto
objRS.Fields(6).Value = imballo

objRS.Update

objRS.Movenext

objRS.Fields(2).Value = "Pos."
if valuta="" then
valuta="Euro"
valuta1="e"
end if
objRS.Fields(8).Value= "Imp. unitario " &valuta
objRS.Fields(9).Value= "Importo Totale " &valuta

objRS.Update



for indice=0 to ubound(arraypro, 2)

objRS.Movenext
objRS.Fields(2).value = arraypro(1, indice)
objRS.Fields(3).value = arraypro(5, indice)
objRS.Fields(7).value = arraypro(2, indice)
objRS.Fields(8).value = arraypro(4, indice)
objRS.Fields(9).value = arraypro(7, indice)
objRS.Update

next

if indice<6 then

for i=indice to 6
objRS.movenext
objRS.Fields(2).Value = " "
objRS.Fields(3).Value = " "
objRS.Fields(7).Value = " "
objRS.Fields(8).Value = " "
objRS.Fields(9).Value = " "
objRS.Update
next

end if

objRS.movenext
objRS.Fields(2).Value = "Note: "
objRS.Fields(3).Value = note
objRS.Fields(7).Value = " "
objRS.Fields(8).Value = " "
objRS.Fields(9).Value = " "
objRS.Update

objRS.Movenext

objRS.Fields(5).Value = pagamento
objRS.Update


objRS.Movenext

objRS.Fields(2).Value = "Imponibile "&valuta
if valuta="" then
valuta= "Euro"
end if

objRS.Fields(6).Value= "Importo Iva "&valuta
objRS.Fields(8).Value= "Totale Fattura "&valuta


objRS.Update

objRS.Movenext

objRS.Fields(2).Value = imponibilee
objRS.Fields(5).Value = iva
objRS.Fields(6).Value = impivae
objRS.Fields(8).Value = totalee
objRS.Update


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.