-
Contagem de Conteúdo
3 -
Ingressou
-
Última visita
Tipo de Conteúdo
Perfis
Fóruns
Blogs
Calendário
Downloads
Postagens postado por murilobragag
-
-
Desenvolvedor(a) Delphi que precisa fazer uma exportação na sua aplicação de forma prática.
1- Código da consulta
begin
if memo1.Text ='' then
begin
MessageDlg('SQL EM BRANCO',mtInformation,[mbOk],0);
abort;
end;
SQL_EXCEL.Close;
SQL_EXCEL.sql.Clear;
SQL_EXCEL.sql.Text := Memo1.Text;
SQL_EXCEL.Open;End;
2-Função que exporta o arquivo .CSV
VAR SLISTA : TSTRINGLIST;
NCAMPO : integer;
CLinha :string;
PLANILHA: Variant;begin
SLista := Tstringlist.Create;
Clinha :='';
for NCAMPO := 0 to SQL_EXCEL.Fields.Count-1 do
CLinha := CLinha+SQL_EXCEL.Fields[NCAMPO].DisplayLabel+';';
SLISTA.Add(CLINHA);
sql_excel.First;while not SQL_EXCEL.Eof do
begin
Clinha :='';
for NCAMPO := 0 to SQL_EXCEL.Fields.Count-1 do
CLinha := CLinha+SQL_EXCEL.Fields[NCAMPO].DisplayText+';';
SLISTA.Add(CLINHA);
SQL_EXCEL.Next;
end;
SLISTA.SaveToFile('d:\teste.csv');
end;3-Efetua a limpeza dos componentes.
begin
Memo1.Text :='';
SQL_EXCEL.SQL.Clear;
SQL_EXCEL.Close;
end;4-Componente TFDQUERY.
5-Componete DataSource.
6-Resulta da Consulta SQL. Componente DBGRID.
7-Campo MEMO. Para efetuar a consulta SQL.
Campos de Consulta SQL .
RESULTADO NO ARQUIVO .CSV
- 1
-
Vai no event do form OnkeyPress e coloca essa linha de código.
/ /com enter e tab pula de campo
begin
if key=#13 then
Perform(WM_nextdlgctl,0,0)
else if Key = #27 then
Perform(WM_nextdlgctl,1,0)
end;
depois vai em propriedades da Paleta em KeyPreview coloca True.
Comandos SQL - Básicos (Select, Insert, Update, Delete)
em SQL
Postado · Editado por murilobragag
Essencial para consultas SQL esses comandos são os mais usados tanto no desenvolvimento da aplicação ou no suporte das aplicação já existente. Existem diversos programas SGDB no mercado. Como por exemplo o MYSQL, Firebird, PostgreSQL entre outros. Cada SGDB tem suas particularidades que atraem o desenvolvedor que pode ser alguns fatore como: Velocidade, curva de aprendizagem, se o SGBD é gratuito ou pago, etc.
SELECT
O comando select é bastante simples e, serve para você, mostrar os dados da tabela. Sua sintaxe pode ser utilizado de algumas formas, como:
SELECT * FROM NOME_DA_TABELA;
Exemplo:
SELECT * FROM CLIENTES
Nota 1: o asterisco indica que você deseja mostrar todos os campos, ou seja, id, nome, email e cidade (conforme a tabela do MySQL que você deseja exibir os registros).
Exemplo 2:
SELECT nome, email FROM clientes;
Nota 2: neste caso, você está indicando que deseja mostrar somente nome e e-mail. Isso é interessante, pois a consulta é executa de forma mais rápida, já que você está trazendo menos informações da tabela.
INSERT
O comando insert é bastante simples de ser utilizado. Sua sintaxe é composta da seguinte forma:
INSERT INTO NOME_DA_TABELA (CAMPOS_QUE_DESEJA_INSERIR_DADOS) VALUES (VALORES_DOS_CAMPOS).
Exemplo:
INSERT INTO clientes (nome, email, empresa) VALUES (‘Murilo’, ‘email@exemplo.com.br’, ‘NOME_DA_EMPRESA’);
UPDATE
O comando update possui a sintaxe muito similar ao do INSERT, mas é utilizada para atualizar registros do banco de dados.
UPDATE NOME_DA_TABELA SET campo1 = valor1, campo2 = valor2.
Exemplo:
UPDATE clientes SET nome = ‘Murilo’, email = ‘exemplo2@exemplo.com.br’;
Assim, o ideal é que você indique o registro da tabela que deseja atualizar, conforme mostra abaixo.
UPDATE clientes SET nome = ‘Murilo’, email = ‘exemplo2@exemplo.com.br’ WHERE id = 1;
No exemplo acima, somente será atualizado o registro que conter o id 1.
DELETE
O comando delete nunca deve ser utilizado sem a clausula WHERE. Caso contrário, irá deletar todos os registros da tabela. Sempre que você deseja apagar um registro, provavelmente quer apagar um em especifico. Assim, sempre é importante usar o WHERE, conforme o exemplo abaixo.
DELETE FROM NOME_DA_TABELA WHERE id = VALOR_DO_ID;
Exemplo:
DELETE FROM clientes WHERE id = 1;
Nota 1: desta forma, você estará excluindo o registro que conter o id 1.