Programación a Martillazos

Copiar los valores de las celdas seleccionadas de un DataGridView a otros controles

2012-01-12T14:10:00.000-08:00

Tengo el siguiente DataGridView enlazado a un DataTable:

Cuya propiedad "SelectionMode" es igual a "FullRowSelect". Lo que quiero hacer es que cuando selecciones una fila, los valores de sus celdas se copien a otros controles.

Para ello, en el evento "SelectionChanged" pongo el siguiente código para C# (he llamado a mi DataGridView "dgView):

if (dgView.DataSource != null && dgView.Rows.Count > 0 && dgView.SelectedRows.Count > 0)
{
textBox1.Text = dgView.SelectedRows[0].Cells[0].Value.ToString();

comboBox.Text = dgView.SelectedRows[0].Cells[0].Value.ToString();

                DateTimePick.Value = Convert.ToDateTime(dgView.SelectedRows[0].Cells[1].Value);
                textBox2.Text = dgView.SelectedRows[0].Cells[2].Value.ToString();
            }

En el código tengo dos TextBoxes, un ComboBox y un DateTimePicker. Los índices de las celdas empiezan desde cero. Al asignarle un valor tipo fecha al DateTimePicker hay que tener cuidado que el valor en la celda del DataGridView tenga el formato correcto o tirará una excepción.

Transacciones a una base de datos en Access

2012-01-04T09:00:00.000-08:00

Tenía que escribir un programita que accediera (y algunas veces modificara) a los datos en una base de datos local en Access. Esta base de datos también era leída y modificada desde otra aplicación, y era muy probable que ambos programas accedieran a la base de datos al mismo tiempo, e intentaran modificarla.
Tenía que evitar que una de las aplicaciones corrompiera la lectura/escritura de la otra, así que les hice la pregunta a la gente de StackOverflow ¿cuál es la mejor manera de atacar este problema?
Me respondieron que usara Transacciones.

Mi programa tenía que leer data de la base de datos y guardarla en un DataTable. Buscando tutoriales para usar Transacciones con un DataAdapter me topé con la Web del Guille.
El problema era que Guille escribió su tutorial pensando en SQL Server, no para Access. Cuando quise usar su código usando los objetos OleDbConnection, OleDbDataAdapter, OleDbCommandBuilder y OleDbCommand me tiraba varias excepciones.

Leyendo un poco la documentación de MSDN y, mediante prueba y error, pude finalmente crear un método para usar un Select a una base de datos en Access con Transacciones y que devolviera un DataTable:

private DataTable miDatatable(string sqlQuery)
{

string connString = String.Concat("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=", rutaAmiBaseDeDatos);

            using (OleDbConnection connDB = new OleDbConnection(connString))
            {
                OleDbDataAdapter dAdapter;
                OleDbCommandBuilder cBuilder;
                OleDbCommand command = new OleDbCommand();
                DataTable dTable = new DataTable();
                OleDbTransaction trans = null;

                try
                {
                    connDB.Open();
                    // no acepta IsolationLevel.Serializable, Snapshot o RepeatableRead
                    trans = connDB.BeginTransaction(IsolationLevel.ReadCommitted);

                    command.Connection = connDB;
                    command.Transaction = trans;
                    command.CommandText = sqlQuery;

                    dAdapter = new OleDbDataAdapter(sqlQuery, connDB);
                    cBuilder = new OleDbCommandBuilder(dAdapter);

                    dAdapter.SelectCommand.Transaction = trans;
                    dAdapter.Fill(dTable);
                    trans.Commit();
                }

                catch
                {
                    try
                    {
                        trans.Rollback();
                    }
                    catch { } // transacción inactiva
                }

                return dTable;
            }
        }

La variable sqlQuery puede tener cualquier sentencia SQL que sea un Select, como por ejemplo "Select * from miTabla" e incluir "Where", "Join", "Distinct" etc.

Mi Repositorio de Códigos Fuente

2011-12-21T13:47:00.000-08:00

Son códigos que ya he publicado anteriormente, pero ahora en un sólo lugar, en mi cuenta en mygnet para que todo el mundo los descargue, los copie, los modifique, los analice, los traduzca a otros lenguajes, y haga todo lo que les plazca con ellos :D

La Api ShellExecute devuelve código de error 42

2011-11-17T09:32:00.000-08:00

El error 42 se produce cuando se intenta abrir un ejecutable con la api ShellExecute, la cual sirve para abrir archivos o carpetas. En el caso de VB6, si se desea ejecutar otra aplicación se deberá usar la función Shell.

En VB6 la api ShellExecute se declara como:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal HWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Si deseo abrir un archivo con el programa que lo abre por defecto, deberé escribir:

Dim ret As Long
ret = ShellExecute(Me.HWnd, "Open", "C:\text.txt", "", "", 1)

Esto abrirá el archivo de texto con el block de notas.

Si deseo abrir un archivo con otro programa, escribiré:

Dim ret As Long
ret = ShellExecute(Me.HWnd, "Open", "Wordpad.exe", "C:\text.txt", "", 1)

Lo cual abrirá el archivo de texto con el Wordpad de Windows.

La función Shell es propia de VB6. Si quiero ejecutar una aplicación deberé escribir:
Shell "C:\MiApp.exe", vbNormalFocus

Error al actualizar un Recordset: "El Campo no es Actualizable"

2011-10-24T11:23:00.000-07:00

Intentaba modificar un registro de una base de datos en Access desde VB6, cuando, al hacer miRecordset.Update, me saltaba el siguiente error:

En general, el mensaje de error es: "No se puede actualizar 'nombre del campo'; el campo no es actualizable".

Esto se debe a que ese campo específico tiene alguna característica que hace que no se puede reescribir. En mi base d edatos, el campo "Id" es llave primaria y es auto incrementable.

Aunque los permisos de la base de datos permitan hacer modificaciones a sus datos, un campo del recordset no permite cambiar su contenido si es auto incrementable. Antes de actualizar mi recordset, necesitaba saber qué campos son autoincrementables para no tocarlos cuando quiera modificar su contenido.

Después de mucho buscar por internet, di con este foro:

http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_20248270.html

Son rescatables estos posts:

Expert Comment

Posted by rspahitz on 21/12/01 at 8:20 AM

I don't know the answer, but since (I think) Properties is a collection, you should be able to cycle through and find the valid choices:

