Conexão Delphi x Firebird

[Renas 0]

Estou com problemas para conectar o Delphi com o Firebird...Alguém poderia me ajudar????Se puder por favor respondaou me mande 1 email:renato-sartori@ig.com.brObrigado....

[walace 1]

Peguei este pequeno tutorial de um outro fórum que não lembro qual é, mas deve ser o clubedelphi:

 

 

Como configurar os componentes IBX para acessar uma tabela

 

crie um banco de dados com uma tabela com a seguinte estrutura:

Código:

 

create table teste1 (   codigo      integer not null,   nome       varchar(30) not null,   endereco  varchar(60),   telefone    varchar(15),   primary key pk_teste1 (codigo) ); create index ix_teste1_nome on teste1 (nome);

 

crie um novo projeto no Delphi e coloque no form::

 

1 panel (Align=alTop, Caption='')

1 IBDatabase (DefaultTransaction = IBTransaction1, LoginPrompt = False)

1 IBTransaction (DefaultDatabase=IBDatabase1)

1 IBDataSet (Database=IBDatabase1, Transaction = IBTransaction1)

1 DataSource (DataSet = IBDataSet1)

1 dbGrid (Align=alClient, DataSource=DataSource1)

1 dbNavigator (no Panel -- DataSource = DataSource1)

 

 

dê um duplo-clique no IBDAtabase e configure::

 

database = caminho do banco criado anteriormente

 

clique na opção REMOTE e configure tb:

 

server = localhost

protocol = tcp

username = sysdba (ou outro usuário)

password = masterkey (a senha do seu usuário)

character set = o character set q você criou o banco

 

clique OK

 

configure ainda no seu IBDatabase a propriedade AllowStreemedConnected = FALSE

 

 

agora, dê um duplo-clique no IBTransaction e selecione a opção READ COMMITED, clique OK

 

vamos configurar então o IBDataSet

 

na propriedade SelectSQL coloque seu select, ex::

 

SELECT * FROM TESTE1

WHERE NOME STARTING WITH :par1

 

agora, clique com o botão direito do mouse no IBDataSet1 e selecione no menu "Dataset Editor..."

 

no editor do IBDataSet, na lista a esquerda (key fields) selecione apenas o campo CODIGO, na lista da direita, selecione todos os campos.

 

clique no botão GENERATE SQL -- nesse momento, observe os SQLs gerados, eles são um bom exemplo de como devem ser! E você pode notar (e controlar) tudo q vai ocorrer em cada operação.

 

Clique OK para fechar o assistente.

 

Agora, dê um duplo-clique no IBDataSet e adicione o campos persistentes (botão direito e selecione o menu "Add all fields)

 

bom, coloque agora no PANEL1 um Botão e um Edit.

 

limpe a propriedade Text do Edit e...

...no botão coloque o caption = 'pesquisar' e o código no OnClick::

Código:

IBDataSet1.Close; IBDataSet1.Params[0].AsString := Edit1.Text; IBDataSet1.Open;

 

 

e no evento onCreate do seu Form coloque::

Código:

try IBDatabase1.Connected := True; except ShowMessage('não foi possível realizar a conexão com o BD'); end;

 

 

e no OnClose ou OnDestroy do form coloque::

Código:

try if IBTransaction1.InTransaction then IBTransaction1.Commit; IBDatabase1.Connected := False; except ShowMessage('erro de comunicação com o BD'); end;

 

 

 

coloque mais 2 botões no PANEL1 com os captions COMMIT e ROLLBACK, e coloque os códigos no OnClick (respectivamente)::

 

IBDataSet1.Transaction.CommitRetaining;

 

e

 

IBDataSet1.Transaction.RollbackRetaining;

 

 

PRONTO!!!

 

Execute o programa, clique no botão Pesquisar (não vai haver nada) inclua uns registros... clique no botão COMMIT, e etc... vai usando ele (incluir, editar, excluir, etc... etc...)!