Ejemplo de uso de ResultSet para crear objetos con información recogida del resultado de una consulta SQL

Creado por Pablo Céspedes, Modificado el Vie, 25 Abr a 7:45 A. M. por Pablo Céspedes

Código C#:

public void RecorrerResultSet()
{
    Valor MiValor = ((ITextoUsuario)gForm.Controls["NombreDelControlTexto"]).Value;
    string lSQL = $"Select Campo1, Campo2 from Tabla Where CampoAFiltrar=@p0";
    IItem MiObjetoCab = (IItem)gCn.Obj.DameObjStr("NombreObjeto");
    IRecordSet RS = (IRecordSet)gCn.OpenResultSet(lSQL, new Valor[] { MiValor });
    if (RS != null)
    {
        MiObjetoCab["Propiedad"] = MiValor;
        if (!MiObjetoCab.Update())
        {
            gCn.Obj.ShowMsgBox("Error al guardar el objeto", VbMsgBoxStyle.vbCritical, "Error");
            return;
        }
        IItem Linea = null;
        while (!RS.EOF)
        {
            Linea = MiObjetoCab.Objetos["ColeccionHija"].Add();
            Linea["Propiedad1"] = RS["Campo1"].Value;
            Linea["Propiedad2"] = RS["Campo2"].Value;
            if (!Linea.Update())
            {
                gCn.Obj.ShowMsgBox("Error al guardar la línea", VbMsgBoxStyle.vbCritical, "Error");
                return;
            }
            RS.MoveNext();
        }
    }
    MiObjetoCab.Show(gForm, true, false);
}