SoloCodigo

Buenos días, tengo una duda, estoy intentando hacer unas gráficas con unos resultados de una consulta que hago sobre una tabla de Access. La gráfica puede tener diferentes valores en los ejes dependiendo de los parámetros de la consulta que elija el usuario. La conexión a la BD la realizo de forma dinámica, por lo que no puedo asignar un datasource a las series de en tiempo de diseño. Quiero hacerlo en tiempo de ejecución, sé cómo pasarle los valores leídos de la BD pero no sé cómo asignar valores a los ejes. A ver si consigo explicarme mejor, los valores que obtengo (de momento) son una cantidad por un año.


 Personas    Año
 1589            1996
 3451            1997
 5581            1998
 2000            1999


La idea es que en la gráfica se muestren en el eje X los años y los puntos de la gráfica sean las cantidades correspondientes, pero no sé como pasarle los años al eje X

Lo que hago para meter los datos de las cantidades en una serie es:

Código:





Y veo que tanto DBChart como TChart tienen unas propiedades llamadas
RightAxis y LeftAxis, y supongo que debe ser ahí donde debo introducir los años, pero no sé como hacerlo. Alguien puede ayudarme??, la verdad es que aunque no quede bien decirlo es urgente, mañana tengo que haberlo conseguido así que agradecería cualquier tipo de información o ayuda. He consultado el manual que hay en la página de grupo albor pero no he encontrado como hacer esto en tiempo de ejecución.

Muchas gracias por vuestra colaboración.

Hola, no sé si al utilizar el DataBaseDesktop te hará falta algo más, es que yo no lo utilizo, pero para crear mis ejecutables sin tener que distribuir archivos adicionales o librerías y que funcionen en PC's sin Builder lo que hago es:

En "Project\Options\Packages " desmarcar la opción "Build with runtime packages"

En la pestaña "Projects\Options\Linker" desmarcar las opciones
"Use dynamic RTL"
y "Use debug libraries"

Después "Build All"

Verás como el nuevo ejecutable es mucho más grande, pero eso es porque ha incorporado todo lo que le hace falta para poder funcionar sin builder.

Pruébalo, así es como me enseñaron a mí hacerlo y me funciona, pero nunca he utilizado el DataBaseDeskotp... prueba, y espero que haya suerte.

Hola, si no me equivoco, que podría ser que sí, deberías utilizar ADOCommand y no ADOTable, y sería así:


"variable" es una variable en la que tengas almacenado el valor para realizar la consulta, o puedes poner directamente el valor.

Lo que pasa es que desconozco el funcionamiento exacto de este componente, sé que es capaz de devolver un recordset, y si quieres que te lo devuelva debes utilizar un ADODataSet independiente
Esto es lo que viene en la ayuda del Builder:

 The Execute method of TADOCommand is, however, capable of returning a recordset. To use that recordset, however, you will need a separate ADO dataset component.

Espero que mi ayuda te sirva de algo. Un saludo...

Hola Lisnpire, no sé si esto te servirá:

http://Form Transparente

Un saludo...

Muchas gracias Linspire, me lo puedes enviar a shackletta@gmail.com.

 

Bueno, nadie se anima a contestarme, veréis aún no he podido solucionarlo. Otra cosa que he pensado es crear un simple programa en VB que abra un objeto Access y desde él ejecutar la macro, claro, tendría que ejecutar este exe desde el programa hecho en Builder, pero me parece una solución poco elegante, y claro teniendo en cuenta que lo necesito para mi proyecto final de carrera...
En fin, agradecería enormemente que alguien pudiera darme alguna solución. Puedo crear un objeto Access con Builder y acceder a la macro con builder de la misma forma que se puede hacer con VB??

Gracias...

Hola, creo que en lugar de empezar con i=1; deberías empezar con i=0; ya que en los arrays el primer indice siempre es el 0. Por eso en la última iteración del bucle, en lugar de estar accediendo al último entero del DNI estás accediendo a la letra, y por eso pone result = false.

Espero que sea eso.

Un saludo.

Y porqué no pones un cuadro de diálogo (pestaña Dialogs) en el formulario, y se lo asocias a un botón, o a una opción de un main menu, o a lo que quieras, por ejemplo:

void __fastcall TFormMainMenu::Button1Click(TObject *Sender)
{
    //Abro el diálogo para buscar la BD a la que me quiero conectar
    //le pongo filtro y extensión por defecto para que sólo me
    //aparezcan bases de datos de ACCESS

    OpenDialogBD->Filter = "Bases de datos Access (*.mdb)|*.mdb";

    //si el usuario elige una BD del diálogo
    if(OpenDialogBD->Execute())
    {
        // guardo en BDLocal el nombre de la BD elegida por el usuario
        String nombreBDlocal = OpenDialogBD->FileName;
     }
}

