Continuando minha série de tutoriais a respeito do Delphi, agora chego a parte de conexão com Banco de Dados Firebird.
Tendo instalado estes três componentes vamos ao que interessa.
- Abra o IBExpert
- Crie uma Base de Dados com o nome teste.fdb, selecionando a versão do seu firebird, salve-a em c:\temp\, senha masterkey, usuário sysdba.
- Crie uma tabela, usuario com os campos codigo e nome, no campo código marque a opção autoinc, para criar um campo incremental, uma tela irá abrir, marque create generator, va até a palheta procedure, marque create procedure. Isto é o suficiente para criar uma tabela com o código incrementado através de uma stored procedure
- Abra o Delphi
- Localize a na palheta IBOdataset, e adicione os componentes: IBODATABASE, IBOQUERY, da palheta Data Access adicione um DataSource, da palheta DataControl adicione um DBNAVIGATOR.
- Clique duplo sobre o IBODATABASE, irá abrir uma tela para conectar ao banco de dados, selecione a base de dados C:\temp\teste.fdp que você criou, senha masterkey, usuário sysdba, e marque o campo remember. pode dar um Ok nesta tela, selecione o componente IBODATASET novamente, e deixe-o conected=true;
- selecione o componente IBOQuery, clique com o botão direito e vá em SQL Editor, ponha select * from teste na sql. Ok nesta tela, deixe o IBOQuery.Conection=IBODATABASE e ACTIVE=True;
- Agora ligue o DataSource ao IBOquery, e o DBNavigator ao DataSource;
- lique com o Direito novamente no IBOQuery e agora va em Fields Editor, clique com o direito na pequena tela que surge e selecione add all fields;
- Selecione os Fields que surgiram e arraste para o Formulário, sua aplicação já deve estar funcinando.
É isto acesso nativo ao firebird em 10 passos através do IBO+Delphi, basta a você perfumar um pouco, até mais.