for i = 0 to rs.Fields(x).Properties.count - 1
debug.print rs.Fields(x).Properties(i).name
next i

Author Comment

Posted by andyknott on 21/12/01 at 8:28 AM

Hi rspahitz,

Thanks that helped a bit, the properties listed are

BASECATALOGNAME
BASECOLUMNNAME
BASESCHEMANAME
BASETABLENAME
COLLATINGSEQUENCE
COMPUTEMODE
DATETIMEPRECISION
ISAUTOINCREMENT
ISCASESENSITIVE
ISSEARCHABLE
OCTETLENGTH
KEYCOLUMN
COMPFLAGS
SORTID
BASETABLEINSTANCE
TDSCOLLATION

Para saber, por ejemplo, si un campo con índice x es auto incrementable, se hace:
If miRecordset(x).Properties("IsAutoIncrement").Value Then _
Debug.Print "Es Auto Incrementable"

En mi caso, al modificar mi recordset, hago:
For i = 0 To miRecordset.Fields.count - 1
    If Not miRecordset(i).Properties("IsAutoIncrement").Value Then
        miRecordset(i) = nuevoValor
    End If
Next

miRecordset.Update

Con esto elimino el error de Campo no Actualizable.

Desocultando Carpetas Ocultadas por Virus con Linq

2011-10-08T07:56:00.000-07:00

Actualización de http://electronicaamartillazos.co.nr/ (sección C#) donde muestro cómo usar Linq para crear un programita que desoculta todas las carpetas ocultas (y declaradas como carpetas de sistema) en los directorios raíz de discos duros y memorias extraíbles. Los virus que ocultan carpetas también las declaran como carpetas de sistema, de modo que no se pueden desocultar manualmente.
Este programita sirve como base para hacer programas más complejos que administren los atributos de archivos, carpetas y subcarpetas.

Extrayendo las resoluciones mínimas de un List con Linq

2011-10-01T08:06:00.000-07:00

Tengo un List<String> donde he guardado varias resoluciones de imagen en el formato "AnchoxAlto". De esta forma, tengo en mi List<String> valores como "1024x768", "800x600", "640x480", "1200x900" etc. Y quiero extraer la resolución mínima.

Una manera sería recorrer el List<String> con un foreach, usar la función IndexOf('x') para obtener la ubicación del caracter 'x', luego usar SubString para obtener los valores de Alto y Ancho, convertirlos a int, e irlos comparando en cada bucle y guardar en dos variales los valores mínimos. Al final hago un String.Concat(Ancho.ToString(), "x", Alto.ToString());

Pero yo no quiero usar un foreach, quiero usar Linq. Este es el método que lo hace, y sin foreach:

public String MinResolution()
        {
            List<String> modes;
            // lleno la lista con las resoluciones que quiero, obtengo, leo, etc.
            String minRes = String.Empty;

             // saco la menor resolución
             int miMinRes1 =
             modes.Select(c => c.Substring(0, (c.IndexOf('x')))).Min(c => Convert.ToInt32(c));

             int miMinRes2 =
             modes.Select(c => c.Substring((c.IndexOf('x')), c.Length - c.IndexOf('x'))).
             Min(c => Convert.ToInt32(c.Substring(1, c.Length - 1)));

            minRes = String.Concat(miMinRes1.ToString(), "x", miMinRes2.ToString());
            return minRes;
        }

Este algoritmo asume que el menor ancho va acompañado del menor alto, lo que siempre ocurre con las resoluciones de imágenes que tienen la misma orientación.

Error en Crystal Reports: "Esta sección de Grupo no se puede imprimir..."

2011-09-09T11:33:00.000-07:00

El mensaje completo es:
"Esta Seccion de grupo no se puede imprimir porque su campo de condicion no existe o no es valido. Dar formato a la seccion para elegir otro campo de condicion". Este mensaje de error aparece al querer ir a la pestaña "Vista Previa". Al presionar el botón Aceptar, aparece una página en blanco en lugar del reporte.

Busqué en Internet y no hallé cómo eliminar este error. Tampoco hallé nada útil en la Ayuda de Crystal Reports. Pero, después de probar un poco, dí yo misma con la solución.

Todos los reportes de Crystal Reports van conectados a una Base de Datos. Los grupos del reporte (por ejemplo un encabezado), están vinculadas a un campo específico de la Base de Datos. Esto es para que Crystal Reports sepa en qué orden mostrar los reportes con la data jalada desde la Base de Datos.
Este error se genera al cambiar la conexión a otra Base de Datos, eliminarla, cambiar a otra tabla, y cualquier situación en que el reporte no tenga cómo hallar el campo al que estaba vinculado.

Para solucionar esto, se debe ir al asistente de Base de Datos y configurar o crear la conexión, esto es necesario en caso de haberla eliminado:

Luego, en la pertaña Diseño, le hacemos click derecho al grupo que da problemas y elegimos la opción "Cambiar el Grupo":

Se nos abrirà la ventana que nos permitirá asignar un nuevo campo de condición:

Con esto, ya podemos ir a la Vista Previa de nuestro reporte :D

Leyendo data numérica desde un archivo de texto con C++

2011-08-01T11:10:00.000-07:00

Tengo un archivo de texto que contiene una lista de números con el siguiente formato:

He llamado al archivo "18.txt" por ninguna razón en especial. Lo que quiero hacer es leer los números en el archivo y realizar algunas operaciones matemáticas con ellos. Como están en formato de texto, primero debo convertirlos a números decimales.

Para ello uso la función "atof", pero hay un problema: mis números usan coma decimal, y la función "atof" considera punto decimal. Debo leer los números, línea por línea, y ponerlos en el formato con el que puede trabajar "atof", así que declaro un aray de caracteres llamado "palabra". Ninguno de los números guardados en "18.txt" ocupa más de cinco caracteres, así que "palabra" es declarada como: char palabra[6];

Luego recorro cada caracter dentro de "palabra" y si encuentro una coma, la reemplazo por un punto.

El array "beta", separa espacio en memoria para 150 números decimales ya que sólo quiero operar con 150 números en total.

El código fuente es el siguiente (el ejecutable compilado está en la misma carpeta que "18.txt"):

        beta[i] = atof(palabra);
        cout<<beta[i];
        cout<<"\n";
        i++;
    }
while (c != EOF && i != 151);