Esta es una función muy simple, a la que luego se le podría añadir tratamiento de excepciones (con try{} -catch{})

No sé si esto será lo que realmente quieres, pero creo que es la mejor forma de buscar ficheros. Esta función la hice para BD de Access pero podrías poner cualquier tipo de extensión, utiliza la opción "buscar" en el foro, pon "dialogs" o "diálogos"y seguro que hay varias respuestas.

Un saludo.

Muchas gracias por la información, lo había resuelto de otra manera pero me has abierto un nuevo camino. Gracias.

Hola de nuevo, me han surgido otras dudas, a ver, os explico,  en mi programa creo la conexión ADO en tiempo de ejecución, he creado un datamodule donde he puesto la ADOConnection, una ADOTable, una ADOQuery, y también un ADODataSet, a estos 3 últimos, les asigno (en ADOConnection->OnConnectComplete) en el parámetro connection la ADOConnection que he creado.

Para realizar las consultas, debo hacer algo más? (aparte de escribirlas en la ADOQuery), es decir, tengo que vincular el ADOTable a alguna tabla de mi BD?, cómo puedo mostrar en un listbox las tablas de las que consta mi BD para así poder elegir una?, y si quiero añadir una tabla a mi BD, cómo puedo hacerlo?, porque en mi BD hay una tabla vacía con el nombre de los campos y el formato de estos, y mi idea era mostrarla en una ventana, que el usuario la rellene y luego hacer un "guardar como ...", esto es factible?, es recomendable?

Orientadme por favor, porque voy perdidisíma con esto y se me está echando el tiempo encima, a parte de que estoy a punto de caer en una depresión profunda... No sé donde encontrar más información sobre ADO y sobre todos los pasos que debería hacer, o todos los componentes que debería usar.... y no me remitais a la ayuda del builder, porque en este tema no me está solucionando nada, sólo consigue marearme más.

Gracias por todo.

Hola de nuevo, intento realizar una conexión ADO a una BD en access cuyo nombre escoge el usuario desde un diálogo, utilizo el siguiente código:

void __fastcall TFormMainMenu::ButtonConectarClick(TObject *Sender)
{
    OpenDialogBD->DefaultExt="MDB";
    OpenDialogBD->FileName="*.mdb";
    if(OpenDialogBD->Execute())
    {
        // guardo en nombreBDLocal el nombre de la BD elegida por el usuario
        nombreBDlocal = OpenDialogBD->FileName;
        Inicializar(nombreBDlocal);
     }
     else
    {
        ShowMessage("Debe elegir una BD.");
     }
}
//---------------------------------------------------------------------------
// FUNCION Inicializar
// Realiza la conexión a la BD que el usuario ha elegido del diálogo. Se le
// asignan los parámetros correspondientes a la conexión
//---------------------------------------------------------------------------
void Inicializar(AnsiString nombre) //llama a esta función pasandole el nombre que se ha cogido desde el dialogo
{
    //Para la conexión con la BD de destino
    if(DataModule1->ConexionBDlocal->Connected==false)
    {
        AnsiString conexion="Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=";
        conexion+=nombre;
        conexion+=";Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";";
        conexion+="Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;";
        conexion+="Jet OLEDB:Database Locking Mode=2;Jet OLEDB:Global Partial Bulk Ops=2;";
        //Por defecto el locking Mode es 1!!!!!!! con 2 no se bloquea.....
        conexion+="Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";";
        conexion+="Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;";
        conexion+="Jet OLEDB:Don't Copy Locale on Compact=False;";
        conexion+="Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False";
        DataModule1->ConexionBDlocal->ConnectionString = conexion;
        DataModule1->ConexionBDlocal->Connected = true;
    }
}

Pero me da una EOleException con el mensaje "No se estableció el valor de una propiedad de sólo lectura ",  alguien sabe a que se refiere esto??, la función inicializar debería pertenecer a una clase ¿no?, cómo podría ponerla??, y dónde??

Ambas funciones están en el .cpp del mainform, y nombreBDlocal la he definifo como un AnsiString de manera global también en el mismo .cpp ¿Qué más debería hacer?¿O que no debería hacer?

De todas maneras, si alguien puede indicarme otra forma de hacer lo mismo, que me lo diga POR FAVOOOOOR!!!
 

Muchas gracias.