sql

[hhmelina 0]

Bom dia galera!!!!

É o seguinte, estava usando uma tabela para acessar o banco... Mas vai ter q ser uma SQL... e eu não lembro como faço para inserir os dados numa tabela usando SQL...

Não sei como faço para configurar os botões inserir, alterar, cancelar...

Beijos...

Mel http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

[@beto 0]

Oi mel..

 

e muito simples..

lá vai um ex...

 

SQL := 'Select * from aPagar where situacao = ''1'' and dtvencimento >= :Data1 and dtvencimento <= :Data2 order by dtvencimento';

QPagar.SQL.Add(SQL);

QPagar.Params[0].AsString := meDataPg1.Text;

QPagar.Params[1].AsString := meDataPg2.Text;

 

este e um ex. de consulta..

 

qualquer duvida me fala.. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[apocalipse 0]

Salve hhmelina

 

Bom, se entendi o que voce quer, o codigo abaixo te ajuda

 

 

//Para atualizar

update tabela set campo= valor where campo=valor a ser modificado

 

 

//Para inserir

insert into tabela(Campos) values(Valores do compos)

 

 

 

 

Para usar sql voce pode colocar no botao inserir

procedure TForm1.Button1Click(Sender: TObject);Var  nCod:Integer;begin  Query2.SQL.Clear;  Query2.SQL.Text:='select max(clcod)as codigo from dsevcl00';  Query2.Open;  nCod:=Query2codigo.Value+1;  Query1.SQL.Clear;  Query1.SQL.Add(Concat('insert into dsevcl00(clcod, cliente)values(','''',IntToStr(nCod),'''',',''',Edit1.Text,''')'));  Query1.SQL.SaveToFile('c:\lixo\teste.sql');  Query1.Open;end;procedure TForm1.FormShow(Sender: TObject);begin  Query1.Open;end;

Bom espero ter ajudado!

 

Apocalipse :unsure: