Conexion a base de datos Access con ODBC

[Neftali [Germán.Estévez]]

Empezado por Nbull

pero, ahora la tengo que poner en un servidor, yo pensaba poner la dirección del servidor en el Adoconnection y solucionado, pero, el servidor es un Nt que solo admite cuatro conexiones o algo asi y mi compañero que lleva el tema me dice que debo hacer la conexion por ODBC.

Supongo que la restriccion de 4 conexiones o usuarios debe ser por temas de licencia de NT(es una suposicion);
Lo que no acaba de entender es la diferencia a conectarte con ADO a vía ODBC. ¿Las conexiones serán las mismas no?

[[Nbull]]

Hola Neftalí, yo pienso igual que tu, por que alfin y al cabo tienes que acceder a la base de datos y eso genera una conexión con el servidor ¿no?, pero bueno lo hago por ODBC y entonces mi problema es que al hacer el cambio de proveedor de jet a odbc cuando ejecuto mi programa me salta una excepción que pone:


"Class EoleException with message El proveedor de datos u otro servicio devolvió un estado E FAIL"

No se que quiere decir y como lo puedo solucionar.
A ver si sabeis por que me pone esto.¿Tiene algo que ver con las clausulas join de las adoquery?

Gracias.

[[Nbull]]

Bueno por una vez me puedo responder a mi mismo, la solución al error era poner en la propiedad CursorLocation del AdoQuery poner CluseServer en vez de ClUseClient.

Neftalí Gracias por tu ayuda. Un saludo.

Bueno un saludo a todo el mundo y Feliz Navidad a tod@s.

[alfil123]

bueno amigos mi problema loresolvi conesto, espero le sirva a alguin

Código Delphi [-]
 procedure TMantenimiento_Control.SpeedButton8Click(Sender: TObject);
 var n,m,a:integer;
 //m:string;
 begin
   inherited;
   ADOQuery1.Close;
   ADOQuery1.sql.Clear;
   ADOQuery1.SQL.Add('select *');//count(id_control) as n');
   ADOQuery1.SQL.Add('from d_c_clase ');
   ADOQuery1.SQL.Add('where id_control='+ le_id01.text);
    ADOQuery1.ExecSQL;
     ADOQuery1.open;
   if ADOQuery1.RecordCount =0
        then
        begin
      ADOQuery1.Close;
      ADOQuery1.sql.Clear;
      ADOQuery1.SQL.Add('delete');
     ADOQuery1.SQL.Add('from control ');
     ADOQuery1.SQL.Add('where id_control='+ le_id01.text);//06');//'+ le_id01.text );
     ADOQuery1.ExecSQL;
      ADOQuery1.Close;
       showmessage('Eliminacion completada')
       end
   else
   showmessage('Existe registros relacionados con este codigo, primero debe eliminarlos');
   exit;
 end;