Inserindo dados

Delphi

26/03/2008

Estou utilizando banco de dados Firebird com a paleta DBexpress e gostaria de saber como fazer para inserir dados no banco de dados, pois o botão de ´+´ do dbnavigator esta apagado. gostaria de saber como fazer para inserir os dados utilizando o sqlquery..?
Valeu!!!


Japapdb

Japapdb

Curtidas 0

Respostas

Abagattini

Abagattini

26/03/2008

Basicamente é isso:
StartTransaction;
TRY
  Query.Close;
  Query.SQL.Text:=
    ´INSERT INTO tabela ´+
    ´(campo1, campo2, campo3, ...) ´+
    ´VALUES ´+
    ´(:campo1, :campo2, :campo3, ...)´;
  Query.ParamByName(´campo1´).AsString := var1;
  Query.ParamByName(´campo2´).AsString := var2;
  Query.ParamByName(´campo3´).AsString := var3;
  Query.ExecSQL;
  Commit;
EXCEPT
  RollBack;
END;



GOSTEI 0
Abagattini

Abagattini

26/03/2008

[quote=´abagattini´]Basicamente é isso:
StartTransaction;
TRY
  Query.Close;
  Query.SQL.Text:=
    ´INSERT INTO tabela ´+
    ´(campo1, campo2, campo3, ...) ´+
    ´VALUES ´+
    ´(:campo1, :campo2, :campo3, ...)´;
  Query.ParamByName(´campo1´).AsString := var1;
  Query.ParamByName(´campo2´).AsString := var2;
  Query.ParamByName(´campo3´).AsString := var3;
  Query.ExecSQL;
  Commit;
EXCEPT
  RollBack;
END;

Não sei como é no DBExpress, mas no IBOject funciona - deve funcionar também, todavia não sei se defini certo o inicio e fim da transação.


GOSTEI 0
Macario

Macario

26/03/2008

Olá.

Verifique se o Dataset esta aberto.
Verifique a ligação entre o DBNavigator e o Datasource provedor esta correta.

:roll:


GOSTEI 0
POSTAR