//valores estadísticos:
promedio=0; desviacion=0; rms=0;

//Promedio
     for (int j= 0; j<=150; j++)
       promedio= promedio+ beta[j];

       promedio = promedio/151;

    cout<<"Promedio "; cout<<promedio;
    cout<<"\n";

//Desviación Estándar
    for (int j= 0; j<=150; j++)
       desviacion= desviacion + pow((beta[j]-promedio),2);

       desviacion=pow(desviacion,0.5)/pow(151,0.5);
       cout<<"la desviacion estandar es: "; cout<<desviacion;
       cout<<"\n";

//Valor Cuadrático Medio
    for (int j= 0; j<=150; j++)
       rms= rms + pow(beta[j],2);

       rms=pow(rms,0.5)/pow(151,0.5);
       cout<<"El valor RMS: "; cout<<rms;
       cout<<"\n";

       fclose(fp);
    }
       system("PAUSE");
}

Pero si quiero operar con todos los números en un archivo de texto sin importar cuántos sean, usaré este código:

#include <iostream.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <math.h>
#pragma hdrstop
#pragma argsused

void main(int argc, char* argv[])
{     FILE *fp;
    double i;
    double beta, c, promedio, rms, desviacion;
    char palabra[6];
    //valores estadísticos:
    promedio=0; desviacion=0; rms=0;

    i=0;
    fp = fopen("18.txt", "r");

if (fp==NULL)
cout<<"no existe el archivo \n";

else {

    do
    {
       c = fscanf(fp, "%s", palabra);

       for(int j=0; j<6; j++)
       if (palabra[j]== ',')
       { palabra[j]='.'; break; }

        beta = atof(palabra);
        cout<<beta;
        cout<<"\n";
        i++;

        promedio = promedio + beta;
        rms = rms + pow(beta,2);

    }
while (c != EOF);

    promedio = promedio/i;
    rms=pow(rms,0.5)/pow(i,0.5);

    i=0;
    rewind(fp);

    do
    {
       c = fscanf(fp, "%s", palabra);

       for(int j=0; j<6; j++)
       if (palabra[j]== ',')
       { palabra[j]='.'; break; }

        beta = atof(palabra);
        i++;

        desviacion= desviacion + pow((beta-promedio),2);
    }
while (c != EOF);

    desviacion=pow(desviacion,0.5)/pow(i,0.5);

    cout<<"Promedio "; cout<<promedio;
    cout<<"\n";
    cout<<"la desviacion estandar es: "; cout<<desviacion;
    cout<<"\n";
    cout<<"El valor RMS: "; cout<<rms;
    cout<<"\n";

       fclose(fp);
    }
    system("PAUSE");
}

Ambos códigos han sido probados con el compilador gratuito de Borland.
Cómo usar el compilador, lo explico aquí.

En este link hay información sobre "fscanf" y "rewind". Y aquí hay un tutorial sobre lectura y escritura de archivos con C++.

Calculando la potencia de un número usando recursividad en C#

2011-07-15T11:11:00.000-07:00

Primero, el código fuente:

    class Potencia
    {
        static void Main(string[] args)
        {
            Potencia pot = new Potencia();
            double r = pot.potenciaR(2, 1, 3, 0);
            Console.WriteLine(r.ToString());
            Console.Read();
        }

        private double potenciaR(double base0, double p, int exponente, int i)
        {
            return i >= exponente ? p : potenciaR(base0, p * base0, exponente, i + 1);
        }
    }

Los parámetros de la función "potenciaR" son: base, resultado, exponente, condición de parada.
El parámetro "p" debe ser 1 al inicio porque es el "acumulador" dodne se irá multiplicando la base tantas veces como indique el exponente. La función "potenciaR" deja de llamarse a sí misma cuando el parámetro "i" es igual al valor "exponente". El valor inicial de "i" es cero.

Y a continuación, lo mismo, pero con una expresión lambda recursiva:

class Potencia
    {
        static void Main(string[] args)
        {
            Func<double, double, double,double> potenciaF = null;
            potenciaF = (base0, p, exponente, i) =>
                    i >= exponente ? p : potenciaF(base0, p * base0, exponente, i + 1);

            Console.WriteLine(potenciaF(2, 1, 3, 0).ToString());
            Console.Read();
        }
    }

Releyendo, noté que podemos suprimir el parámetro "i" y usar el mismo parámetro "exponente" como condición de parada. Para la expresión lambda recursiva queda así:

class Potencia
    {
        static void Main(string[] args)
        {
            Func<double, double, double> potenciaF = null;
            potenciaF = (base0, p, exponente) =>
                    exponente <= 0 ? p : potenciaF(base0, p * base0, exponente-1);

            Console.WriteLine(potenciaF(2, 1, 3).ToString());
            Console.Read();
        }

}

En todos los casos, el parámetro "p" es siempre 1.

Esta es la web donde aprendí a hacer expresiones lambda recursivas:
http://commanet.blogspot.com/2008/02/recursividad-annima.html

VB6 Code Snippet: Mantener la proporción de alto y ancho de una imagen

2011-06-03T07:46:00.000-07:00

Tengo una imagen cargada en un control Image en Visual Basic 6. Quiero que esa imagen mantenga su proporción Ancho/Alto cuando el control Image tiene su propiedad Stretch en True. El código para hacerlo es el siguiente (He llamado al control Image imgProporcion):

        Dim i As Double, j As Double
        Dim proporcion As Double

        i = imgProporcion.Width
        j = imgProporcion.Height

        imgProporcion.Visible = False
        imgProporcion.Stretch = False

        i = (i / imgProporcion.Width)
        j = (j / imgProporcion.Height)

        If j > i Then proporcion = j Else proporcion = i

        imgProporcion.Stretch = True
        imgProporcion.Width = CInt(proporcion * imgProporcion.Width)
        imgProporcion.Height = CInt(proporcion * imgProporcion.Height)
        imgProporcion.Visible = True

Haciendo el Test Fizz Buzz con Linq en C#

2011-04-29T12:02:00.000-07:00

Leyendo algunos de los muchos blogs de programación flotando por ahí, es muy probable toparse con el Test Fizz Buzz, el que yo ya he usado antes para practicar algunas cosas de programación en C#.
Y por ahí se me ocurrió hacerlo usando Linq. Todo el código es el siguiente:

