Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-12-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Hola Albano, aun no leo completo tu soliloquio de hoy pero me llama la atención esto:

Cita:
Empezado por Albano
supongo que para lograrlo necesito una forma para poner los componentes en ella
A menos que en Delphi 2005 hayan desaparecido, puedes usar un DataModule en lugar de un formulario porque realmente no necesitas mostrar una ventana, ¿cierto? Es decir, si lo único que quieres es una "superficie" para colocar tus componentes de acceso a datos y poder ajustar sus propiedaded en el inspector de objetos, entonces basta un DataModule.

// Saludos
Responder Con Cita
  #2  
Antiguo 11-12-2006
Avatar de Albano
Albano Albano is offline
Miembro
 
Registrado: oct 2004
Ubicación: Nogales, Sonora, Mexico
Posts: 422
Poder: 22
Albano Va por buen camino
Cita:
Empezado por roman
aun no leo completo tu soliloquio de hoy
Corrección: De ayer y hoy jaja... Lo que pasa es que soy novato y estoy haciendo pruebas, de repente quito un error y pongo otro... "echando a perder se aprende"...
Cita:
Empezado por roman
puedes usar un DataModule en lugar de un formulario porque realmente no necesitas mostrar una ventana, ¿cierto?
Creo que eso es lo que estoy buscando, lo que necesito es conectarme a la base de datos con una DLL, pero no se cómo agregar componentes cuando estoy haciendo una DLL para que, mediante ellos, me pueda conectar a mi base de datos.
Responder Con Cita
  #3  
Antiguo 11-12-2006
Avatar de Albano
Albano Albano is offline
Miembro
 
Registrado: oct 2004
Ubicación: Nogales, Sonora, Mexico
Posts: 422
Poder: 22
Albano Va por buen camino
Haber si poniéndo imágenes y un poco de código de mi proyecto es mas sencillo expresar lo que quiero hacer:

Aqui se muestra el programa en tiempo de ejecución... En el primer DbLookUpComboBox me aparecen las bases de datos que tengo en mi sistema.
También tengo un botón que dice conectar, al darle click a ese botón me conecto a la base de datos que seleccioné en el primer DBLookUpComboBox y aparecen las tablas que ésta tiene en el segundo DBLookUpComboBox.
Por último, tengo un botón que dice mostrar datos, ese pone en un query la consulta para que me arroje todos los registros que tengo en la tabla seleccionada al DBGrid.

Aqui muestro mi formulario en el tiempo de diseño, los componentes ADO quiero que esten en una DLL, así como el código que utilizo para conectarme...

Ahora pondré el código que utilizo para hacer lo que mencioné arriba.
Código Delphi [-]
procedure TForm1.BtnConectarClick(Sender: TObject);
begin
  if bbdd.Text <> '' then     //bbdd es el DBLookUpComboBox que muestra las bases de datos del sistema
  begin
    BD := bbdd.Text;
    tablas.ListField := '';
    tablas.KeyField := '';
    conexiontablas.Connected := false;
    querytablas.Active := false;
    tablas.Enabled := false;
    conexiontablas.ConnectionString := 'Provider=MSDASQL.1;Password=pass;Extended Properties="DATABASE=' + bd + ';DRIVER={MySQL ODBC 3.51 Driver};OPTION=3;PWD=pass;PORT=0;SERVER=localhost;UID=root"';
    conexiontablas.Connected := true;
    querytablas.Active := true;
    tablas.ListField := 'Tables_in_' + BD;
    tablas.KeyField := 'Tables_in_' + BD;
    tablas.Enabled := true;
    btnmostrar.Enabled := true;
  end
  else application.MessageBox('Seleccione una base de datos a la que se desea conectar',
                              'ERROR',Mb_ok + Mb_Iconerror);
end;

procedure TForm1.BtnMostrarClick(Sender: TObject);
begin
   if tablas.Text <> '' then     //tablas es el DBLookUpComboBox que muestra las tablas que tiene la base de datos seleccionada
   begin
     Tabla := tablas.Text;
     querydatos.SQL.Clear;
     querydatos.SQL.Insert(0, 'select * from ' + Tabla);
     querydatos.Active := true;
   end
   else application.MessageBox('Seleccione una tabla para mostrar su contenido',
                               'ERROR', Mb_ok + Mb_Iconerror);
end;
Qué necesito para poner esos componentes y el códgio en la DLL?

Última edición por Albano fecha: 11-12-2006 a las 20:09:56.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 06:46:03.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi