All pastes #491404 Raw Edit

Something

public text v1 · immutable
·published 2007-05-16 17:12 UTC
rendered paste body
'***************************************
' variabile care trebuie setate

Dim strOpenInFolder	' directorul unde se afla fisierele de import

	rstTemp.Open "SELECT * FROM DialAlt WHERE AltID < 0", DbConnection, adOpenKeyset, adLockOptimistic

while not rstDialAltEmpty.EOF
rstTemp.AddNew
rstTemp("AltID") = rstDialAltEmpty("AltID")