Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   Delphi Access (https://www.clubdelphi.com/foros/showthread.php?t=90820)

spring123 11-09-2016 16:04:29

Delphi Access
 
Buenas disculpen la molestia pero tengo una Duda..que espero que me ayuden!...no se que hacer y estoy trancado en esto!..

estoy haciendo un sistemita normalito en donde lo unico que quiero es lo siguiente, conecto un ADOConnection, y ADOTable, con una base de datos que tengo en Access...y quiero que en un ComboBox, pueda seleccionar lo qeu hay en la tabla ERROR(campo1), y al Darle en un boton Buscar , se me muestre en un memo la SOLUCION de un problema...


(la tabla tiene 2 campos, Error y solucion) repito, quiero que ne el combobox se muestre el error, y en el memo la solucion, usando el boton para bucar la solucion.... uso este Codigo:


Código Delphi [-]
begin
x:=0;
dm.ADOTable1.open;
dm.ADOTable1.First;
       while x<>dm.ADOTable1.recordcount do
       begin
        ComboBox1.items.add(dm.ADOTable1.fieldbyname('Error_5S').Asstring);
        dm.ADOTable1.Next;
        x:=x+1;
end;


y en el button uso este codigo

Código Delphi [-]
begin
dm.ADOTable1.Open;
    Memo1.lines.clear;
If Dm.ADOTable1.Locate('Error_5S',ComboBox1.Text,[]) then
    Memo1.lines.add(dm.ADOTable1.fieldbyname('Solucion_5S').Asstring);
dm.ADOTable1.Close;
end;

Pero cuando lo Corro, que lo usare! Me carga sin problemas los ERRORES en el combobox!...pero cuando le doy a buscar para que me muestre la SOLUCION en elMEMO!...me tira este error que es el que me tiene estresado...


Project Project1.exe, raised exception class EOleException with message 'No se puede aplicar el criterio de ordenacion'. Process stopped. Use step or Run to Continue.

me dice queel problema esta aqui:


Código Delphi [-]
If Dm.ADOTable1.Locate('Error_5S',ComboBox1.Text,[]) then

Neftali [Germán.Estévez] 12-09-2016 10:07:47

¿Es posible que tengas activadas las excepciones en diseño?
¿Si le das a continuar, qué hace?

Para el tema de las excepciones revisa este link.


La franja horaria es GMT +2. Ahora son las 13:18:50.

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