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, 8 Mar a 7:49 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='{MiValor}'";
  IItem MiObjetoCab = (IItem)gCn.Obj.DameObjStr("NombreObjeto");
  IRecordSet RS = (IRecordSet)gCn.OpenResultSet(lSQL);
  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);
}