El Control DataGridView lanza una System.ArgumentOutOfRangeException al recorrer sus filas

Tengo un DataGridView llamado dGridVIew al cual le añado datos de la siguiente manera:

DataRow[] dRow = MetodoQueDevuelveUnArrayDeDataRows();
object[] param = new object[3];

for (int i = 0; i < dRow.Count(); i++)
      {
           param[0] = dRow[i]["Campo 1"];
           param[1] = dRow[i]["Campo 2"];
           param[2] = dRow[i]["Campo 3"];

// Evito una excepción al hacer click en las cabeceras y si alguna celda tiene valor nulo
       for (int j = 0; j < param.Length; j++)
             if (param[j] == DBNull.Value)
                 param[j] = String.Empty;

             dGridView.Rows.Add(param);
      }

Todo bien hasta aquí. Pero sucedía que después de llamar a este código, en el control dGridView no se mostraban todas las filas añadidas, a menos que redimensionada el formulario contenedor. Peor aún, al recorrer las filas con las teclas de las flechas hacia arriba o abajo, me saltaba la siguiente excepción:

No se controló System.ArgumentOutOfRangeException
  Message=El valor de '484' no es válido para 'Value'. 'Value' debería estar entre 'minimum' y 'maximum'.
Nombre del parámetro: Value
  Source=System.Windows.Forms
  ParamName=Value
  StackTrace:
       en System.Windows.Forms.ScrollBar.set_Value(Int32 value)
       en System.Windows.Forms.DataGridView.ScrollRows(Int32 rowCount, Int32 deltaY, ScrollEventType scrollEventType)

Rebuscando en Internet, este blog me dio la solución.
Y era muy simple: Después de llenar el DataGridView se debe llamar al método PerformLayout de la siguiente manera:

dGridView.PerformLayout();

No he podido encontrar porqué esta función evita la excepción, ni siquiera en la web de Microsoft.

Update!!

El código de ejemplo aún tiene un error: el DataGridView dGridView aún puede tirar una excepción si hacemos clic a la cabecera de una columna que espera recibir datos numéricos. El código corregido es:

DataRow[] dRow = MetodoQueDevuelveUnArrayDeDataRows();
object[] param = new object[3];
// Los valores del sgte array deben coincidir con los nombres de las columnas
string[] columnas = { "Campo 1", "Campo 2", "Campo 3" };

for (int i = 0; i < dRow.Count(); i++)
      {
           param[0] = dRow[i]["Campo 1"];
           param[1] = dRow[i]["Campo 2"];
           param[2] = dRow[i]["Campo 3"];

       // Evito una excepción al hacer click en las cabeceras y si alguna celda tiene valor nulo
       for (int j = 0; j < param.Length; j++)
             if (param[j] == DBNull.Value)
             {
       // en el caso de trabajar directamente con un Datatable la sgte línea se reemplaza por: 
      //    if (unDataTable.Columns[columnas[j]].DataType == typeof(string))
                 if (dRow[i].Table.Columns[columnas[j]].DataType == typeof(string))
                      param[j] = String.Empty;
                 else
                      param[j] = 0;
              }

             dGridView.Rows.Add(param);
      }

dGridView.PerformLayout();

C#: Propiedad Select de un Datatable. Un par de Detalles.

Tengo un Datatable llamado "DT" que contiene muchos datos organizados en dos campos: "Campo1" y Campo 2". Quiero filtrar aquellos datos que contengan valores nulos en "Campo1" y en "Campo 2".

El código fuente será:

DataRow[] dRow = DT.Select("Campo1 is Null and [Campo 2] is Null");

Para detectar campos con valores nulos, le mandamos una consulta con "is Null". Como "Campo 2" tiene un espacio en blanco, lo pongo entre corchetes.

Si tengo este método:

DataRow[] Method1(string filtro)
{
    Datatable DT = metodoQueDevuelveUnDatatable();
    return DT.Select(filtro);
}

lo llamaré así:

DataRow[] dRow = Method1("Campo1 is Null and [Campo 2] is Null");


¿Pero cómo hago si deseo que Method1 me devuelva todas las filas de DT, sin aplicar ningún filtro?

Escribo lo siguiente:

DataRow[] dRow = Method1(String.Empty);