using System;
using System.Linq;
using System.Collections.Generic;

namespace Operator
{
    class Program
    {
        static void Main(string[] args)
        {
            int[] fbz = new int[100];

            for (int i = 1; i <= 100; i++)
                fbz[i - 1] = i;

            IEnumerable<string> fizbuz = fbz.Select(
                c=> (c % 3 == 0) & (c % 5 == 0) ? "FizzBuzz" :
                    (c % 3 == 0) ? "Fizz" :
                    (c % 5 == 0) ? "Buzz" : c.ToString() );

            foreach (string c in fizbuz)
                Console.WriteLine(c);

            Console.Read();
        }
    }
}

Una cosa interesante del Linq es que tiene algo llamado "Lazy Evaluation" ó "Evaluación perezosa": la ejecución de las instrucciones no se realiza cuando se declara la interfaz IEnumerable "fizbuz", si no cuando se la recorre con el bucle foreach. De esta forma se pueden tener muchas interfaces pertenecientes a System.Collections y recién ejecutar sus códigos cuando se las recorre con un foreach.
Y luego, para cumplir con las condiciones del test, vuelvo a usar el operador ternario "?", el cual me gusta mucho porque marea cuando se lo ve las primeras veces :D :D

C# Code Snippet: Usando el control FontDialog

2011-04-19T15:12:00.000-07:00

En una aplicación tipo WindowsApplication tengo un FontDialog, y quiero que cuando el usuario hace click en "Aceptar", los valores de este FontDialog se almacenen en un objeto tipo FontStyle, el que luego se utiliza para crear un objeto tipo Font.

El código es éste:

if (dlgFont.ShowDialog() == DialogResult.OK)
{

// asigno el estilo de fuente
    myFontStyle =
        dlgFont.Font.Bold ? FontStyle.Bold :
        dlgFont.Font.Italic ? FontStyle.Italic :
        dlgFont.Font.Underline ? FontStyle.Underline :
        dlgFont.Font.Strikeout ? FontStyle.Strikeout : FontStyle.Regular;

    myFont =

new Font(dlgFont.Font.Name, dlgFont.Font.Size, myFontStyle);
}

Aquí hago uso del operador ternario '?' para acortar la expresión donde se asigna el tipo de la fuente. Si no uso este operador, la expresión sería:

if (dlgFont.Font.Bold)
    myFontStyle = FontStyle.Bold;
else
    if (dlgFont.Font.Italic)
        myFontStyle = FontStyle.Italic;
    else
        if (dlgFont.Font.Underline)
            myFontStyle = FontStyle.Underline;
        else
            if (dlgFont.Font.Strikeout)
                myFontStyle = FontStyle.Strikeout;
            else
                myFontStyle = FontStyle.Regular;

VB6: Rutina para Eliminar FIlas Repetidas en un Hierarchical FlexGrid

2011-03-24T10:03:00.000-07:00

Esta rutina está pensada para un Hierarchical FlexGrid cuya primera fila (la que tiene el índice 0) contiene los nombres de las columnas, por ello procesa a partir de la fila con índice 1:

Sub eliminar_Repetidos()
Dim estaFila, unaFila As String
Dim i, j, m, n As Integer

estaFila = vbNullString
unaFila = vbNullString

With HierarchicalFlexGrid
    m = 1 ' Apunta a la primera Fila
    n = .Rows - 1 ' Cantidad de filas del HierarchicalFlexGrid

    Do Until m > n
        estaFila = vbNullString 'cadena con la Fila Actual

        For i = 0 To .Cols - 1
            estaFila = estaFila + .TextMatrix(m, i) ' Relleno la cadena con los datos de toda la fila
        Next

        j = 1
        Do Until j > n
            unaFila = vbNullString ' Fila a comparar

            For i = 0 To .Cols - 1
                unaFila = unaFila + .TextMatrix(j, i) ' la relleno con los datos de toda la fila
            Next

            If estaFila = unaFila And j <> m Then
                .RemoveItem (j) ' Si son iguales remuevo unaFila solamente
                n = n - 1 ' tamaño actual del HierarchicalFlexgrid, al remover disminuye en uno
            End If

            j = j + 1
        Loop
        m = m + 1
    Loop

    'Chequeo si la última y la penúltima fila son iguales, porque no se eliminan si lo son
    For i = 0 To .Cols - 1
        estaFila = estaFila + .TextMatrix(.Rows - 1, i)
        unaFila = unaFila + .TextMatrix(.Rows - 2, i)
    Next

    If unaFila = estaFila Then .RemoveItem (.Rows - 2)
End With
End Sub

La rutina hace lo siguiente: cojo la primera fila y, en un bucle, la comparo con todas las demás y voy eliminando las que son iguales a la primera fila. Al terminar paso a la segunda fila y vuelvo a comparar y eliminar si son iguales. Esto se repite hasta llegar al final del Hierarchical FlexGrid.

Este algoritmo es más eficiente que, en dos bucles anidados, marcar las filas repetidas para eliminarlas después.

Obtener los nombres de las tablas y los nombres de sus esquemas de una BD en SQL Server2005 desde VB6

2011-03-11T10:21:00.000-08:00

Un día intentaba conectarme a AdventureWorks sample BD desde una app en Visual Basic 6 aplicando el código de esta entrada.

Declaraba un recordset como sigue:
Set rs = db.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
para poder listar todas sus tablas, usando un bucle, y luego poder obtener información de cada una de ellas.
Mi problema era que al ejecutar un query en SQL:
Dim s as String

Do Until rs.EOF
s="Select * from " & rs!Table_Name
' Hacer muchas muchas cosas con la variable "s"
rs.MoveNext
Loop

Me botaba error, ya que sólo tenía el nombre de la tabla. Para que funcionara, el query dentro de la variable "s" necessitaba también el nombre del esquema (Schema Name) y contruirlo todo de la siguiente forma:
Select * from Schema_Name.Tabla

Luego de mucho rebuscar en Google, hallé esta web
http://www.techrepublic.com/article/much-ado-about-field-properties/1045310

Donde explican lo que hace OpenSchema. Para mi caso, utilizo el SchemaID "AdSchemaTables", el cual incluye un filtro llamado "TABLE_SCHEMA".

Finalmente mi query queda:
Dim s as String

