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