Enviar un String.Empty a la propiedad Select de un Datatable es una forma de decirle que no queremos filtrar nada y también de eliminar cualquier filtro aplicado con anterioridad.

Aplicando Linq a un array de Estructuras (struct)

Tengo un struct (Estructura) como el que se muestra a continuación (el constructor dentro del struct me permite asignarle valores usando la palabra reservada new):

        private struct misEjes
        {
            public int ejeX;
            public int ejeY;

            public misEjes(int x, int y)
            {
                ejeX = x;
                ejeY = y;
            }
        };

Y luego creo un array del struct misEjes de la forma:

misEjes[] ejes1 = Enumerable.Repeat(new misEjes(0, 0), 10).ToArray();

Usando Linq puedo no sólo declarar el array, si no también definir la cantidad de elementos e inicializarlos. Todo esto lo hace Enumerable.Repeat(). Como éste devuelve un IEnumerable, debo convertirlo con un ToArray(). Para este ejemplo, mi arrray tiene 10 elementos (sus índices van del 0 al 9).

Realizo varias operaciones con los elementos de mi array, y al final deseo quedarme con los que no están repetidos. Para ello hago:

ejes1 = ejes1.Distinct().ToArray();

El Distinct() devuelve todos los elementos que no se repiten. Independientemente los miembros (en este ejemplo ejeX y ejeY) de los elementos del array ejes1 pueden repetirse, pero el conjunto de los miembros de cada elemento de ejes1 (la pareja ejeX y ejeY) debe ser único.

El código completo es:

class Program
    {      
        private struct misEjes
        {
            public int ejeX;
            public int ejeY;

            public misEjes(int x, int y)
            {
                ejeX = x;
                ejeY = y;
            }
        };
       
        static void Main(string[] args)
        {           
            Random rnd = new Random(Convert.ToInt32(DateTime.Now.Millisecond));
           
            misEjes[] ejes1 = Enumerable.Repeat(new misEjes(0, 0), 10).ToArray();
           
            ejes1 =
            ejes1.Select(c=> new misEjes(rnd.Next(0, 4), rnd.Next(0, 3))).ToArray();

            foreach (misEjes em in ejes1)
                Console.WriteLine(String.Concat(em.ejeX, ",", em.ejeY));

            Console.WriteLine(String.Empty);

            ejes1 = ejes1.Distinct().ToArray();

            foreach (misEjes em in ejes1)
                Console.WriteLine(String.Concat(em.ejeX, ",", em.ejeY)); 

            Console.Read(); 
         }
    }

El resultado es:

Las líneas antes del espacio son el array original, las que están después son el array luego de aplicar Distinct(). Nótese cómo las parejas ejeX y ejeY no se repiten.

Propiedad Select de un DataTable y Error al añadir un DataRow: ArgumentException Esta fila ya pertenece a otra tabla

Tengo un DataTable llamado dt1 que contiene muchos datos. Entre esos datos hay dos columnas llamadas "Nombre y Apellido" y "Edad". Deseo poner en otro DataTable los datos de todas las personas mayores de 18 años y que no sean Juan Perez ó Juan Pérez.
Los DataTables tienen una propiedad Select que acepta consultas tipo SQL para filtrar datos en función a los nombres de sus columnas. Si estos nombres contienen espacios se deben poner entre corchetes.
El código es el siguiente:

string query = @"([Nombre y Apellido] <> 'Juan Perez' or
                             [Nombre y Apellido] <> 'Juan Pérez') and Edad > 18";

DataTable dtFin = new DataTable();
DataRow[] miFiltro = dt1.Select(query);
if (miFiltro.Length > 0)
{
// primero añado las columnas con su respectivo nombre
    for (int i = 0; i < miFiltro[0].Table.Columns.Count; i++)
         dtFin.Columns.Add(miFiltro[0].Table.Columns[i].ColumnName);
               
// añado las filas
   for (int i = 0; i < miFiltro.Count(); i++)
         dtFin.Rows.Add(miFiltro[i]);
}

Pero al correr este código me tiraba una exceción del tipo "ArgumentException Esta fila ya pertenece a otra tabla".
Buscando en Internet, Pedro Hurtado me dió la solución. (yo no hice la pregunta, pero que es la solución, lo es :D)

El código correcto es:

string query = @"([Nombre y Apellido] <> 'Juan Perez' or
                             [Nombre y Apellido] <> 'Juan Pérez') and Edad > 18";

