entrando en el mundo ADO

[weke]

La conexión la creo en tiempo de diseño, en tiempo de ejecución solo voy a conectarla (cuando cree la aplicación) y desconectarla (cuando la cierre):

Código Delphi [-]
Connected:=true;
Conencted:=false;

Pero de momento no la he dejado a false porque me da el error antes de crear la aplicación, y me sigue dando el error.

Gracias.

[Nelet]

En la cláusula USES tienes la referencia a ADOdb?

[weke]

Gracias, Fnadalo, por tus consejillos. Los pondré en práctica en cuanto pueda.

Ahora respondiendo a la pregunta de Nelet, si tengo la referencia a ADODB en el uses.

[weke]

Fnadalo, ya he modificado lo del Datamodule que me indicaste, funciona muy bien, gracias otra vez.
Con respecto a si utilizao muchos registros, pues de 100 para arriba. Antes tenía hechas una serie de consultas que me funcionaban correctamente, pero en ADO no se si cambiará en algo. La verdad es que no he tocado nada de la consulta que tenía, simplemente le he cambiado el nombre al ADOQuery y he ejecutado, pero la consulta no me devuelve nada. Un ejemplo de consulta es la siguietne:

Código Delphi [-]
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM Music WHERE Formato like "*' + aux + '*" order by Grupo');
  Query1.Active:=true;
  Query1.Open;

Si hay algún error, gracias por indicármelo.

Saludos.

[FNADALO]

Weke te paso un código que es como lo utilizo este genera
un Abm a partir de unos campos y una tabla,

Código Delphi [-]
  AdoQuery1.Close;
     AdoQuery1.SQL.Clear;
     ADOQuery1.Connection := DataModule1.ADOConnection1;

     if SqlStr.Text <>'' then
        begin
           AdoQuery1.SQL.Add(SqlStr.Text)
        end
        else AdoQuery1.SQL.Add('Select * From '+ Tabla.Text);

//     AdoQuery1.SQL.Add(SqlStr);
//     AdoQuery1.SQL.Add('Select * From '+ Tabla );
     if Busca.Text <> '' then
        begin
           AdoQuery1.SQL.Add('where '+ Busco.Text);
           AdoQuery1.SQL.Add(' LIKE '+ quotedStr(Busca.Text) +' + ' + '''%''');
        end;


     AdoQuery1.SQL.Add('ORDER BY ' + Busco.Text);
     AdoQuery1.Open;

  // Asignación al Objeto DataSource el DataSet. ---
     DataSource1.DataSet := AdoQuery1;

Fijate en la linea que tengo el Like.

[weke]

He hecho la siguiente modificación pero sigue sin devolverme nada:

Código Delphi [-]
Query1.SQL.Add('SELECT Teléfono, Nombre, Apellidos, TeléfonoMóvil, Cumpleaños FROM '+
     'Agenda WHERE Nombre like "*' + quotedStr(aux) + '*" order by Nombre');

Seguiré probando.

[FNADALO]

Weke
no Admite el * en su lugar debes poner lo siguiente

WHERE Nombre like QuotedStr(aux)+ '%'

Pruebalo y dime cosas...

[[fjcg02]]

Si analizas lo que estás enviando como SQL, será algo como
SELECT * FROM TABLA where CAMPO LIKE "*'valor_de_aux'*"
Por eso no te devuelve nada.

Prueba a poner Query.Add('SELECT * ... WHERE CAMPO LIKE '+Quotedstr('%'+valor_de_aux+'%'))

A ver si tienes suerte.

Un saludo