Criando tabela de sql junto com delphi 7 com comandos basicos

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (349 palavras )
  • Download(s) : 0
  • Publicado : 28 de maio de 2012
Ler documento completo
Amostra do texto
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ásicospara: (inserir,alterar,deletar).
Primeiramente vamos aos comandos:

Para inserir dados, com comandos SQL
('insert into tabela (nome_capo) values ('+''''+edit.Text+''''+');

Para selecionardados, com comandos SQL
('select * from tablea where = campo "'+edit.Text+'"');

Para deletar dados, com comandos SQL
('delete from tabela where campo = '+''''+edit.Text+''''+'');

Paraatualizar 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 seguintecomando:

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 =...
tracking img