DataTable dtFin = new DataTable();
DataRow[] miFiltro = dt1.Select(query);

if (miFiltro.Length > 0)
{
// primero añado las columnas con su respectivo nombre
    for (int i = 0; i < miFiltro[0].Table.Columns.Count; i++)
         dtFin.Columns.Add(miFiltro[0].Table.Columns[i].ColumnName);
               
// añado las filas
   for (int i = 0; i < miFiltro.Count(); i++)
         dtFin.Rows.Add(miFiltro[i].ItemArray);
}

Faltaba ponerle la propiedad ItemArray al añadir los DataRows de miFiltro al DataTable dtFin.

Convertir los datos en la propiedad DataSource de un DataGridView en un DataTable

Se pueden convertir, ó pasar, los datos almacenados en la propiedad DataSource de un DataGridView a un DataTable con el siguiente código:

DataTable dt = (DataTable)miDataGridView.DataSource;

Este código no funciona para casos en que los datos se añadieron al DataGridView con el método "Add" de las propiedades "Rows" y "Columns", dado que éstas no modifican a la propiedad "DataSource".

Por ejemplo, en el siguiente código:

            miDataGridView.DataSource = null;

            miDataGridView.Columns.Add("p1", "Prueba 1");
            miDataGridView.Columns.Add("p2", "Prueba 2");

            object[] obj = {"p1", "p2"};
            miDataGridView.Rows.Add(obj);
            DataTable dt = (DataTable)miDataGridView.DataSource;

El DataGridView se ve así:

Pero el DataTable "dt" es nulo, pues la propiedad "DataSource" no tiene ningún valor asignado.

VB6: Error al conectar un recordset a un archivo xls modificado con Open Office Calc

Me encontré con este error mientras experimentaba un poco con Open Office: en Visual Basic 6 conectaba un recordset a una hoja en un archivo xls, luego listaba las celdas de la primera fila en un control List (el recordset considera el archivo xls como una base de datos, sus hojas como tablas, y las celdas de la primera fila como los campos si la propiedad de la cadena de conexión HDR es "Yes".).
Todo salía bien mientras el archivo xls fuera modificado con MS Excel, pero si lo modificaba con Open Office Calc, la aplicación me tiraba un error de "La tabla externa no tiene el formato esperado".

El proyecto, junto a los archivos xls de prueba, pueden descargarse de aquí.

Mi teoría es que Open Office realiza algún cambio a las hojas de los archivos xls que no realiza MS Excel. Los archivos resultantes pueden abrirse tanto con MS Excel y Calc, y parecer idénticos, pero el cambio introducido al guardar con Calc hace que un recordset de VB6 ya no pueda reconocer las hojas como tablas válidas.

Por ejemplo, tengo este archivo creado con MS Excel:

 

Al guardarlo con Open Office Calc queda como:

¿Eliminará Open Office información que no usan ni MS Excel ni Calc, pero sí un recordset?
Dado el cambio en el tamaño del archivo, es probable.

Tutorial: Ejemplo de uso de las apis BitBlt, SetDIBits y GetDIBits

Actualización de Electrónica a Martillazos, Sección Visual Basic 6 y C++:
Ejemplo de Win32 y uso de las apis BitBLT, GetDIBits y SetDIBits. Compilado para Visual C++ Express 2008.
Link Directo
Un Mirror
Enlace para descargar el proyecto

Enjoy!

VB6: CommonDialog: Cómo saber si se desea abrir un archivo como sólo lectura

En Visual Basic 6, el control CommonDialog tiene una propiedad llamada "Flags" la cual determina las propiedades del Cuadro de Diálogo que se mostrará en nuestra aplicación. Sus valores son (de la documentación de Microsoft):

File Open/Save Dialog Box Flags

