Lazarus Database Tutorial/pt: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		## Introdução
2	2
3	3		Este tutorial mostra como usar o Lazarus com uma variedade de Bancos de dados.
4	4
5	5		O Lazarus suporta uma diversidade de banco de dados fora-da-caixa, entretanto os desenvolvedores instalam os pacotes adequados para cada um. Você pode acessar o banco de dados por código ou jogando componentes no formulário. Os componentes do tipo data-aware (que precisam de uma fonte de dados para funcionar) representam campos e são conectados ajustando a propriedade DataSource para apontar para o TDataSource. O Datasource representa a tabela e é conectado ao componente do banco de dados (exemplos: TPSQLDatabase, TSQLiteDataSet) ajustando a propriedade DataSet. Os componentes data-aware ficam localizados na aba "Data Controls". Os controles Datasource e o Database estão localizados na aba "Data Access".
6	6
7	7		## Lazarus e MySQL
8	8
9	9		### Comece a trabalhar com MySQL no Linux ou Windows
10	10
11	11		Siga as instruções no Manual do usuário MySQL. Certifique-se que o mysqld daemon está rodando satisfatoriamente, e que todos os potencias usuários(incluindo root, mysql,você mesmo e qualquer outro que possa necessitá-lo) tenham os privilégios a eles necessários, para os possíveis hosts que possam necessitá-lo(incluindo 'localhost', o hostname local, e outros hosts na sua rede) para manter consistência e segurança. É preferivel que todos os usuários incluindo o root tenham passwords. Teste as ações do sistema de banco de dados usando os exemplos dados no manual do mysql, e certifique-se que todos os usuários sejam confiáveis no acesso.
12	12
13	13		### Comece a trabalhar com FPC no modo texto
14	14
15		-	Este é o diretório com programa de exemplo \$(fpc<b>src</b>dir)/packages/base/mysql/. Voce pode encontrar código fonte do FPC (Free Pascal Compiler) no Lazarus: Menu Tools -\> Options -\> Environment -\> Paths tab -\> FPC source directory. Possivelmente o endereço para o mysql seja em /usr/share/fpcsrc/packages/base/mysql (RPM) ou c:\lazarus\fpcsrc\packages\base\mysql\\ (no windows). Este diretório contém também as units mysql.pp, mysql_com.pp e mysql_version.pp. Antes de rodar o script de teste, voce necessita criar o banco de dados chamada testdb: faça isso logando-se no prompt do mysql (o root com todos os privilegios) e dando o seguinte comando:
	15	+	Este é o diretório com programa de exemplo \$(fpcsrcdir)/packages/base/mysql/. Voce pode encontrar código fonte do FPC (Free Pascal Compiler) no Lazarus: Menu Tools -\> Options -\> Environment -\> Paths tab -\> FPC source directory. Possivelmente o endereço para o mysql seja em /usr/share/fpcsrc/packages/base/mysql (RPM) ou c:\lazarus\fpcsrc\packages\base\mysql\\ (no windows). Este diretório contém também as units mysql.pp, mysql_com.pp e mysql_version.pp. Antes de rodar o script de teste, voce necessita criar o banco de dados chamada testdb: faça isso logando-se no prompt do mysql (o root com todos os privilegios) e dando o seguinte comando:
