Sub sqldetfeat_QueryComplete (Success As Boolean, Crsr As ResultSet)
If Success=True Then
Do While Crsr.NextRow
ncjobsjobloaded.Text=Crsr.GetString("jobnr") &"/"& Crsr.GetString("partd")&"/"& Crsr.GetString("setup")&"/"& Crsr.GetString("machi")
featureselctid.Text=Crsr.GetString("unid")
Dim su As StringUtils
Dim b() As Byte = su.DecodeBase64(Crsr.GetString2(6))
Dim in As InputStream
in.InitializeFromBytesArray(b, 0, b.Length)
Dim out As OutputStream
out=File.OpenOutput("C:\temp", featureselctid.Text & ".db",False)
out.WriteBytes(b, 0, b.Length)
out.Flush
out.Close
buildselectiontree
Loop
Crsr.Close
Else
Log(LastException)
End If
End Sub