Constant	Value	Description
cdlOFNAllowMultiselect	&H200	Specifies that the File Name list box allows multiple selections. The user can select more than one file at run time by pressing the SHIFT key and using the UP ARROW and DOWN ARROW keys to select the desired files. When this is done, the FileName property returns a string containing the names of all selected files. The names in the string are delimited by spaces.
cdlOFNCreatePrompt	&H2000	Specifies that the dialog box prompts the user to create a file that doesn't currently exist. This flag automatically sets the cdlOFNPathMustExist and cdlOFNFileMustExist flags.
cdlOFNExplorer	&H80000	Use the Explorer-like Open A File dialog box template. Common dialogs that use this flag do not work under Windows NT using the Windows 95 shell.
CdlOFNExtensionDifferent	&H400	Indicates that the extension of the returned filename is different from the extension specified by the DefaultExt property. This flag isn't set if the DefaultExt property is Null, if the extensions match, or if the file has no extension. This flag value can be checked upon closing the dialog box.
cdlOFNFileMustExist	&H1000	Specifies that the user can enter only names of existing files in the File Name text box. If this flag is set and the user enters an invalid filename, a warning is displayed. This flag automatically sets the cdlOFNPathMustExist flag.
cdlOFNHelpButton	&H10	Causes the dialog box to display the Help button.
cdlOFNHideReadOnly	&H4	Hides the Read Only check box.
cdlOFNLongNames	&H200000	Use long filenames.
cdlOFNNoChangeDir	&H8	Forces the dialog box to set the current directory to what it was when the dialog box was opened.
CdlOFNNoDereferenceLinks	&H100000	Do not dereference shell links (also known as shortcuts). By default, choosing a shell link causes it to be dereferenced by the shell.
cdlOFNNoLongNames	&H40000	Do not use long file names.
CdlOFNNoReadOnlyReturn	&H8000	Specifies that the returned file won't have the Read Only attribute set and won't be in a write-protected directory.
cdlOFNNoValidate	&H100	Specifies that the common dialog box allows invalid characters in the returned filename.
cdlOFNOverwritePrompt	&H2	Causes the Save As dialog box to generate a message box if the selected file already exists. The user must confirm whether to overwrite the file.
cdlOFNPathMustExist	&H800	Specifies that the user can enter only valid paths. If this flag is set and the user enters an invalid path, a warning message is displayed.
cdlOFNReadOnly	&H1	Causes the Read Only check box to be initially checked when the dialog box is created. This flag also indicates the state of the Read Only check box when the dialog box is closed.
CdlOFNShareAware	&H4000	Specifies that sharing violation errors will be ignored.

Si deseo que, por ejemplo, el CommonDialog sólo admita abrir archivos que existen y que no muestre la casilla de sólo lectura haré:

CommonDialog1.flags = &H1004

CommonDialog1.ShowOpen

Si deseo que sólo admita archivos existentes y que muestre la casilla de abrir como sólo lectura desactivada escribiré:

CommonDialog1.flags = &H1000

CommonDialog1.ShowOpen 

Si deseo que sólo admita archivos existentes y que muestre la casilla de abrir como sólo lectura activada escribiré:

CommonDialog1.flags = &H1001

CommonDialog1.ShowOpen

En Windows XP el cuadro de diálogo Abrir será:

En Windows 7:

Para el caso en que la propiedad Flags del CommonDialog es &H1001 en Windows 7, si se desea abrir un archivo y poder modificarlo, se elige la opción "Abrir para escritura", si se elige simplemente "Abrir" el programa considerará que se abre el archivo como sólo lectura.

Hay un patrón aquí: los valores de las constantes de la propiedad Flags simplemente se suman para poder asignar una propiedad determinada al CommonDialog. Los caracteres "&H" indican que los valores asignados están en hexadecimal, no en decimal.

Para saber si el usuario ha abierto el archivo como sólo lectura se debe evaluar el valor de la propiedad Flags del CommonDialogs después que el usuario ha elegido su archivo y cerrado la ventana de diálogo. Si el valor en Flags es impar, el usuario eligió abrir el archivo como sólo lectura, si es par, ha elegido abrirlo y poder escribir en él (modificarlo).

El código completo para este caso es:

On Error GoTo cogerE
CommonDialog1.flags = &H1001 

CommonDialog1.ShowOpen

Dim miFile as String

miFile = CommonDialog1.Filename

Dim readOnly1 As Integer

readOnly1 = CommonDialog1.flags
readOnly1 = readOnly1 Mod 2 

' si es impar el usuario ha activado la casilla de abrir como sólo lectura

If readOnly1 = 1 Then
    ' desactivar las opciones que escriben en el archivo pues es sólo lectura
Else
    ' activar las opciones que escriben en el archivo pues se ha abierto

    ' como lectura y escritura

