Dicas Lazarus / Delphi : Criar base de dados firebird em tempo de execução

[@walney2008]

Maravilha muito obrigado, gostaria de saber se teria videos com uso da palena SynEdit, quero aprender criar um editor de textos, jah estou com lazarus 2.2.4 instalado windows 10, obrigado

[@walney2008]

consegui fazer assim, ae qualquer instrução sql que colocar no Memo é executada, criação de tabelas, insert,updade,delete , adorando este lazarus, tem como listar em uma combobox todas as colunas de uma tabela ?
with sql_dados do
begin
close;
sql.clear;
sql.add(trim(Memo2.Text));
ExecSQL;
end;

[@infocotidiano]

fiz isso em videos recentes do fluxo de caixa
sql.text se nao me falha a memoria

[@abnersrodrigues]

top Daniel... muito legal!!!

[@falberiolima]

Tem que levar em consideração que ele vai testar se o arquivo existe no computador local, no caso se usar um servidor remoto, fileexists não vai funcionar! como saber se um banco de dados já existe em um servidor estando em um terminal?

[@infocotidiano]

+Alberio Lima salve ! Ótima observação!!
Vou fazer uma observação na propriedade localhost !

[@credson]

amigo vc tem algum ensinamento com freepascal em linux com mysql usando um mestre e detalhe?

[@infocotidiano]

+kuringa tenorio vou fazer

[@credson]

serio ? que legal pq estou querendo aprender estava meio parado em delphi mas irei voltar .....................inclusive estou com u projeto antigo que fui abrir aki otem esta dando erro file not found Vcl.Form.dcu ja coloquei nos foruns etc ate agora nada............tenho todos os componentes de terceiros estao instalados..........ja aconteceu com vc? tem alguma ideia como resolver?..........

[@credson]

estava parado no delphi fui otem tentar abrir um projeto antigo aconteceu o seguinte erro file not found. vcl.forms.dcu vc tem alguma ideia se quizer passo a vc pelo email pra vc se puder ajudar obg

[@infocotidiano]

+kuringa tenorio não sei dizer, o q a galera dos fóruns responde vc sobre este erro?

[@credson]

amigo estou tetando resolver um amigo no forum esta ajudando desde ja agradeço as lhe garanto estou mais precisando e aprender freepascal no linux com mysql mestre e detalhe

[@pr.miguelnoguera7986]

Boa tarde. fiz exatamente como no video. No Lazarus nao funcioina.

[@infocotidiano]

boa tarde !
Pode ser a versão do firebird, pois o exemplo foi feito no lazarus.
Mas 7 anos atrás.

[@JoseRoberto-ww1ph]

Dani boa noite meu Jovem. Seria pedi d+ se desse certo de 1ª qualquer coisa no Lazarus ou CT ne ? rsrs to comprando uma ideia sua de criar a base de dados em tempo de execução... sendo que na mão professor é uma maravilha ... qdo vai pros aprendizes (rsrs) ja viu olha o codigo identico ao teu:
procedure TFr_Criacao.FormCreate(Sender: TObject);
var oCaminho_e_base : String;
begin
oCaminho_e_base := extractfilepath(Application.ExeName)+'dados\wcash.fdb';
Mem_atividade.Lines.Clear;
if not fileExists(oCaminho_e_base) then
begin
mem_atividade.Lines.add('Criando Base de Dados...');
Coneccao.Protocol := 'firebird-2.5';
Coneccao.LibraryLocation := extractfilepath(Application.ExeName)+'fbclient.dll';
Coneccao.Database := oCaminho_e_base;
Coneccao.Properties.clear;
Coneccao.Properties.Values['dialect'] := '3' ;
Coneccao.Properties.Values['createNewDatabase'] := 'create database ' + quotedstr(coneccao.database) +
' User '+ Quotedstr('SYSDBA') + ' password ' + QuotedStr('masterkey')+
' page size 4096 default character set ISO8859_1';
Coneccao.User := 'SYSDBA';
Coneccao.Password := 'masterkey';
Coneccao.Connect;
end;
end;
tanto no CT , Lazarus e Delphi apresentam erro.
SQL Error: Dynamic SQL Error SQL error code: -104 Token unknown - line 1, column 91 page. Erro code: -104. Invalid token The SQL: create database "caminho" User 'SYSDBA' password 'masterkey' page size 4096 default character set ISO8859_1;.
É isso ae mano ... se puder ajuda ao amigo ae