Do Until rs.EOF
s="Select * from " & rs!Table_Schema & "." & rs!Table_Name
' Hacer muchas muchas cosas con la variable "s"
rs.MoveNext
Loop

Update!

Cómo saber si una tabla tiene un nombre de esquema asignado:
Basta añadir este código en el bucle ("miTabla" es una variable tipo String):

miTabla = vbNullString
miTabla = rs!TABLE_SCHEMA

If miTabla <> vbNullString Then
      miTabla = rs!TABLE_SCHEMA & "." & rs!TABLE_NAME
Else
      miTabla = rs!TABLE_NAME
End If

C# y Ms Access: Excepciòn del tipo "Insert Into Syntaxis Error"

2011-02-17T10:12:00.000-08:00

Sucedió un día que tenía que insertar unos datitos a una base de datos en Access 2003 usando C#. La base de datos tiene una sola tabla (la llamaré "miTabla") con tres campos: "No", "un_ID" y "Tag" de tipos numérico, texto y texto, respectivamente.

Mi código era:

private string AddDato(string No, string ID, string tag, ref OleDbConnection cnn)
{
OleDbCommand cmd = new OleDbCommand(

"INSERT INTO miTabla (No, un_ID, Tag) VALUES(@Num, @uID, @nTag)", cnn);
            cmd.Parameters.AddWithValue("@Num", Convert.ToInt32(No));
            cmd.Parameters.AddWithValue("@uID", ID);
            cmd.Parameters.AddWithValue("@nTag", tag);

            try
            {
                cnn.Open();
                cmd.ExecuteNonQuery();
                return "Se añadieron los datos";
            }
            catch (Exception ex)
            {
                 return ex.Message;
            }
            finally
            {
                cmd.Dispose();
                cnn.Close();
            }
        }

Y a pesar de estar todo bien, siempre me tiraba una excepción que decía "Syntaxis Error en Insert Into", o cualquier cosa parecida, en la línea cmd.ExecuteNonQuery().

Después de horas depurando y leyendo foros, encontré por ahí un tip clave:
A las bases de datos en Access no les gustan los campos con nombres como "Date", "login" o "Password".

Entonces el error no estaba en mi Insert Into, si no, posiblemente, en los nombres de mis campos.
Hice una pequeña modificación al código (no a la base de datos) y el problema se resolvió maravillosamente:

private string AddDato(string No, string ID, string tag, ref OleDbConnection cnn)
{
OleDbCommand cmd = new OleDbCommand(

"INSERT INTO miTabla ([No], [un_ID], [Tag]) VALUES(@Num, @uID, @nTag)", cnn);
            cmd.Parameters.AddWithValue("@Num", Convert.ToInt32(No));
            cmd.Parameters.AddWithValue("@uID", ID);
            cmd.Parameters.AddWithValue("@nTag", tag);

            try
            {
                cnn.Open();
                cmd.ExecuteNonQuery();
                return "Se añadieron los datos";
            }
            catch (Exception ex)
            {
                 return ex.Message;
            }
            finally
            {
                cmd.Dispose();
                cnn.Close();
            }
        }

Dejo como tarea hallar el cambio que hice :)

C# usando LastIndexOf y Substring para separar el nombre de un archivo de la ruta donde está almacenado

2011-01-18T12:56:00.000-08:00

Ya antes hice lo mismo en VB6. Ahora toca hacerlo desde C#.

Imaginemos que tengo este string que contiene la ruta a un archivo:

unaRuta = "C:\unaCarpeta\otraCarpeta\unArchivo.txt"

Y quisiera separalo en dos strings, con la ruta del archivo y el nombre del archivo por separado:

miRuta = "C:\unaCarpeta\otraCarpeta\"

miArchivo = "unArchivo.txt"

El código es el siguiente:

int n = unaRuta.LastIndexOf(@"\"); // la @ es para que considere el "\" como caracter

// se extrae la subcadena desde la primera letra hasta n+1

string miRuta = unaRuta.Substring(0, n + 1);

// se extrae la subcadena desde la letra n+1 hasta el final

string miArchivo = unaRuta.Substring(n + 1);

Código fuente en VB6 para llenar un TreeView con las tablas, y otro con las vistas, de una Base de Datos en SQL Server 2005

2010-12-28T07:50:00.000-08:00

El código fuente es muy parecido para hacer lo mismo en Oracle 10g
De todos modos voy a poner el código fuente completo con la explicación:

En TreeView1 irán las tablas y en TreeView2 irán las vistas. "db" es un objeto tipo Connection, "nodx" es un objeto tipo Node, "rs" y "rs1" son Recordset, "count" es una variable tipo Integer. El estilo (propiedad Style) de los TreeViews es el número 7.

db.Open miConnectionString

TreeView1.Nodes.Clear
Set rs = db.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
count = 0
Set nodx = TreeView1.Nodes.Add(, , "Root", "El título que le quiero poner")

Do Until rs.EOF
    count = count + 1
    Set nodx = TreeView1.Nodes.Add(1, tvwChild, "a" & str(count), rs!TABLE_NAME)
    rs.MoveNext
Loop
rs.Close

TreeView2.Nodes.Clear
rs1 = db.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "VIEW")) ' <<== Acá
count = 0
Set nodx = TreeView2.Nodes.Add(, , "Root", "El título que le quiero poner")

Do Until rs1.EOF
    count = count + 1
    Set nodx = TreeView2.Nodes.Add(1, tvwChild, "a" & str(count), rs1!TABLE_NAME)
    rs1.MoveNext
Loop
rs1.Close

Si se intenta abrir el recordset rs1 con db.OpenSchema(adSchemaViews) nos dará error, y si se le coloca un On Error Resume Next, el bucle que recorre rs1 será infinito, pues como rs1 nunca se abrió, su propiedad EOF nunca será verdadera.

VB6: usando InStrRev para separar el nombre de un archivo de la ruta donde está almacenado

2010-12-06T06:57:00.000-08:00

Imaginemos que tengo este string que contiene la ruta a una rchivo:

unaRuta = "C:\unaCarpeta\otraCarpeta\unArchivo.txt"

Y quisiera separalo en dos strings, con la ruta del archivo y el nombre del archivo por separado:

miRuta = "C:\unaCarpeta\otraCarpeta\"

miArchivo = "unArchivo.txt"

Para hacerlo uso la función de VB6 InStrRev, que busca una cadena dentro de otra pero enpezando desde el final.
El código completo es:

