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 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 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?