[@JoseRoberto-ww1ph]

Meu amigo só pra te dizer ... Consegui com componente nativo do lazarus o IBCOnection + SQLTransaction1... muito mais pratico !!!! olha a sintaxe dele :
oCaminho_e_base := extractfilepath(Application.ExeName)+'dados\wcash.fdb';
Mem_atividade.Lines.Clear;
mem_atividade.Lines.add('Criando Base de Dados...');
Coneccao.UserName := 'SYSDBA';
Coneccao.Port := 3050;
Coneccao.Password := 'masterkey';
Coneccao.HostName := 'localhost';
Coneccao.DatabaseName := oCaminho_e_base;
Coneccao.CreateDB;

[@infocotidiano]

Funcionou no meu... comentei as linhas abaixo:
var oCaminho_e_base : String;
begin
Mem_atividade.Lines.Clear;
// removido o caminho original para eu poder testar no meu linux, veja se existe a pasta dados onde esta criando
// oCaminho_e_base := extractfilepath(Application.ExeName)+'dados\wcash.fdb';
oCaminho_e_base := extractfilepath(Application.ExeName)+'wcash.fdb';
Mem_atividade.Lines.add(oCaminho_e_base);
if not fileExists(oCaminho_e_base) then
begin mem_atividade.Lines.add('Criando Base de Dados...');
Coneccao.Protocol := 'firebird-2.5';
// testado no Linux nao preciso definir a dll fbclient
// Coneccao.LibraryLocation := extractfilepath(Application.ExeName)+'fbclient.dll';
Coneccao.Database := oCaminho_e_base;
Coneccao.Properties.clear;
Coneccao.Properties.Values['dialect'] := '3' ;
// Removido linha abaixo para teste, pois estava funcionando se ignorar o page size até o final....
// Coneccao.Properties.Values['createNewDatabase'] := 'create database ' + quotedstr(coneccao.database) + ' User '+ Quotedstr('SYSDBA') + ' password ' + QuotedStr('masterkey')+ ' page size 4096 default character set ISO8859_1';
// funcionou da forma abaixo:
Coneccao.Properties.Values['createNewDatabase'] := 'create database ' + quotedstr(coneccao.database) + ' User '+ Quotedstr('SYSDBA') + ' password ' + QuotedStr('masterkey')+ ' page_size 4096 '+ 'default character set ISO8859_1';
Coneccao.User := 'SYSDBA';
Coneccao.Password := 'masterkey';
Coneccao.Connect;
end;

[@JoseRoberto-ww1ph]

Ok !!! se puder faz o teste no windows só para verificar !! as vezes (nós sabemos) que sistemas operacionais influenciam no resultado final das compilações. Vc concorda que na outra compilação como o objeto nativo do Lazarus é mais simples ?
Abraços mano
Tmj !!!! Sempre somando !!!!

[@infocotidiano]

mandei os fontes via telegram, esta subindo...
mas so p saber qdo compilei o q vc mandou no meu deu erro tb...
depois q ajustei, funcionou

[@infocotidiano]

Jose Roberto este post?

[@Artur7490]

Eu sei que aqui não é fórum, mas já não sei para onde correr. Estou fazendo um programa que tem que acessa um banco de dados. No banco tem informações dos pacientes. Eu tenho um dado Índice de massa corporal, IMC, (no banco ele está como 'decimal 3,1') se o IMC ficar entra uma valor X ele é automaticamente preenchido (TDBEdit) como normal, sobre peso e obesidade sendo que essa informações já estão no banco como enum.
if (qryPacienteIMC.AsFloat>=18.5) and (qryPacienteIMC.AsFloat

[@infocotidiano]

if (qryPacienteIMC.value >=18.5) and (qryPacienteIMC.value

[@Artur7490]

Valeu

[@infocotidiano]

+Artur Fonseca Pereira vlw !

[@infocotidiano]

+Artur Fonseca Pereira deu certo?

[@Artur7490]

Acho que nao sei como falar o que quero. Nao deu, mas eu nao sei se e erro meu o codigo. Mesmo assim valeu pela força.