Boa Tarde Satoy .....
Talvez isso te ajude ....
Transacao.TransactionID := 2;
Transacao.IsolationLevel := xilREADCOMMITTED;
try
if not FrmDM.SQLConnection.InTransaction then
FrmDM.SQLConnection.StartTransaction(Transacao);
Inclusao:
FrmDm.QueryCredores.Close;
FrmDm.QueryCredores.CommandText := 'Insert into Credores
(codigo_c,nome_c,endereco_c,complemento_c,bairro_c,cidade_c,uf_c,cep_c,doc,tipo_doc)
values (:vcodigo, :vnome, :vendereco, :vcomplemento, :vbairro, :vcidade,
:vuf, :vcep, :vdoc, :vtipo_doc)' ;
FrmDm.QueryCredores.ParamByName('vcodigo').AsInteger :=
strtoint(edit1.text) ;
FrmDm.QueryCredores.ParamByName('vnome').asstring := Edit2.text ;
FrmDm.QueryCredores.ParamByName('vendereco').asstring := edit3.text ;
FrmDm.QueryCredores.ParamByName('vcomplemento').asstring :=
edit4.text ;
FrmDm.QueryCredores.ParamByName('vbairro').asstring := edit5.Text ;
FrmDm.QueryCredores.ParamByName('vcidade').asstring := edit6.text ;
FrmDm.QueryCredores.ParamByName('vuf').asstring := ComboBox2.Text ;
FrmDm.QueryCredores.ParamByName('vcep').asstring := MaskEdit1.Text ;
FrmDm.QueryCredores.ParamByName('vdoc').asstring := MaskEdit2.Text ;
FrmDm.QueryCredores.ParamByName('vtipo_doc').asstring :=
ComboBox1.text ;
FrmDM.QueryCredores.ExecSQL ;
FrmDM.SQLConnection.Commit(Transacao) ;
end;
except
on Exc:Exception do
begin
ShowMessage('Ocorreu um erro na Tentativa de Gravar o Registro') ;
FrmDM.SQLConnection.Rollback(Transacao);
end;
end;
Alteração:
FrmDm.QueryCredores.Close;
FrmDm.QueryCredores.CommandText := 'Update Credores set codigo_c =
:vcodigo, nome_c = :vnome, endereco_c = :vendereco, complemento_c =
:vcomplemento, bairro_c = :vbairro, cidade_c = :vcidade, uf_c = :vuf,
cep_c = :vcep, doc = :vdoc, tipo_doc = :vtipo_doc where codigo_c = ''' +
edit1.text + ''' ' ;
FrmDm.QueryCredores.ParamByName('vcodigo').AsInteger :=
strtoint(edit1.text) ;
FrmDm.QueryCredores.ParamByName('vnome').asstring := Edit2.text ;
FrmDm.QueryCredores.ParamByName('vendereco').asstring := edit3.text ;
FrmDm.QueryCredores.ParamByName('vcomplemento').asstring :=
edit4.text ;
FrmDm.QueryCredores.ParamByName('vbairro').asstring := edit5.Text ;
FrmDm.QueryCredores.ParamByName('vcidade').asstring := edit6.text ;
FrmDm.QueryCredores.ParamByName('vuf').asstring := ComboBox2.Text ;
FrmDm.QueryCredores.ParamByName('vcep').asstring := MaskEdit1.Text ;
FrmDm.QueryCredores.ParamByName('vdoc').asstring := MaskEdit2.Text ;
FrmDm.QueryCredores.ParamByName('vtipo_doc').asstring :=
ComboBox1.text ;
FrmDM.QueryCredores.ExecSQL ;
FrmDM.SQLConnection.Commit(Transacao) ;
end;
except
on Exc:Exception do
begin
ShowMessage('Ocorreu um erro na Tentativa de Alterar o Registro') ;
FrmDM.SQLConnection.Rollback(Transacao);
end;
end;
sds
Luciano
Satoy Matsuoka escreveu:
>
> Bom dia pessoal,
>
> Por favor desculpe a ignorância, mas como faço um insert update
> utilizando o
> Tquery ou TUpdate ???
> Como seria o comando ?
> Exemplo:
> Insert into <tabela> (campo1,campo2) values (???,????)
>
> Como me referencio aos campos que vou fazer um insert, update que são da
> tela ???
>
> Obrigado
> []'s
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
