Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-02-2004
darkone2k3 darkone2k3 is offline
Miembro
 
Registrado: oct 2003
Ubicación: Frente al Computador.
Posts: 29
Poder: 0
darkone2k3 Va por buen camino
Exclamation Conectarse en ADO a través de un DLL

Salu2 nuevamente amigos foristas.

Estoy trabajando con ADO para conectarme a una BD en Access.
Uso un DataModule, donde tengo un ADO Connection y una Query.
En mi sistema tengo una DLL con varias funciones, como validar RUT(Chile), validar fecha, etc.
Tengo varios formularios en los cuales debo llenar algunos combobox's y memo's con datos de la BD. Entonces para no repetir esas rutinas de llenado de datos, quiero crear una función en mi DLL para esto.
Tengo creada la función para llenar los combobox's pero me arroja un error de violación de memoria.
Aqui les dejo el codigo de la función.
Código:
Function Rellena( Combo: TComboBox; Buscar: String; Tabla: String ): String;
begin
//   Try
      ShowMessage('1');
      DM.Query.Close;
      ShowMessage('2');
      DM.Query.SQL.Clear;
         DM.Query.SQL.Add( 'Select ' + Buscar + ' From ' + Tabla + ' Where 1 = 1 Order By ' + Buscar );
      DM.Query.Open;
      While Not DM.Query.Eof Do
      Begin
         Combo.Items.Add( DM.Query.FieldByName( Buscar ).AsString );
         DM.Query.Next;
      End;
{   Except
      Application.MessageBox( '¡Error en el Procedimiento Llenar ComboBox!, Contacte a su Proveedor de Servicio', 'Error', Mb_Ok + Mb_IconError );
   End;}
End;
Pero me da un error después de mostrar el '1' como resultado del ShowMessage. Y no sé a que se puede deber este error.

Por si acaso, tengo incluido en el uses de la DLL, la unit Data_Module.

Necesito de su ayuda amigos.

Salu2 desde Chile
Responder Con Cita
  #2  
Antiguo 02-02-2004
darkone2k3 darkone2k3 is offline
Miembro
 
Registrado: oct 2003
Ubicación: Frente al Computador.
Posts: 29
Poder: 0
darkone2k3 Va por buen camino
Ya solucioné el problema, amigos.

Lo que pasa es que estaba usando el ADOConnection y la Query de mi sistema, por eso me arrojaba el error, así es que opté x crear el ADOConnection y la Query en tiempo de ejecución en la DLL.

Salu2 desde Chile.
Responder Con Cita
Respuesta



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 12:22:33.


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