Fonte: www.activedelphi.com.br
Crie uma tabela com o nome de teste.db, e coloque os seguintes campos:
COD = auto_increment
NOME = alpha = 255 caracteres
Neste artigo irei mostrar de forma fácil e rápida, os comandos básicos para: (inserir,alterar,deletar).
Primeiramente vamos aos comandos:
Para inserir dados, com comandos SQL
('insert into tabela (nome_capo) values ('+''''+edit.Text+''''+');
Para selecionar dados, com comandos SQL
('select * from tablea where = campo "'+edit.Text+'"');
Para deletar dados, com comandos SQL
('delete from tabela where campo = '+''''+edit.Text+''''+'');
Para atualizar dados, com comandos SQL
('update tabela set campo = '+''''+edit.Text+''''+' where campo = '+''''+edit1.Text+''''+'');
Agora vamos passo a passo:
Primeiramenta crie um novo aplicativo em: File >New >Application
Após ter criado, coloque no form os componentes: 3 componentes "TButton", 1 componente "TEdit", 1 "TDBGrid", 1 "TDataSource", 1 "TSQLQuery".
No componente, TDataSource, na propriedade DataSet, coloque o valor "query1".
Pronto, as configurações dos componentes já foram feitas, agora vamos colocar os comandos no projeto.
Você colocou 3 componentes "TButton".
Faça as seguintes configurações nas propriedades do 3 "TButton".
Button1: Caption = Inserir
Name = btn_inserir
Button2: Caption = Alterar
Name = btn_alterar
Button3: Caption = Deletar
Name = btn_deletar
Agora de um duplo clique sobre o Botão "Inserir","btn_inserir".
Irá aparecer o editor do delphi, onde serão colocados os comandos.
Neste botão "Inserir", você coloca o seguinte comando:
query1.Active := False;
query1.SQL.Clear;
query1.SQL.Add('insert into teste (nome) values ('+''''+edit1.Text+''''+') ');
query1.ExecSQL;
Bom, estas linhas de comando acima irá inserir o dado em uma tabela.
Agora no botão "Alterar", você coloca as seguinte linhas de comandos:
query1.Active := False;
query1.SQL.Clear;
query1.SQL.Add('update teste set nome = '+''''+edit1.Text+''''+' where = COD');
query1.ExecSQL;
As linhas de comandos acima irão fazer com que altere um certo dado, este é o comando básico.
Agora no botão "Deletar", você coloca as seguintes linhas de comandos:
if MessageDlg('AVISO: Confirma Exclusão?', mtInformation, [mbYES, mbNO], 0) = mrYES then
begin
query1.Active := False;
query1.SQL.Clear;
query1.SQL.Add('delete from teste where COD = '+''''+edit1.Text+''''+'');
query1.ExecSQL;
end
Bom ai está, como inserir, aletrar e deletar dados de uma tabela, com comandos básicos.
COD = auto_increment
NOME = alpha = 255 caracteres
Neste artigo irei mostrar de forma fácil e rápida, os comandos básicos para: (inserir,alterar,deletar).
Primeiramente vamos aos comandos:
Para inserir dados, com comandos SQL
('insert into tabela (nome_capo) values ('+''''+edit.Text+''''+');
Para selecionar dados, com comandos SQL
('select * from tablea where = campo "'+edit.Text+'"');
Para deletar dados, com comandos SQL
('delete from tabela where campo = '+''''+edit.Text+''''+'');
Para atualizar dados, com comandos SQL
('update tabela set campo = '+''''+edit.Text+''''+' where campo = '+''''+edit1.Text+''''+'');
Agora vamos passo a passo:
Primeiramenta crie um novo aplicativo em: File >New >Application
Após ter criado, coloque no form os componentes: 3 componentes "TButton", 1 componente "TEdit", 1 "TDBGrid", 1 "TDataSource", 1 "TSQLQuery".
No componente, TDataSource, na propriedade DataSet, coloque o valor "query1".
Pronto, as configurações dos componentes já foram feitas, agora vamos colocar os comandos no projeto.
Você colocou 3 componentes "TButton".
Faça as seguintes configurações nas propriedades do 3 "TButton".
Button1: Caption = Inserir
Name = btn_inserir
Button2: Caption = Alterar
Name = btn_alterar
Button3: Caption = Deletar
Name = btn_deletar
Agora de um duplo clique sobre o Botão "Inserir","btn_inserir".
Irá aparecer o editor do delphi, onde serão colocados os comandos.
Neste botão "Inserir", você coloca o seguinte comando:
query1.Active := False;
query1.SQL.Clear;
query1.SQL.Add('insert into teste (nome) values ('+''''+edit1.Text+''''+') ');
query1.ExecSQL;
Bom, estas linhas de comando acima irá inserir o dado em uma tabela.
Agora no botão "Alterar", você coloca as seguinte linhas de comandos:
query1.Active := False;
query1.SQL.Clear;
query1.SQL.Add('update teste set nome = '+''''+edit1.Text+''''+' where = COD');
query1.ExecSQL;
As linhas de comandos acima irão fazer com que altere um certo dado, este é o comando básico.
Agora no botão "Deletar", você coloca as seguintes linhas de comandos:
if MessageDlg('AVISO: Confirma Exclusão?', mtInformation, [mbYES, mbNO], 0) = mrYES then
begin
query1.Active := False;
query1.SQL.Clear;
query1.SQL.Add('delete from teste where COD = '+''''+edit1.Text+''''+'');
query1.ExecSQL;
end
Bom ai está, como inserir, aletrar e deletar dados de uma tabela, com comandos básicos.
Preciso colocar a tabela em mode de insercao ???
ResponderExcluirBoa tarde,
ExcluirNão precisa.