End If

Exit Sub
cogerE:

El CommonDialog que estoy usando tiene su propiedad CancelError en Verdadero.

Caso Curioso: Si asigno a la propiedad Flags el valor de 5000 (en decimal) y ejecuto el programa en Windows XP SP3:

CommonDialog1.flags = 5000

CommonDialog1.ShowOpen 

Me mostrará este cuadro de diálogo, al más puro estilo Windows 95:

VB6 error: no se pudo encontrar el archivo ISAM instalable

Me conectaba a una base de datos en Access 2003 usando un objeto ADODB.Connection llamado miDB, y un Recordset llamado miRS. Luego cerraba ambas conexiones haciendo:

If miDB.State <> adStateClosed Then miDB.Close

If miRS.State <> adStateClosed Then miRS.Close

miDB.Open miConnectionStringaDSN

miRS.Open "select * from Tabla", miDB

La propiedad State de ambas variables me dice si están cerradas o abiertas.

En resumen, una vez cerrada la conexión a la base de datos en Access, conectaba miDB a otra base de datos, a través de un DSN (ya creado mediante ODBC usando el aplicativo odbcad32.exe del Windows) y usando el formato de cadena de conexión para System DSN de la web de ConnectionStrings.

Y entonces me saltaba este error:

El mensaje es: "Error 80004005 en tiempo de ejecución: no se pudo encontrar el archivo ISAM instalable."

Parecía que me faltaba instalar algo, pero cuando realizaba primero la conexión por DSN (sin conectar miDB ó miRS a ninguna base de datos con anterioridad) la aplicación funcionaba de maravilla.

Deduje que no era problemas de instalación. Cuando conectaba miDB y miRS a una base de datos, cerraba ambos objetos e intentaba abrir una nueva conexión a DSN (¡y esto sólo ocurría al conectar por DSN!), "algo" se quedaba bloqueando un archivo, en algún lugar, y como la nueva conexión por DSN no podía abrirlo, consideraba que el archivo no existía y me lanzaba el error.

Entonces cambié mi código a:

If miDB.State <> adStateClosed Then miDB.Close

If miRS.State <> adStateClosed Then miRS.Close

Set miDB = Nothing

Set miRS = Nothing

Set miDB = New Connection
Set miRS = New Recordset

miDB.Open miConnectionStringaDSN

miRS.Open "select * from Tabla", miDB

Y resolví el problema, ya no aparece el error de ISAM instalable, y pude conectarme a mi DSN sin más inconvenientes, pues al anular ambos objetos (miDB y miRS) destruyo cualquier enlace que quede flotando, en algún lugar, perdido en las entrañas de mi Windows.

Arrays en C#

Encontré este tutorial sobre arrays en C#. Noté que le faltó mencionar un detalle: Según la documentación de msdn, un array no son sólo posiciones en memoria, son objetos que heredan de System.Array.
Primeo miramos la declaración de la clase Array:

La clase Array hereda los métodos de muchas otras clases, entre ellas IEnumerable. Es decir: todos los métodos que se pueden usar en IEnumerable, se pueden usar también con arrays.

A continuación un pequeño ejemplo:
Tengo un array de Integers (en realidad pueden ser cualquier tipo de datos: byte, double, DateTime, etc), quiero eliminar los que se repiten y convertirlos a cadenas de caracteres:

int[] misNumeros; // Contiene muchos números.
strings[] misCadenas; // aquí guardo los que no se repiten, luego de convertirlos a strings.

misCadenas = misNumeros.Distinct().Select(c => c.ToString()).ToArray();

Como los métodos Select y Distinct devuelven un IEnumerable, lo convierto a Array usando el método ToArray().

Otro ejemplo: creo un array con números del 0 al 100, realizo algunas operaciones aritméticas cualquiera, elimino los repetidos, los ordeno en orden descendente, y finalmente los convierto a un array de cadena de caracteres:

int[] nums = Enumerable.Range(0, 100).ToArray();

nums = nums.Select(c => c * DateTime.Now.Millisecond / DateTime.Now.Second + DateTime.Now.Millisecond).ToArray();

string [] calculatedNums = nums.Distinct().OrderByDescending(c => c).Select(c => c.ToString()).ToArray();

Nótese cómo siempre utilizo ToArray() para convertir de IEnumerable a Array.