16	16
17	17		`CREATE DATABASE testdb;`
18	18
19	19		Certifique-se que todos os usuário tenham privilegios de acesso apropriados:
20	20
21	21		`GRANT ALL ON testdb TO johnny-user IDENTIFIED BY 'johnnyspassword'; `
22	22
23	23		Existe um script chamado mkdb que você deve tentar executar:
24	24
25	25		`sh ./mkdb`
26	26
27	27		Este vai provavelmente falhar, já que o sistema não vai autorizar um usuário anônimo a acessar o banco de dados. Então mude o script usando um editor de modo que a linha invocando o MySQL seja:
28	28
29	29		`mysql -u root -p ${1-testdb} << EOF >/dev/null`
30	30
31	31		e tente executá-lo novamente entrando o seu password no prompt. Com sorte você deve ter conseguido criar o banco de dados de teste: teste-o (enquanto logado no monitor do MySQL) issuing o estamento do MySQL.
32	32
33	33		`select * from FPdev;`
34	34
35	35		Você deve ver uma tabela listando o ID, nome de usuário e e-mail de alguns dos desenvolvedore do FPC.
36	36
37	37		Agora tente executar o program de teste testdb.pp (ele pode precisar ser compilado e vai quase certamente falhar na primeira tentativa!!).
38	38
39	39		Eu obtive que o programa não poderia se conectar ao mysql por várias razões:
40	40
41	41		- Meu sistema (SuSE Linux v9.0) instal o mysql v4.0.15, não a versão 3 para a qual o pacote foi desenhado.
42	42
43	43		- O programa precisa ter nomes de usuários e passwords para ter acesso ao banco de dados.
44	44
45	45		- O compilador precisa saber onde encontrar as bibliotecas mysql (se você não instalou as bibliotecas de desenvolvimento MySQL, faça-o agora).
46	46
47	47		Eu criei uma cópia de testdb.pp chamada trydb.pp em vez de editar o original - isso quer dizer que os arquivos originais ainda são reparados em subseqüentes atualizações do CVS. Também copiei os arquivos do subdiretório mysql/ver40/ para o subdiretório principal mysql/, renomeando-os para mysql_v4.pp, mysql_com_v4.pp and mysql_version_v4.pp, certificando-me de nomear cada unidade dentro de cada arquivo correspondente. Modifiquei o estamento uses em trydb.pp para uses mysql_v4 e o estamento em mysql_v4 para
48	48
49	49		`uses mysql_com_v4`
50	50
51	51		Adicionei uma linha em /etc/fpc.cfg para apontar para minhas bibliotecas:
52	52
53	53		`-Fl/lib;/usr/lib`
54	54
55	55		O passo seguinte pode não ser necessário se as devel-libraries estiverem instaladas como os links que serão criados para você, mas não custa verificar. Eu tive que achar o nome real da biblioteca mysqlclint no diretório /usr/lib e no meu caso tive que entrar o comando:
56	56
57	57		`ln -s libmysqlclient.so.12.0.0 lmysqlclient`
58	58
59	59		para fazer um link simbólico permitindo o FPC achar a biblioteca. Eu também criei o link
60	60
61	61		`ln -s libmysqlclient.so.12.0.0 mysqlclient`
62	62
63	63		e pus links similares em vários outros subdiretórios. Alguns usuários podem precisar adicionar o seguinte link:
64	64
65	65		`ln -s libmysqlclient.so.12.0.0 libmysqlclient.so`
66	66
67	67		Eu modifiquei o trydb.pp para incluir detalhes de usuários, inicialmente adicionando host, usuário e password como constantes:
68	68
69	69		`const`\
70	70		` host : Pchar= 'localhost';`\
71	71		` user : Pchar= 'myusername';`\
72	72		` passwd: Pchar = 'mypassword';`
73	73
74	74		Também achei que não poderia conectar ao mysql usando a chamada mysql_connect(), mas tive que usar mysql_real_connect() que tem muitos mais parâmetros. Para complicar, o número de parâmetros parece ter mudado entre a versão 3 (quando eram sete) e a versão 4 (em que há oito). Antes de usar mysql_real_connect eu tive que usar mysql_init() que não é encontrada no mysql.pp original mas o é no mysql_v4.pp.
75	75
76	76		Assim o código para a conexão ao banco de dados agora é:
77	77
78	78		`{ umas poucas variáveis extra }`\
79	79		`var`\
80	80		` alloc : PMYSQL;`\
81	81		` `\
82	82		`{fragmento do programa principal }`\
83	83		` `\
84	84		`begin`\
85	85		` if paramcount=1 then`\
86	86		` begin`\
87	87		` Dummy:=Paramstr(1)+#0;`\
88	88		` DataBase:=@Dummy[1];`\
89	89		` end;`\
90	90		` `\
91	91		`Writeln ('Allocating Space...');`\
92	92		` alloc := mysql_init(PMYSQL(@qmysql));`\
93	93		` Write ('Connecting to MySQL...');`\
94	94		` sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);`\
95	95		` if sock=Nil then`\
96	96		` begin`\
97	97		` Writeln (stderr,'Couldn''t connect to MySQL.');`\
98	98		` Writeln (stderr, 'Error was: ', mysql_error(@qmysql));`\
99	99		` halt(1);`\
100	100		` end;`\
101	101		` Writeln ('Done.');`\
102	102		` Writeln ('Connection data:');`\
103	103		`{$ifdef Unix}`\
104	104		` writeln ('Mysql_port : ',mysql_port);`\
105	105		` writeln ('Mysql_unix_port : ',mysql_unix_port);`\
106	106		`{$endif}`\
107	107		` writeln ('Host info : ',mysql_get_host_info(sock));`\
108	108		` writeln ('Server info : ',mysql_stat(sock));`\
109	109		` writeln ('Client info : ',mysql_get_client_info);`\
110	110		` `\
111	111		` Writeln ('Selecting Database ',DataBase,'...');`\
112	112		` if mysql_select_db(sock,DataBase) < 0 then`\
113	113		` begin`\
114	114		` Writeln (stderr,'Couldn''t select database ',Database);`\
115	115		` Writeln (stderr,mysql_error(sock));`\
116	116		` halt (1);`\
117	117		` end;`\
118	118		`{... as original contents of testdb.pp}`
119	119
120	120		Agora - pronto para começar a compilar trydb.pp?
121	121
122	122		` fpc trydb`
123	123
124	124		successo! Agora execute:
125	125
126	126		` ./trydb`
127	127
128	128		Oba! Consegui a lista dos desenvolvedores do FPC!
129	129
130	130		Uns poucos refinamentos mais: faça a entrada de detalhes dos usuários e os comandos do mysql interativos, usando variáveis em vez de constantes, e permita que vários comandos SQL sejam inseridos, até que o comando quit seja encontrado: veja [[Lazarus Database Tutorial/TryDbpp\|full program listing]], onde os detalhes de usuário são inseridos do console e o programa vai para um loop onde os comandos SQL são inseridos do console (sem ponto e vírgula no final) e as respostas são impressas na tela, até que 'quit' é inserido pelo teclado.
131	131
132	132		Veja [[Lazarus Database Tutorial/SampleListing\|Sample Console Listing]].
133	133
134	134		### Conectando ao MySQL uma Aplicação Lazarus
135	135
136	136		Este tutorial mostra como conectar o Lazarus ao banco de dados MySQL e executar queries simples usando somente os componentes básicos do Lazarus; ele não usa componentes Data Aware, mas ilustra os princípios de interface com banco de dados.
137	137
138	138		Crie um novo projeto no Lazarus:
139	139
140	140		`Projeto -> Novo Projeto -> Application`
141	141
142	142		Um novo formulário gerado automaticamente vai aparecer.
143	143
144	144		Aumente a área do formulário até preencher aproximadamente a metade da tela e renomeie o formulário e o seu caption para 'TryMySQL'.
145	145
146	146		Da aba Standard Component ponha três Edit Boxes do lado superior esquerdo do formulário e imediatamente acima de cada Box ponha um Label. Mude os nomes e captions para 'Host' (e HostLLabel, HostEdit), 'UserName' (e UserLabel, UserEdit) e 'Password' (com PasswdLabel e PasswdEdit). Alternativamente você pode usar componentes LabelledEdit da aba Additional.
147	147
148	148		Selecione a caixa Passwd Edit e encontre a propriedade PasswordChar : mude-a para "" ou algum outro caractere de modo que quando você escreva uma senha os caracteres não apareçam na tela mas sejam representados por uma série de caracteres "". Certifique-se de que a propriedade Text para cada Edit Box esteja em branco.
149	149
150	150		Agora ponha outra Edit Box e o Label correspondente no topo direito do formulário. Mude o Label para 'Enter SQL Command' e o seu nome para CommandEdit.
151	151
152	152		Coloque três Buttons no formulário: dois do lado esquerdo sob as Edit Boxes e um do lado direito sob a Command Box.
153	153
154	154		Rotule os botões do lado esquerdo como 'Connect to Database' (ConnectButton) e 'Exit' (ExitButton) e o que está do lado direito como 'Send Query' (QueryButton).
155	155
156	156		Ponha um Memo grande rotulado e nomeado como 'Results' (ResultMemo) abaixo do lado direito, preenchendo a maior parte do espaço disponível. Encontre a propriedade ScrollBars do Memo e selecione ssAutoBoth , de modo que as Scroll Bars apareçam automaticamente se o texto preencheer o espaço. Configure a propriedade WordWrap como True.
157	157
158	158		Ponha uma Status Bar (da aba Common Controls) embaixo no formulário e faça a propriedade SimpleText igual a 'TryMySQL'.
159	159
160	160		Um screenshot do formulário pode ser visto aqui: [Mysql Example Screenshot](http://lazarus-ccr.sourceforge.net/kbdata/trymysqldb.png)
161	161
162	162		Agora você precisa escrever alguns event handlers.
163	163
164	164		As três caixas de edição à esquerda são para a inserção do hostname, do username e da password. Quando elas são inseridas satisfatoriamente, o botão de conexão é clicado. O eventhandler OnClick para este botão é baseado em parte do seguinte programa FPC em modo texto.
165	165
166	166		As respostas do banco de dados não podem agora ser escritas usando os estamentos Pascal write e writeln: em vez disso, as respostas têm que ser convertidas em strings e mostradas no Memo. Mesmo que os estamentos Pascal write e writeln sejam capazes de realizar muitas conversões rápidas de tipo, o uso do Memo para saída de texto necessita da conversão explícita de tipo de dados para a forma correta de string, portanto variáveis PChar têm que ser convertidas para strings usando StrPas e inteiros precisam ser convertidos com IntToStr.
167	167
168	168		Strings são mostradas no Memo fazendo
169	169
170	170		`procedure ShowString (S : string);`\
171	171		`(* display a string in a Memo box *)`\
172	172		`begin`\
173	173		` trymysqlForm1.ResultsMemo.Lines.Add (S)`\
174	174		`end;`
175	175
176	176		The ConnectButton event handler thus becomes:
177	177
178	178		`procedure TtrymysqlForm1.ConnectButtonClick(Sender: TObject);`\
179	179		`(* Connect to MySQL using user data from Text entry boxes on Main Form *)`\
180	180		`var strg: string;`\
181	181		` `\
182	182		`begin`\
183	183		` `\
184	184		` dummy1 := trymysqlForm1.HostEdit.text+#0;`\
185	185		` host := @dummy1[1];`\
186	186		` dummy2 := trymysqlForm1.UserEdit.text+#0;`\
187	187		` user := @dummy2[1] ;`\
188	188		` dummy3 := trymysqlForm1.PasswdEdit.text+#0;`\
189	189		` passwd := @dummy3[1] ;`
190	190
191	191		` alloc := mysql_init(PMYSQL(@qmysql));`\
192	192		` sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);`\
193	193		` if sock=Nil then`\
194	194		` begin`\
195	195		` strg :='Couldn''t connect to MySQL.'; showstring (strg);`\
196	196		` Strg :='Error was: '+ StrPas(mysql_error(@qmysql)); showstring (strg);`\
197	197		` end`\
198	198		` else`\
199	199		` begin`\
200	200		` trymysqlForm1.statusBar1.simpletext := 'Connected to MySQL';`\
201	201		` strg := 'Now choosing database : ' + database; showstring (strg);`\
202	202		`{$ifdef Unix}`\
203	203		` strg :='Mysql_port : '+ IntToStr(mysql_port); showstring (strg);`\
204	204		` strg :='Mysql_unix_port : ' + StrPas(mysql_unix_port); showstring (strg);`\
205	205		`{$endif}`\
206	206		` Strg :='Host info : ' + StrPas(mysql_get_host_info(sock));`\
207	207		` showstring (strg);`\
208	208		` Strg :='Server info : ' + StrPas(mysql_stat(sock)); showstring (strg);`\
209	209		` Strg :='Client info : ' + Strpas(mysql_get_client_info); showstring (strg);`\
210	210		` `\
211	211		` trymysqlForm1.statusbar1.simpletext := 'Selecting Database ' + DataBase +'...';`\
212	212		` if mysql_select_db(sock,DataBase) < 0 then`\
213	213		` begin`\
214	214		` strg :='Couldn''t select database '+ Database; ShowString (strg);`\
215	215		` Strg := mysql_error(sock); ShowString (strg);`\
216	216		` end`\
217	217		` end;`\
218	218		`end;`
219	219
220	220		A caixa de texto à direita permite inserção de um estamento SQL, sem um ponto e vírgula no final. Quando você estiver satisfeito com o seu conteúdo ou sintaxe, o botão SendQuery é pressionado e a query é processada, com os resultados sendo escritos no ResultsMemo.
221	221
222	222		O event handler SendQuery é baseado na versão modo texto do FPC, exceto que conversões explícitas de tipo têm que ser feitas antes de a string ser mostrada.
223	223
224	224		Uma diferença do modo texto do programa FPC é que se uma condição de erro for detectada, o programa não pára e a MySQL não é fechada. Em vez disso, o controle retorna ao formulário principal e é dada uma oportunidade de corrigir a inserção antes que o comando seja enviado. A aplicação finalmente fecha (com o fechamento da MySQL) quanto o botão Exit é clicado.
225	225
226	226		O código para SendQuery é o seguinte:
227	227
228	228		`procedure TtrymysqlForm1.QueryButtonClick(Sender: TObject);`\
229	229		`var`\
230	230		` dumquery, strg: string;`\
231	231		`begin`\
232	232		` dumquery := TrymysqlForm1.CommandEdit.text;`\
233	233		` dumquery := dumquery+#0;`\
234	234		` query := @dumquery[1];`\
235	235		` trymysqlForm1.statusbar1.simpletext := 'Executing query : '+ dumQuery +'...';`\
236	236		` strg := 'Executing query : ' + dumQuery; showstring (strg);`\
237	237		` if (mysql_query(sock,Query) < 0) then`\
238	238		` begin`\
239	239		` Strg :='Query failed '+ StrPas(mysql_error(sock)); showstring (strg);`\
240	240		` end`\
241	241		` else`\
242	242		` begin`\
243	243		` recbuf := mysql_store_result(sock);`\
244	244		` if RecBuf=Nil then`\
245	245		` begin`\
246	246		` Strg :='Query returned nil result.'; showstring (strg);`\
247	247		` end`\
248	248		` else`\
249	249		` begin`\
250	250		` strg :='Number of records returned : ' + IntToStr(mysql_num_rows (recbuf));`\
251	251		` Showstring (strg);`\
252	252		` Strg :='Number of fields per record : ' + IntToStr(mysql_num_fields(recbuf));`\
253	253		` showstring (strg);`\
254	254		` rowbuf := mysql_fetch_row(recbuf);`\
255	255		` while (rowbuf <>nil) do`\
256	256		` begin`\
257	257		` Strg :='(Id: '+ rowbuf[0]+', Name: ' + rowbuf[1]+ ', Email : ' +`\
258	258		` rowbuf[2] +')';`\
259	259		` showstring (strg);`\
260	260		` rowbuf := mysql_fetch_row(recbuf);`\
261	261		` end;`\
262	262		` end;`\
263	263		` end;`\
264	264		`end;`
265	265
266	266		Salve seu projeto, pressione Run -\> Run
267	267
268	268		#### Download do Código-Fonte do MYSQL
269	269
270	270		Uma listagem completa do programa está disponível aqui [Sample Source Code](http://lazarus-ccr.sourceforge.net/kbdata/mysqldemo.tar.gz)
271	271
272	272		## Lazarus e PostgreSQL
273	273
274	274		Este é um pequeno tutorial usando Lazarus 0.9.12 ou posterior para se conectar a um banco de dados PostgreSQL, local ou remoto, usando o componente TPQConnection.
275	275
276	276		Após a instalação correta, siga estes passos:
277	277
278	278		- Coloque um PQConnection da aba SQLdb
279	279		- Coloque um SQLQuery da aba SQLdb
280	280		- Coloque um SQLTransaction da aba SQLdb
281	281		- Coloque um DataSource da aba DataAccess
282	282		- Coloque um DBGrid da aba DataControls
283	283
284	284		- No PQConnection preencher:
285	285		- "transaction property" com o respectivo objeto SQLTransaction
286	286		- Database name
287	287		- HostName
288	288		- UserName + password
289	289
290	290		- Verifique se o SQLTransaction foi automaticamente alterado para apontar para o PQConnection
291	291
292	292		- No SQLQuery preencher:
293	293		- "transaction property" com o respectivo objeto
294	294		- "database property" com o respectivo objeto
295	295		- SQL (algo como 'select * from nometabela')
296	296
297	297		- No objeto DataSource preencher a propriedade DataSet com o objeto SQLQuery
298	298
299	299		- No DBGrid preencher o datasource como o DataSource Object
300	300
301	301		Mude tudo para connected (conectado) e active (ativo) e o DBGrid deverá ser preenchido em tempo de desenho. TDBText e TDBEdit parece funcionar mas (para mim) eles apenas mostram dados ( _show_ _data_).
302	302
303	303		Para alterar conteúdos no banco de dados, chamei o DB Engine direto com o seguinte código:
304	304
305	305		` try`\
306	306		` sql:= 'UPDATE table SET setting=1';`\
307	307		` PQDataBase.Connected:=True;`\
308	308		` PQDataBase.ExecuteDirect('Begin Work;');`\
309	309		` PQDataBase.ExecuteDirect(sql);`\
310	310		` PQDataBase.ExecuteDirect('Commit Work;');`\
311	311		` PQDataBase.Connected:=False;`\
312	312		` except`\
313	313		` on E : EDatabaseError do`\
314	314		` MemoLog.Append('DB ERROR:'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);`\
315	315		` on E : Exception do`\
316	316		` MemoLog.Append('ERROR:'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);`\
317	317		` end;`
318	318
319	319		- Notas:
320	320		- Testado no windows, Lazarus 0.9.12 + PgSQL 8.3.1
321	321		- Alguns testes em linux, Lazarus 0.9.12 and PgSQL 8.0.x
322	322
323	323		- Instalação e erros:
324	324		- Na versão testada do Lazarus .12, campos do tipo "text" e "numeric" tem bugs
325	325		- Usei sem problemas "char fixed size", "int" e "float8"
326	326		- Às vezes reiniciar o Lazarus resolve erros estúpidos...
327	327		- Depois de alguns erros, as transações permanecem ativas e devem ser desativadas manualmente
328	328		- As alterações feitas no Lazarus são, naturalmente, não visível até a transação ser confirmada
329	329		- The integrated debugger seems buggy (at least in windows) - sometimes running outside of the IDE may help to find errors
330	330		- (O depurador integrado parece infestado (pelo menos no windows) - às vezes executando fora da IDE pode ajudar a encontrar erros)
331	331		- No linux determinadas mensagens de erro são impressas na console -- executar seu programa na linha de comando, às vezes há algumas informações úteis de depuração, extra
332	332		- Erro: "Can not load Postgresql client. Is it installed (libpq.so) ?"
333	333		- Adicione o caminho para pesquisa libpq* da instalação PostgreSQL.
334	334		- No linux adicione o caminho para o arquivo libpq.so para a seção "libraries" em seu /etc/fpc.cfg file. Por exemplo: -Fl/usr/local/pgsql/lib
335	335		- No windows, adicione essas "libs" em qualquer lugar na variável de ambiente Path ou diretório de project
336	336		- Em windows, copiei todas as DLLs do diretório C:\Program Files\PostgreSQL\8.1\bin para outro diretório no PATH
337	337		- Ou adicionar este diretório postgres \bin para o caminho
338	338
339	339		## Lazarus and SQLite
340	340
341	341		by Luiz Américo Translated by Edson Leonel de oliveira
342	342
343	343		### Introduction
344	344
345	345		TSqliteDataset e TSqlite3Dataset são comandos TDataset que acessam, respectivamente, bases de dados sqlite versões 2.8.x e 3.2.x. Abaixo está uma lista das principais vantagens e desvantagens:
346	346
347	347		Vantagens:
348	348
349	349		- Flexível: programadores podem escolher usar ou não a linguagem SQL, acessando tabelas com layouts simples ou qualquer layout complexo disponível no SQL/sqlite
350	350		- Atualização automática da base de dados: não precisa comandar manualmente a atualização com comandos SQL, um método simples a executa
351	351		- Rápido: faz um cache dos dados na memória, navegando rapidamente nos dados
352	352		- Sem configuração e instalação de servidor: conecta-se usando a biblioteca dinâmica sqlite
353	353
354	354		Disvantagens
355	355
356	356		- Requer arquivo externo (biblioteca sqlite)
357	357
358	358		### Requirementos
359	359
360	360		- Para bases de dados sqlite2:
361	361		- fpc 2.0.0
362	362		- Lazarus 0.9.10
363	363		- biblioteca runtime sqlite 2.8.15 ou acima (pegar em www.sqlite.org)
364	364
365	365		- Para bases de dados sqlite3:
366	366		- fpc 2.0.2
367	367		- Lazarus 0.9.11 (svn revisão 8443 ou acima)
368	368		- biblioteca runtime sqlite 3.2.1 ou acima (pegar em www.sqlite.org)
369	369
370	370		Antes de inicalizar um projeto lazarus, tenha certeza que:
371	371
372	372		- a biblioteca sqlite esteja no PATH do sistema ou em um diretório executável
373	373		- sob o Linux, colocar cmem como a primeira unidade nas cláusulas em uso na rotina principal (main)
374	374
375	375		### How To Use (Basic Usage)
376	376
377	377		Install the package found at /components/sqlite directory (see instructions [[Install Packages\|here]])
378	378
379	379		At design time set the following properties:
380	380
381	381		- FileName: path of the sqlite file \[required\]
382	382		- TableName: name of the table used in the sql statement \[required\]
383	383		- Sql: a SQL select statement \[optional\]
384	384
385	385		Creating a Table (Dataset)
386	386
387	387		Double click in the component icon or use the 'Create Table' item of the popup menu that appears when clicking the right mouse button. A simple self-explaining table editor will be show.
388	388
389	389		` Here is all field types supported by TSqliteDataset and TSqlite3Dataset: `\
390	390		` `\
391	391		` Integer`\
392	392		` AutoInc`\
393	393		` String`\
394	394		` Memo`\
395	395		` Bool `\
396	396		` Float`\
397	397		` Word`\
398	398		` DateTime`\
399	399		` Date`\
400	400		` Time`\
401	401		` LargeInt`\
402	402		` Currency`\
403	403		` `
404	404
405	405		Retrieving the data
406	406
407	407		After creating the table or with a previously created Table, open the dataset with Open method. If the SQL property was not set then all records from all fields will be retrieved, the same if you set the SQL to:
408	408
409	409		` SQL:='Select * from TABLENAME'; `
410	410
411	411		Applying changes to the underlying datafile
412	412
413	413		To use the ApplyUpdates function, the dataset must contain at least one field that fills the requirements for a Primary Key (values must be UNIQUE and not NULL)
414	414
415	415		It's possible to do that in two ways:
416	416
417	417		- Set PrimaryKey property to the name of a Primary Key field
418	418		- Add an AutoInc field (This is easier since the TSqliteDataSet automatically handles it as a Primary Key)
419	419
420	420		If one of the two conditions is set then just call
421	421
422	422		` ApplyUpdates;`
423	423
424	424		PS1: If both conditions are set, the field corresponding to PrimaryKey is used to apply the updates.
425	425
426	426		PS2: Setting PrimaryKey to a field that is not a Primary Key will lead to loss of data if ApplyUpdates is called, so ensure that the chosen field contains not Null and Unique values before using it.
427	427
428	428		### Remarks
429	429
430	430		- Although it has been tested with 10000 records and worked fine, TSqliteDataset keeps all the data in memory, so remenber to retrieve only the necessary data (principally with Memo Fields).
431	431		- The same datafile (Filename property) can host several tables/datasets
432	432		- Several datasets (different combinations of fields) can be created using the same table simultaneously
433	433		- It's possible to filter the data using WHERE statements in the sql, closing and reopening the dataset (or calling RefetchData method). But in this case, the order and number of fields must remain the same
434	434		- It's also possible to use complex SQL statements using aliases, joins, views in multiple tables (remember that they must reside in the same datafile), but in this case ApplyUpdates won't work. If someone wants to use complex queries and to apply the updates to the datafile, mail me and I will give some hints how to do that
435	435		- Setting filename to a sqlite2.x datafile not created by TSqliteDataset and opening it is allowed but some fields won't have the correct field type detected. These will be treated as string fields.
436	436
437	437		Generic examples can be found at fpc/fcl/db/sqlite CVS directory
438	438
439	439		Luiz Américo pascalive(at)bol(dot)com(dot)br
440	440
441	441		## Lazarus and MSSQL
442	442
443	443		It is working with Zeoslib (latest cvs), see the links on bottom of page.
444	444
445	445		## Lazarus e Interbase / Firebird
446	446
447	447		Olhe [[Install Packages]]. On this page is a first small example en explanation about how to connect to an IB or FB server. Aqui o início de tradução (e atualização):
448	448
449	449		No diretório onde o Lazarus é instalado você vai encontrar subdiretórios, e o primeiro (alfabeticamente) chama-se components. Este, por sua vez, tem subdiretórios como sqlite e sqldb. O primeiro contém componentes de conexão com o BD e descendentes de Tdataset para o respectivo banco, enquanto o sqldb é mais genérico pois consiste de TSQLQuery (um TDataset) e TSQLTransaction usados para todos os tipos de BD e uma T??Conection para realizar a conexão. Nesse artigo vamos instalar o pacote sqldb juntamente com a conexão para Interbase. Antes, porém, de iniciar a instalação do pacote seria bom discutir o porque de Lazarus não instalar componentes de conexão com o BD. Esses componentes precisam das bibliotecas clientes para funcionar no PC onde são usados. Como o Lazarus atualmente não suporta ligações dinâmicas, todas as bibliotecas precisam ser compiladas para a IDE. Como não se espera que os desenvolvedores tenham todos os BD instalados, não é possível ter como padrão instalar os componentes de conexão. Delphi também só instala os componentes de BD que são prontamente encontrados no computador (componentes ADO) e componentes que não necessitam bibliotecas (BDE: Paradox, DBase). Para instalar o pacote vá em Pacotes → Abrir arquivo de pacote. No diálogo seguinte navegue para /usr/bin/lazarus/components/sqldb ou ao diretório correspondente em OS X ou Windows e escolha o arquivo sqldblaz.lpk. Se tudo correr como planejado você verá o Gerenciador de Pacotes, que exibe uma árvore com os arquivos do pacote e os pacotes requeridos. Então pressione Compilar se você não quer instalar o componente na IDE, caso contrário clique em Instalar. Nesse caso aparecerá uma advertência explicando que o Lazarus suporta apenas ligações a bibliotecas estáticas e pergunta se quer reconstruir Lazarus. Pressione Sim e o programa será reconstruido. Se tudo correu bem você verá uma nova palheta chamada SQLdb e seu último componente da direita é justamente o de conexão com bancos Firebird ou InterBase.
450	450
451	451		Para instalar o Firebird e criar/gerenciar banco de dados, olhe esse artigo de José Ribeiro: <http://www.vivaolinux.com.br/artigo/Criando-um-banco-de-dados-no-Flamerobin-(Firebird)/>
452	452
453	453		Also work with the latest Zeoslib (from cvs).
454	454
455	455		### FBLib Firebird Library
456	456
457	457		[FBLib](http://fblib.altervista.org/) é uma biblioteca open source para acesso direto (sem Data Aware) ao Firebird.
458	458
459	459		Características atuais incluem:
460	460
461	461		- Acesso direto ao Firebird 1.0.x 1.5.x Classic ou SuperServer
462	462		- Multiplataforma (Win32, Gnu/Linux, FreeBSD)
463	463		- Seleção automática da biblioteca cliente 'fbclient' ou 'gds32'
464	464		- Query com parâmetros
465	465		- Suporta dialetos SQL 1 e 3
466	466		- Licença LGPL
467	467		- Extração de Metadata
468	468		- Parser Simples de Scripts
469	469		- Apenas 100-150 KB adicionados ao executável
470	470		- Suporta campos BLOB
471	471		- Exporta dados para HTML SQL Script
472	472		- Gerenciador de Serviço (backup, restore, gfix...)
473	473		- Alerta de Eventos
474	474
475	475		Você pode acessar a documentação em [FBLib's website](http://fblib.altervista.org/).
476	476
477	477		[Aqui](http://www.firebirdnews.org/?p=1769) você encontra uma versão atualizada. Ou, diretamente pelo SVN: [1](https://tiopf.svn.sourceforge.net/svnroot/tiopf/3rdParty/FBLib/Trunk)
478	478
479	479		## Lazarus and dBase
480	480
481	481		Tony Maro
482	482
483	483		You might also want to visit the beginnings of the [[Lazarus Tdbf Tutorial\|TDbf Tutorial page]]
484	484
485	485		FPC includes a simple database component that is similar in function to the Delphi TTable component called "TDbf" ([TDbf Website](http://tdbf.sourceforge.net/)) that supports a very basic subset of features for dBase files. It is not installed by default, so you will first need to install the Lazarus package from the "lazarus/components/tdbf" directory and rebuild your Lazarus IDE. It will then appear next to the TDatasource in your component palette.
486	486
487	487		The TDbf component has an advantage over other database components in that it doesn't require any sort of runtime database engine, however it's not the best option for large database applications.
488	488
489	489		It's very easy to use. Simply, put, drop a TDbf on your form, set the runtime path to the directory that your database files will be in, set the table name, and link it to your TDatasource component.
490	490
491	491		Real functionality requires a bit more effort, however. If a table doesn't already exist, you'll need to create it programmatically, unless there's a compatible table designer I'm not familiar with.
492	492
493	493		Attempting to open a non-existant table will generate an error. Tables can be created programmatically through the component after the runtime path and table name are set.
494	494
495	495		For instance, to create a table called "dvds" to store your dvd collection you would drop it on your form, set the runtime path, and set the table name to "dvds". The resulting file will be called "dvds.dbf".
496	496
497	497		In your code, insert the following:
498	498
499	499		` Dbf1.FilePathFull := '/path/to/my/database';`\
500	500		` Dbf1.TableName := 'dvds';`\
501	501		` With Dbf1.FieldDefs do begin`\
502	502		` Add('Name', ftString, 80, True);`\
503	503		` Add('Description', ftMemo, 0, False);`\
504	504		` Add('Rating', ftString, 5, False);`\
505	505		` end;`\
506	506		` Dbf1.CreateTable;`
507	507
508	508		When this code is run, your DVD collection table will be created. After that, all data aware components linked through the TDatasource to this component will allow easy access to the data.
509	509
510	510		Adding indexes is a little different from your typical TTable. It must be done after the database is open. It's also the same method you use to rebuild the indexes. For instance:
511	511
512	512		` Dbf1.Exclusive := True;`\
513	513		` Dbf1.Open;`\
514	514		` Dbf1.AddIndex('dvdsname','Name',[ixPrimary, ixUnique, ixCaseInsensitive]);`\
515	515		` Dbf1.AddIndex('rating.ndx', 'Rating', [ixCaseInsensitive]);`\
516	516		` Dbf1.Close;`
517	517
518	518		The first (primary) index will be a file called "dvdsname.mdx" and the second will be a file named "rating.ndx" so in a multiple table database you must be careful not to use the same file name again.
519	519
520	520		I will try to add a more detailed example at a later date, but hopefully this will get those old Delphi programmers up and running with databases in Lazarus!
521	521
522	522		## Related Links
523	523
524	524		- [[Databases\|Creating Databases Applications with Lazarus using the DB-unit]]\
525	525		- [[MySQLDatabases\|Creating a database application using MySQL]]\
526	526		- [[Zeos tutorial\|Creating a database application using the Zeos components]]
527	527		- Pascal Data Objects is a database API that worked for both FPC and Delphi and utilises native MySQL libraries for version 4.1 and 5.0. It's inspired by PHP's PDO class.
528	528
529	529		<https://trac.synsport.com:8000/index.php/pdo/wiki> (username/password is guest/guest)
530	530
531	531		## Contributors and Changes
532	532
533	533		This page has been converted from the epikwiki [version](http://lazarus-ccr.sourceforge.net/index.php?wiki=LazarusDatabase).
534	534
535	535		Lazarus e PostgreSQL, traduzido por User: jrxds (15/01/2012).
536	536
537	537		---
538	538		From the Free Pascal wiki, page "Lazarus Database Tutorial/pt", as it stood on 2012-10-28 after a change by JuhaManninen, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
539	539		Category: Databases/pt

Back to history