fazer uma busca e mostrar no data grid ?

Delphi

26/02/2008

Bom dia, amigos

Gostaria de saber como eu faço uma busca no banco de dados e mostrar no datagrid.

tipo
on click button
Tabela.filter:=Edit1.text + ¬;

nao sei a sintaxe no delphi .net, mas por favor me de a dica, pois estou gostando dessa ferramenta.

Grato Marin


Marinbat

Marinbat

Curtidas 0

Respostas

Pauloroger

Pauloroger

26/02/2008

Vamos lá, qual banco tu usas ????


GOSTEI 0
Marinbat

Marinbat

26/02/2008

AMIGO OBRIGADO...

PODE SER EM QUALQUER BANCO....


GOSTEI 0
Sandroperes

Sandroperes

26/02/2008

o exemplo que vou colocar e do firebird.
Eu encontrei uma metodologia que estou usando bastante que criar uma classe.

//***********************
unit uCredenciado;

interface

uses
FirebirdSql.Data.Firebird, System.Data;

type
Credenciado = class
private
{ Private Declarations }
FbConnection1 : FbConnection;
FbCommand1 : FbCommand;
FbDataAdapter1 : FbDataAdapter;
public
constructor Create;
function getCredenciado(nome:string) : DataSet;
end;

implementation

uses
System.Configuration, System.Text;

constructor Credenciado.Create;
begin
inherited Create;
// TODO: Add any constructor code here
end;



function Credenciado.getCredenciado(nome: string): DataSet;
var
configurationAppSettings: System.Configuration.AppSettingsReader;
ds: DataSet ;
sb: StringBuilder; //adicione o Namespace System.Text
isWhereAnd : boolean;
begin
ds := DataSet.Create();
configurationAppSettings := System.Configuration.AppSettingsReader.Create;
FbConnection1 := fbConnection.Create((string(configurationAppSettings.GetValue(´c´ +
´onn.ConnectionString´, TypeOf(string)))));

filtro := ´´;
if not (nome = ´´) then
filtro := filtro + ´WHERE D.DST_NOME LIKE @DST_NOME´#1310;

sb:= StringBuilder.Create(´SELECT DISTINCT D.DST_CODIGO CODIGO,D.DST_NOME NOME,D.DST_CRM REGCRM,D.DST_ENDER ENDERECO,D.DST_BAIRRO BAIRRO,D.DST_CIDADE CIDADE,D.DST_UF UF,´1310 +
´D.DST_CEP CEP,D.DST_TELEFONE TELEFONE,D.DST_CNPJ CPF_CNPJ,D.DST_FAX TELEFONE2,D.TPC_CODIGO TPC_CODIGO,´1310 +
´D.DST_PROPRIO PROPRIO,D.DST_UF REGCRM_UF,D.DST_COMPLEMENTO COMPLEMENTO,CAST(´´´´ AS VARCHAR(10)) AS TISS_CONSELHO_ID,´1310 +
´E.ESP_NOME´#1310 +
´FROM DESTINOS D´1310 +
´LEFT JOIN ITENSDEST I ON I.DST_CODIGO = D.DST_CODIGO´1310 +
´LEFT JOIN ESPECIALIDADES E ON E.ESP_CODIGO = I.ESP_CODIGO´1310 +
filtro +
´ORDER BY D.DST_NOME´);

FbCommand1 := FbCommand.Create(sb.ToString);

FbCommand1.Connection := FbConnection1;

if not (nome = ´´) then
begin
Self.FbCommand1.Parameters.Add(FirebirdSql.Data.Firebird.FbParameter.Create(´@´ +
´DST_NOME´, FirebirdSql.Data.Firebird.FbDbType.VarChar, 0, System.Data.ParameterDirection.Input,
False, (Byte(0)), (Byte(0)), ´DST_NOME´, System.Data.DataRowVersion.Current,
´´));
end;

FbDataAdapter1 := FbDataAdapter.Create(FbCommand1);
FbConnection1.Open();
try
if not (nome = ´´) then
FbCommand1.Parameters[´@DST_NOME´].Value := nome + ´¬´;
FbDataAdapter1.Fill(ds);
finally
FbConnection1.Close();
end;
result := ds;
end;


end.
//****************


No evento do onclick do botão faço uma chamada

procedure TWebForm3.btnLocalizar_Click(sender: System.Object; e: System.EventArgs);
begin
FiltrarDataGrid;
end;

//*****************

procedure TWebForm3.FiltrarDataGrid;
var
dsCredenciados : DataSet;
c : Credenciado;
begin
c := Credenciado.Create;
dsCredenciados := c.getCredenciado(tbNOME.Text.ToUpper());
DataGrid1.DataSource := dsCredenciados;
DataGrid1.DataBind();
//
end;

//*******

Eu sugiro que vc veja as videos aulas do luciano de ameida e guinter da cluebdelphi, e tambem artigos da activedelphi. Eles tem me auxiliando bastante no meu aprendizado.

Um abraço.


GOSTEI 0
Pauloroger

Pauloroger

26/02/2008

Bom exemplo, show de bola.


GOSTEI 0
POSTAR