Dim miRuta as String

Dim miArchivo as String

Dim unaRuta as String

Dim unaLen as Long

unaRuta = "C:\unaCarpeta\otraCarpeta\unArchivo.txt"

miRuta = Left$(unaRuta, InStrRev(unaRuta, "\"))

unaLen = Len(unaRuta) - InStrRev(unaRuta, "\")
miArchivo = Right$(unaRuta, unaLen)

Con este código chiquito ya tenemos separados el nombre de un archivo de la ruta donde está almacenado :D

Cómo listar las vistas de una base de datos mediante un nombre DSN en VB6

2010-11-17T09:54:00.000-08:00

Hice esta pregunta originalmente en StackOverflow. Acá la traducción al español, con una mejor explicación:

Este es el código original:

Dim db as Connection
Dim rs as Recordset
Dim rs1 as Recordset

db.Open "DSN=Oracle 10g; Uid=myUser; Pwd=myPassword;" 'También probé SQLServer2005

'Me conecto con éxito

Set rs = db.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

' Todo bien aquí. Puedo listar las tablas de la base de datos.

Do Until rs.EOF

List.AddItem rs!TABLE_NAME
rs.MoveNext

Loop

Set rs1 = db.OpenSchema(adSchemaViews) 'Esta es la línea que me da problemas

Aunque los motores de las bases de datos tienen habilitadas las opciones de aceptar conexiones remotas y locales, y a pesar de que la autenticación del usuario y el password se realiza con éxito, la línea problemática da el error "El Proveedor no puede ejecutar la operación requerida".
Cuando, en lugar de usar un nombre DSN, utilizo una cadena de conexión, el código funciona perfectamente.

La solución la hallé luego de probar un poco con el VB6. Desde una conexión con un nombre DSN tanto vistas y tablas, son consideradas como tablas. El código que funciona es éste:

Set rs1 = db.OpenSchema(adSchemaTables)
Do Until rs1.EOF
     If rs1("TABLE_TYPE").Value = "VIEW" Then
           List.AddItem rs1!TABLE_NAME
     End If
     rs1.MoveNext
Loop

Código fuente en VB6 para llenar un TreeView con las tablas, y otro con las vistas, de una Base de Datos en Oracle 10g

2010-10-23T09:36:00.000-07:00

En TreeView1 irán las tablas y en TreeView2 irán las vistas. "db" es un objeto tipo Connection, "nodx" es un objeto tipo Node, "rs" y "rs1" son Recordset, "count" es una variable tipo Integer. El estilo (propiedad Style) de los TreeViews es el número 7.

db.Open miConnectionString

Cómo pasar parámetros desde una App en VB6 a una App escrita en C#

2010-09-14T09:13:00.000-07:00

Lo bueno del C# es que todsa las aplicaciones escritas en este lenguaje arrancan desde un método Main con la siguiente forma:
static void Main(string[] args)

El array "args" del tipo string recibe todos los parámetros que le pasamos al ejecutable. Si es una aplicación de consola llamada "miExe" se escribiría:

Donde "1", "2" y "3" son strings y corresponden a las variables args[0], args[1] y args[2] en la aplicación en C# respectivamente. Si se desea operar con ellas, se deberá convertir de string al tipo numérico deseado, pues "Main" siempre recibe los parámetros como string. Los elementos del array args se emplean como cualquier variable de .Net tipo string.

Si queremos llamar a miExe y pasarle parámetros desde una aplicación en VB6, el código fuente sera:

Dim LInstr as Long

Dim RutaExe as String

Dim sExeName as String

Dim arg1 as String, arg2 as String, arg3 as String

... coding... coding... coding.....

sExeName = RutaExe & "\miExe.exe" &_
        Chr$(32) & Chr$(34) & arg0 & Chr$(32) & Chr$(34) & _
        Chr$(32) & Chr$(34) & arg1 & Chr$(32) & Chr$(34) & _
        Chr$(32) & Chr$(34) & arg2 & Chr$(34)

' Se ejecuta miExe
LInstr = Shell(sExeName, vbMinimizedNoFocus) ' el segundo parámetro es opcional

El número 32 equivale al código Ascii del espacio en blanco, 34 es el código Ascii de las comillas. La aplicación en C# separará los argumentos de la forma correcta, y los asignará a los elementos del array args, sólo si se los pasamos con espacios y comillas en el orden correcto. La aplicación en C# usa los espacios y las comillas para saber qué partes del string sExeName son el nombre del ejecutable y cada uno de los argumentos que está recibiendo.

Cómo averiguar los tipos de datos almacenados en cada campo de una base de datos

2010-08-23T09:57:00.000-07:00

Este método ha sido probado en bases de datos de Oracle 10g, SQL Server2005 y Access 2003. (el código está en VB6):

' rs es el recorset ya enlazado a una base de datos

Select Case rs.Fields("un_campo").Type

Case adBigInt, adBinary, adDecimal, adDouble, adNumeric, adInteger, adLongVarBinary, adSingle, _
adSmallInt, adTinyInt, adUnsignedBigInt, adUnsignedInt, adUnsignedSmallInt, adUnsignedTinyInt, _
adVarNumeric, adVarBinary, adBoolean
      ' Hacer cosas con datos de tipo numérico

Case adBSTR, adChar, adLongVarChar, adLongVarWChar, adVarChar, adVarWChar, adWChar, _
adVariant
        ' Hacer cosas con datos de tipo texto o caracteres

Case adDate, adDBDate, adDBTime, adDBTimeStamp
        If IsDate(lo que hay en el campo) Then
   ' Esto funciona sólo para Access y SQL Server
        End If
' Para Oracle se debe usar la función TO_DATE(lo que hay en el campo, formato de fecha)
        ' el formato de fecha es DD/MM/YY por defecto.
Case Else
       ' El formato de imágenes para estas tres bases de datos es en VB6 el tipo AdLongVarBinary,
       ' el cual tiene el valor de 205.
End Select

Reutilización de componentes en desarrollo de software

2010-07-02T11:23:00.000-07:00

Una respuesta que di cuando alguien me preguntó sobre la reutilización de componentes en desarrollo de software:

Las librerías de la plataforma .Net agrupan clases que sirven para hacer todo: mandar y recibir datos de la consola, controlar el puerto serial, los trabajos de impresión, contienen controles tales como formularios para crear ventanas, botones, cajas de texto, etc.

.Net se basa en la reutilización de pedazos de software (las librerías) y la POO. En .Net todo son clases (las librerías, también llamadas Namespaces agrupan a las clases) y objetos que referencian a estas clases y pueden "heredar" o hacer uso de sus métodos, dentro de éstos están los algoritmos.

En el generador de laberintos se usan mucho las clases y objetos que proporciona el namespace System.Drawings. Yo no he creado ningún componente, todo el laberinto se crea usando este namespace. El objeto de tipo Graphics hereda los métodos necesarios para dibujar el laberinto.

Una explicación más detallada de cómo lo programé está en mi web:
http://yelinna.comoj.com/eam/maze_generator.html
http://yelinna.comoj.com/eam/maze_generator_hex.html

El equivalente de .Net para Java es la JVM o la máquina virtual. Para el Visual C++ existe además el MFC (Microsoft Foundation Clases) que hacen un poco más fácil trabajar directamente con las funciones mismas del sistema operativo (las Apis), que son funciones que se pueden usar para hacer las mismas cosas que con el .Net o la JVM, pero dependen mucho del tipo y versión del sistema operativo (los virus para Windows son básicamente muchas llamadas a las Apis, con ellas se puede ver la libreta de direcciones de Outlook, controlar el envío por red, copair en carpetas específicas del disco duro, ver el usuario actual del sistema, etc).
Como verás, las apis son otro componente reutilizable.

Retornando un valor nulo en lugar de un mapa de bits

2010-05-21T09:57:00.000-07:00

Tengo un método, dentro de una clase cualquiera programada en C#, que procesa un par de mapas de bits y además genera un tercer mapa de bits que es el valor de retorno:

public Bitmap Foo (string r1, string r2)

{

Bitmap bmap = new Bitmap(r1);
Bitmap bmap2 = new Bitmap(r2);

Bitmap bmapR = new Bitmap(bmap.Width, bmap.Height, bmap.PixelFormat);

// hacer cosas, muchas muchas cosas con bmap y bmap2, y la imagen resultante va a bmapR

bmap.Dispose();
bmap2.Dispose();

return bmapR;

}

El problema es que un mapa de bits consume una cantidad considerable de memoria, además todas esas muchas cosas sólo quiero hacerlas si bmap y bmap2 tienen las mismas dimensiones, además que bmapR sólo se crearía para este caso. Se podría programar un método intermedio que llamaría al método Foo sólo si se cumple la condición, pero eso implicaría crear bmap y bmap2 en este método.

Esta manera de solucionarlo ya no me estaba convenciendo.

Entonces recordé que en .Net todo es un objeto, y como tal todo puede tener un valor nulo. ¿Y si retorno un valor nulo (null) en lugar de un bitmap si la condición de las dimensiones iguales no se cumple? Luego podría evaluar si se devolvío un valor nulo o no.

Mi método modificado resultó ser:

public Bitmap Foo (string r1, string r2)

{

Bitmap bmap = new Bitmap(r1);
Bitmap bmap2 = new Bitmap(r2);

            if (bmap.Width != bmap2.Width || bmap.Height != bmap2.Height)
            {
                bmap.Dispose();
                bmap2.Dispose();
                return null;
            }

Bitmap bmapR = new Bitmap(bmap.Width, bmap.Height, bmap.PixelFormat);

// hacer cosas, muchas muchas cosas con bmap y bmap2, y la imagen resultante va a bmapR

bmap.Dispose();
bmap2.Dispose();

return bmapR;

}

Y la forma de llamarla es:

private void Metodo()

{

            UnaClase M = new UnaClase();
            Bitmap bt = M.Foo(ruta1, ruta2);

            if (bt == null)
                MessageBox.Show("Las imágenes deben tener las mismas dimensiones");
            else
                pictureBox.Image = bt;

         // bt.Dispose(); Esta lìnea es mejor omitirla pues da problemas si está en el evento Click de un botón
}

¡Funciona! Y me evito crear tres mapas de bits cuando no los necesito.

:D

Fixed o no Fixed

2010-05-14T14:10:00.000-07:00

Tengo el siguiente código:

using System.Drawing;

namespace SomeNamespace {

unsafe class SomeClass{

private void One() {

Point[] esq = new Point[3];
Point* p = &esq[0];

Two(p);

}

private void Two(Point *p) {

// Write your add here :)

}

Y pareciera que no hubiera error, pues he declarado la clase como "insegura" y estoy pasando un puntero a un dato tipo "Point" como parámetro a otra función. Y aún así me sale este error:

"Error 1 Sólo se puede adquirir la dirección de una expresión de tipo unfixed de un inicializador de instrucción fixed"

C# no deja usar punteros no "fijos" (es decir, cuyo valor, o dirección a la que apuntan, se puedan modificar). Esto es debido al colector de basura, que está siempre monitoreando la memoria, desasignando espacios de memoria, borrando objetos o moviéndolos a otras ubicaciones. Un puntero "fixed" evita que su valor apuntado sea movido a otra ubicación en la memoria, y así poder asegurarse que su valor no será reemplazado por otro sin que nos demos cuenta.

El código "fixed" sería:

using System.Drawing;

namespace SomeNamespace {

unsafe class SomeClass{

private void One() {

Point[] esq = new Point[3];
fixed( Point* p = &esq[0]) {

Two(p);

}

private void Two(Point *p) {

// Write your add here :)

}

Según la documentación de Microsoft, es posible evitar usar "fixed" si se separa espacio en la pila para nuestros punteros. Esto se hacce con "stackalloc". La memoria se libera cuando se sale del método donde se separó el espacio en la pila:

using System.Drawing;

namespace SomeNamespace {

unsafe class SomeClass{

private void One() {

Point[] esq = stackalloc Point[3];

Two(&esq[0]); // también es válido: Two(esq);

}

private void Two(Point *p) {

// Write your add here :)

}

Un dato muy útil para VB6

2010-03-29T11:43:00.000-07:00

Por qué no se debe poner SetFocus en el evento Load de un formulario:

Don't use SetFocus on Invisible Controls

Esto se debe a que el Visual basic llama al método SetFocus antes de que los controles del formulario se hayan cargado.

Cómo saber si un PictureBox tiene una imagen cargada en VB6 y C#

2009-11-20T10:13:00.000-08:00

En VB6:

If PictureBox1.Picture = 0 Then
'PictureBox sin imagen
Else
'PictureBox con imagen
End If

en C#:

if (pictureBox1.Image == null)
{
//picturebox sin imagen
}
else
{
//picturebox con imagen
}

ListBox y ListView para Visual basic 6, algunos detalles.

2009-10-12T11:34:00.000-07:00

Índices de los elementos de un ListBox: Va desde 0 hasta ListBox.ListCount-1.
Índices de los elementos de un ListView: Va desde 1 hasta ListView.ListItems.count

Para capturar el texto del elemento seleccionado en un ListBox se llama a su propiedad "Text": ListBox.Text

El equivalente para un ListView:

ListView.ListItems(ListView.SelectedItem.Index).Text

Lo que va entre paréntesis es el índice del elemento del que queremos saber el texto. En este caso es el ídnice del elemento seleccionado.

Para copiar en un ListView los elementos de un ListBox (y además se muestra cómo recorrerlos):

For i = 0 To ListBox.ListCount - 1

ListView.ListItems.Add , , ListBox.List(i)

El ListView trabaja con dos imageList si se desea poner íconos grandes y pequeños a sus elementos. Para el ejemplo no se asigna ningún ícono, por eso hay parámetros que no se usan en la propiedad ListItems.Add (donde están las comas que van seguidas).

Para borrar todos los elementos de un ListBox y un ListView se usa la propiedad Clear:

ListBox.Clear

ListView.Clear

Cómo Usar el Control ListView en la página del Guille

Conversión de rutas en formato URI a formato del sistema operativo.

2009-09-09T20:36:00.000-07:00

Ya he hablado de este problema en http://toyscaos.tripod.com/hist_csharp.html

La clase "Process" no tiene problemas con el formato URI, pero hay otros casos en que es necesario convertir este tipo de rutas a archivos en sus equivalentes "normales" (como al cargar una imagen en un picture box).

En VB se puede usar:
path = "..\some file"

Donde "path" es un dato de tipo string que almacena la ruta relativa a nuestra aplicación, algo necesario cuando queremos cargar algo ubicado en su misma carpeta, cualquiera que esta sea. Pero esta forma de declarar rutas relativas tiende a generar errores. Una manera más segura, es:

C#:
path = System.IO.Path.GetDirectoryName
(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase);
path = string.Concat(path, "\\some file");

VB:
path = System.IO.Path.GetDirectoryName_
(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
path = String.Concat(path, "\some file")

Pero esto nos da las rutas en formato URI. La forma de convertir a formato "normal" (eliminar la cadena "file://" que tiene al comienzo) es:

C#:

string path;

path = System.IO.Path.GetDirectoryName
(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase);
path = string.Concat(path, "\\some file");

char[] charBuf = path.ToCharArray();
char[] charbuf2 = new char[path.Length - 6];

for (int i = 6; i < path.Length; i++)
charbuf2[i - 6] = charBuf[i];

string ruta = "";
ruta = new string(charbuf2);

VB:

Dim path As String
Dim i As Integer
Dim charbuf As String

path = System.IO.Path.GetDirectoryName_
(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
path = String.Concat(path, "\some file")

charbuf = ""

For i = 7 To path.Length
charbuf = String.Concat(charbuf, path.Chars(i - 1))
Next

ruta = charbuf

Happy Coding!

Limpiar un Combobox (para Visual Studio 2008)

2009-08-23T19:18:00.000-07:00

Si se tiene un control tipo combobox y se lo desea limpiar (borrar todos los elementos de su lista) en VB6 bastaba hacer:
Combobox.Clear

En .Net se debe añadir la propiedad "Items":
Combobox.Items.Clear()

Si el combobox tiene la propiedad "DataSource" enlazada a una base de datos, antes se deberá "romper" el enlace a ésta. Una manera es asignarle un valor nulo:

En VB:
Combobox.DataSource = Nothing

En C#:
Combobox.DataSource = null;

Si no se rompe el enlace, el compilador no nos permitirá limpiarlo. "Nothing" es el valor nulo en VB, "null" es el valor nulo para C#, C++, C o Java. Ambas son palabras reservadas en sus respectivos lenguajes.

Diferencias entre las versiones del Matlab

2009-08-10T11:06:00.000-07:00

Matlab 6.5: Puede instalarse en Windows 98 SE y en Windows 2000 y en computadoras con 128Mb de RAM y procesador de 500MHz.

Matlab 7: Puede instalarse en Windows 2000 y en Windows XP y en computadoras con 512Mb de RAM y procesador de un núcleo de 2GHz. No corre en computadoras con procesadores de doble núcleo. Tampoco ejecuta los programas hechos con el Guide de Matlab 6.5 ni con Simulink del Matlab 6.5

Matlab 7.6: Puede instalarse en Windows XP y Windows Vista. Corre en computadoras con procesador de doble núcleo. Puede ejecutar los programas hechos con el Guide del Matlab 7. No es recomendable correrlo en computadoras con menos de 1Gb de RAM.

Página oficial de Matlab: http://www.mathworks.com/

Alternativas gratuitas:
Octave
FreeMat
Scilab

Microsoft Connect y cómo instanciar una clase en C#

2009-08-07T11:30:00.000-07:00

Sucedió que necesitaba trabajar con manipulación de imágenes en C# (en el namespace System.Drawing) pero en una aplicación de consola. Los problemas que tuve al declarar objetos globales del tipo ColorPalette e Image me llevaron a escribirles a la gente de Microsoft Connect (siempre programo mi C# en el Visual Studio Express). Lo que me respondieron está en este link (en inglés).

En la solución que dan dicen que hace falta crear una instancia a la clase Process. Crear una instancia es simplemente usar: AnyClass p = new AnyClass(); pues .net asigna un constructor por defecto a todas las clases, aún si este no se declara (también hay un destructor implícito).
La solución la programé yo misma, luego de leer las instrucciones de Alex Turner.

Haciendo simplemente:
Image fotoJpg;
ColorPalette cp;

static void Main(string[] args)
{
Program p = new Program();
p.fotoJpg = Image.FromFile("C:\\background-black.jpg");
p.cp = p.fotoJpg.Palette;
}
}

Ya tenía los objetos ColorPalette e Image como globales.

See ya next time!