Como salvar edits no banco de dados?
14/01/2019
0
Lucas Araújo
Post mais votado
14/01/2019
Então você pode salvar de muitas formas os valores de campos no banco, a mais simples seria trocar seus campos por DB que são campos vinculados a tabelas , outra forma é pegar o conteúdo e gravar via SQL.
Exemplo considerando que você tenha o campo cod_cliente e nom_cliente no banco e tenha dois edits edtCod_cliente e edtNom_cliente e vá gravar por SQL:
'INSERT INTO CLIENTES (COD_CLIENTE,NOM_CLIENTE) VALUES ( '+QuotedStr(edtCod_cliente.text)+','+QuotedStr(edtNom_cliente.text)+') ';
Basicamente seria isso, mas você pode fazer isso com passagem de parâmetros também .... a função QuotedStr coloca aspas no valor considerando que sejam texto ....
Espero que te de uma luz de como fazer, mas caso tenha dificuldades posta aqui que tentamos ajudar com mais informações... boa sorte ...
Jucélio Silva
Mais Posts
14/01/2019
Lucas Araújo
Então você pode salvar de muitas formas os valores de campos no banco, a mais simples seria trocar seus campos por DB que são campos vinculados a tabelas , outra forma é pegar o conteúdo e gravar via SQL.
Exemplo considerando que você tenha o campo cod_cliente e nom_cliente no banco e tenha dois edits edtCod_cliente e edtNom_cliente e vá gravar por SQL:
'INSERT INTO CLIENTES (COD_CLIENTE,NOM_CLIENTE) VALUES ( '+QuotedStr(edtCod_cliente.text)+','+QuotedStr(edtNom_cliente.text)+') ';
Basicamente seria isso, mas você pode fazer isso com passagem de parâmetros também .... a função QuotedStr coloca aspas no valor considerando que sejam texto ....
Espero que te de uma luz de como fazer, mas caso tenha dificuldades posta aqui que tentamos ajudar com mais informações... boa sorte ...
Então, tentei com o sql só que está dando : ''[dcc32 Error] Clientes.pas(88): E2014 Statement expected, but expression of type 'string' found.
[dcc32 Fatal Error] F2063 Could not compile used unit 'Clientes.pas' ''
Pela parte dos botoes DB, ao seta o dataset, como identifico os campos da tabela?
14/01/2019
Lucas Araújo
O codigo do processo foi esse:
procedure TfmClientes.BTGravarClick(Sender: TObject);
begin
FDQUERY1.sql.clear;
FDQUERY1.sql.add('INSERT INTO CLIENTES (ID,NOME) VALUES ('+EDCodigo.text+','+QuotedStr(EDNome.text)+')');
FDquery1.ExecSQL;
fmModulos_Dados.FDConnection1.Commit;
14/01/2019
Jucélio Silva
O codigo do processo foi esse:
procedure TfmClientes.BTGravarClick(Sender: TObject);
begin
FDQUERY1.sql.clear;
FDQUERY1.sql.add('INSERT INTO CLIENTES (ID,NOME) VALUES ('+EDCodigo.text+','+QuotedStr(EDNome.text)+')');
FDquery1.ExecSQL;
fmModulos_Dados.FDConnection1.Commit;
Boa, é isso ai, com essa base agora você pode fazer muita coisa XD...
14/01/2019
Jucélio Silva
O codigo do processo foi esse:
procedure TfmClientes.BTGravarClick(Sender: TObject);
begin
FDQUERY1.sql.clear;
FDQUERY1.sql.add('INSERT INTO CLIENTES (ID,NOME) VALUES ('+EDCodigo.text+','+QuotedStr(EDNome.text)+')');
FDquery1.ExecSQL;
fmModulos_Dados.FDConnection1.Commit;
Boa, é isso ai, com essa base agora você pode fazer muita coisa XD...
Ah sobre Binding de campo tem muita coisa aqui na dev, segue um link que fala um pouco , mas isso muda um pouco de versão para versão do delphi :
https://www.devmedia.com.br/livebindings-a-evolucao-no-delphi/30142
14/01/2019
Lucas Araújo
O codigo do processo foi esse:
procedure TfmClientes.BTGravarClick(Sender: TObject);
begin
FDQUERY1.sql.clear;
FDQUERY1.sql.add('INSERT INTO CLIENTES (ID,NOME) VALUES ('+EDCodigo.text+','+QuotedStr(EDNome.text)+')');
FDquery1.ExecSQL;
fmModulos_Dados.FDConnection1.Commit;
Boa, é isso ai, com essa base agora você pode fazer muita coisa XD...
Ah sobre Binding de campo tem muita coisa aqui na dev, segue um link que fala um pouco , mas isso muda um pouco de versão para versão do delphi :
https://www.devmedia.com.br/livebindings-a-evolucao-no-delphi/30142
Muito obrigado pela ajuda
Clique aqui para fazer login e interagir na Comunidade :)
