Bom Luciano,
Eu utilizo Delphi 7 + ADO + Sql Server e meu script sql � o seguinte:
if dm_Base.Pesq_SubObra(StrToInt(Edit_OS.Text), Edit_SubObra.Text) then
begin
wb_Novo := False;
//---> Altera��o
ws_sql := ('Update SubObra set ');
ws_Sql := (ws_Sql + 'Descricao = :p_Descr, ');
ws_Sql := (ws_Sql + 'Data_Cadastro = :p_Data, ');
ws_Sql := (ws_Sql + 'Alt_Nome = :p_AltNome, ');
ws_Sql := (ws_Sql + 'Alt_DataHora = :p_AltData ');
ws_Sql := (ws_Sql + 'Where (idOS = :p_OS)');
ws_Sql := (ws_Sql + ' and (idSubObra = :p_SO)');
end
else
begin
//---> Inclus�o
ws_sql := ('Insert into SubObra (');
ws_Sql := (ws_Sql + 'idOS, idSubObra, Descricao, Data_Cadastro,
Cad_Nome, Cad_DataHora ');
ws_Sql := (ws_Sql + ') values (');
ws_Sql := (ws_Sql + ':p_OS, :p_SO, :p_Descr, :p_Data,
:p_CadNome, :p_CadData)');
end;
//---> Executa a query
sql_Acao.Close;
sql_Acao.SQL.Clear;
sql_Acao.SQL.Add(ws_Sql);
sql_Acao.Parameters.ParamByName('p_OS').Value :=
StrToInt(Edit_OS.Text);
sql_Acao.Parameters.ParamByName('p_SO').Value :=
Edit_SubObra.Text;
sql_Acao.Parameters.ParamByName('p_Descr').Value :=
Edit_Descricao.Text;
if Edit_Data.Date = 0 then
sql_Acao.Parameters.ParamByName('p_Data').Value := null
else
sql_Acao.Parameters.ParamByName('p_Data').Value := Edit_Data.Date;
if wb_Novo then
begin
sql_Acao.Parameters.ParamByName('p_CadNome').Value :=
uMain.wf_s_NomeUsu;
sql_Acao.Parameters.ParamByName('p_CadData').Value := (now);
end
else
begin
sql_Acao.Parameters.ParamByName('p_AltNome').Value :=
uMain.wf_s_NomeUsu;
sql_Acao.Parameters.ParamByName('p_AltData').Value := (now);
end;
try
dm_Base.ado_Conn.BeginTrans;
sql_Acao.ExecSQL;
dm_Base.ado_Conn.CommitTrans;
except
dm_Base.ado_Conn.RollbackTrans;
end;
talvez te de uma luz.
Qqer coisa, estou a disposicao.
[]�s
===============================
Emilio C�rdova Silva
[EMAIL PROTECTED]
[EMAIL PROTECTED]
(41) 9228-7414
----- Original Message -----
From: "luciano" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Wednesday, February 02, 2005 1:07 PM
Subject: Re: [delphi-br] DataSet Open
J� tentei isso, continua com a mesma msg.
----- Original Message -----
From: "Emilio C�rdova (pop)" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Wednesday, February 02, 2005 9:10 AM
Subject: Re: [delphi-br] DataSet Open
Bom dia,
tenta assim
qryProdutos.Close; <-- inclua isto antes de limpar a query
qryProdutos.Sql.Clear;
qryProdutos.SQL.Add ('select * from Produtos');
qryProdutos.SQL.Add ('where TIPCAP = :TIPOP');
qryProdutos.Params [ 0 ].DataType := ftstring;
qryProdutos.Params [ 0 ].Value := dbrSelTipProd.ItemIndex
===============================
Emilio C�rdova Silva
[EMAIL PROTECTED]
[EMAIL PROTECTED]
(41) 9228-7414
----- Original Message -----
From: "lucaoliveira7" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Tuesday, February 01, 2005 8:43 PM
Subject: [delphi-br] DataSet Open
Pessoal � o seguinte, estou montando esse SQL din�micamente o
problema � que todas as vezes que chega na primeira linha Add aparece
msg de erro DataSet Open
qryProdutos.Sql.Clear;
qryProdutos.SQL.Add ('select * from Produtos');
qryProdutos.SQL.Add ('where TIPCAP = :TIPOP');
qryProdutos.Params [ 0 ].DataType := ftstring;
qryProdutos.Params [ 0 ].Value := dbrSelTipProd.ItemIndex;
Grato
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.4 - Release Date: 01/02/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.4 - Release Date: 01/02/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.4 - Release Date: 01/02/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.4 - Release Date: 01/02/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que voc� faz do Yahoo! Grupos est� sujeito aos:
http://br.yahoo.com/info/utos.html
