Buscando una cadena dentro de una tabla

[carlos v.p.l.]

mmm je je je no kisiera regarla y no se donde esta el archivo no lo encuentro por ningun lado ,me puedes ayudar? por favor? o podrias recomendarme alguna otra manera de atacar mi problema por favor y grax

[Casimiro Noteví]

Es algo complejo cuando no has explicado detalladamente qué quiéres hacer, pero si no voy muy mal equivocado, sólo pretendes buscar un texto y usas interbase con los componentes ibx?

Lo más lógico es usar sql, un componente IBDataSet y en su propiedad selectsql.text pones la sentencia de búsqueda, algo así:

Añade al form un tibdataset, un tedit y un botón

QR1: TIBDataSet;
bt1: TButton;
ed1: TEdit;

En el edit ponemos lo que queremos buscar y en el onclick del botón:

procedure TForm1.bt1Click(Sender: TObject);
begin
  qr1.Close;
  qr1.SelectSQL.Text := 'select campo from tutabla where campo containing '+quotedstr(ed1.text);
  qr1.Open;
  ShowMessage( QR1.fields[0].AsString );
end;

Es sólo un ejemplo para que te sirva de referencia.

[[Caral]]

Hola

No entiendo nada.
Saludos

[carlos v.p.l.]

ok, uso una unidad 2 como modulo de datos ahi tengo mi TIBDatabse mi TIBtransaction y por ejemplo
mi tabla TIBTable "clientes", en una unidad 5
tengo un TDatasource hacia clientes, en mi form de la unit 5 tengo un tDbgrid conectado al
datasourc , tons mi tabla clientes tiene un campo nombre y un campo idcliente por ejemplo,.

soy bastante novato en esto asi ke pues en donde esta el uses de mi form5 inclui mi unit2 entonces para acceder a mi tabla accedo de esta manera:
Unit2.DataModule2.cliente y ya por ejemplo para usar alguna propiedad pues:
Unit2.DataModule2.cliente.FieldbyName ,y funciona bien , si kisiera bsucar un 'carlos' por ejemplo en el campo 'nombre' siguiendo tu ejemplo esta bien esta sintaxis? o me ekivoke en algo por ke me marcar un error:

Código Delphi [-]
procedure TForm5.Button1Click(Sender: TObject);
begin
    IBDataSet1.Close;
    IBDataSet1.SelectSQL.Text:='select nombre from Unit2.DataModule2.cliente where nombre containing'+quotedstr(Edit2.Text);
    IBDataSet1.Open;
    ShowMessage( IBDataSet1.fields[0].AsString );

end;

donde IBDataSet1 es mi dataset
espero me puedas seguir ayudando grax

[[Caral]]

Hola
Vamos por partes:
1: datamodule = unit2
tienes: TIBDatabse1, TIBtransaction1 y TIBTable1
2: form5 = unit5
tienes: datasource1, dbgrid1, button1, Edit2.
Todo conectado correctamente.
3: Unit2 esta en el uses del unit5??. suponemos que si.
4: en el boton1:

Código Delphi [-]
procedure TForm5.Button1Click(Sender: TObject);
begin
    DataModule2.TIBTable1.Close;
    DataModule2.TIBTable1.SQL.Text:='select * from tutabla where nombre like '+quotedstr(Edit2.Text);
    DataModule2.TIBTable1.Open;
  //  ShowMessage( IBDataSet1.fields[0].AsString ); // no entiendo para que?

end;

Voy bien?
Saludos

[carlos v.p.l.]

Empezado por Caral

Hola
Vamos por partes:
1: datamodule = unit2
tienes: TIBDatabse1, TIBtransaction1 y TIBTable1
2: form5 = unit5
tienes: datasource1, dbgrid1, button1, Edit2.
Todo conectado correctamente.
3: Unit2 esta en el uses del unit5??. suponemos que si.
4: en el boton1:
Código Delphi [-]procedure TForm5.Button1Click(Sender: TObject); begin DataModule2.TIBTable1.Close; DataModule2.TIBTable1.SQL.Text:='select * from tutabla where nombre like '+quotedstr(Edit2.Text); DataModule2.TIBTable1.Open; // ShowMessage( IBDataSet1.fields[0].AsString ); // no entiendo para que? end;

Voy bien?
Saludos

En lugar de * seria el campo nombre y no le habia puesto like le habia puesto containing ya probe pero = tiene error y vas bien grax

[[Caral]]

Hola
Tiene error????.
Que error????, donde, cuando, como?.
Saludos

[carlos v.p.l.]

al parecer tiene un problema con mi punto despues de Unit2 en la siguiente instruccion

Código Delphi [-]
procedure TForm5.Button1Click(Sender: TObject);
begin
    IBDataSet1.Close;
    IBDataSet1.SelectSQL.Text:='select nombre from Unit2.DataModule2.cliente where nombre like'+quotedstr(Edit2.Text);
    IBDataSet1.Open;
end;

end.

Y es que por ejemplo en otros form cuando tengo que acceder a un campo de mi tabla por ejemplo para saber el valor accedo asi:

Código Delphi [-]
Unit2.DataModule2.nombredelatabla.FielByName('campo').value;

por ejemplo
de ke otra manera puedo acceder ami tabla y grax