Code correction for sql restore

Chuck rwc1717 at shaw.ca
Tue Aug 5 17:06:24 CDT 2003


Hi Ruslan:
Minor correction after seeing a few records duplicated by not stepping the ' i ' integer 
at least by one

for i = 1 to len(s)
	IF MID(S,I,6) = "INSERT" THEN
		n = Instr(i,s,");")
		u = trim(mid(s,i,n-i+1))
		i = i + 1 
		j = mDb.SQLExecute(u)
	END IF
next	

mDB.flush

Sorry...no enough experimentation......
Thanks Chuck






More information about the Valentina mailing list