Eu tentei assim mas me da o seguinte erro :
Instrução sql invalida DELETE, INSERT, SELECT, UPDATE esperado...
with AdoqInsere do begin
close;
AdoqInsere.sql.clear;
AdoqInsere.sql.add ('Updade locacao set dt_devolucao = ' + DB6.Text + '
where cd_locacao = ' + Db4.Text + '');
AdoqInsere.execsql;
ShowMessage(AdoqInsere.SQL.Text);
end;
----------------------------------------------------------------------------
-----------
Cara quando tais concatenando a string, não tais trabalhando com parâmetros.
Faça assim:
with AdoqInsere do begin
close;
AdoqInsere.sql.clear;
AdoqInsere.sql.add ('Updade locacao set dt_devolucao = ' + DB6.Text + '
where cd_locacao = ' + Db4.Text + '');
AdoqInsere.execsql;
ShowMessage(AdoqInsere.SQL.Text);
end;
Ou assim:
with AdoqInsere do begin
close;
AdoqInsere.sql.clear;
AdoqInsere.sql.add ('Updade locacao set dt_devolucao = :p1 where
cd_locacao = :p2');
AdoqInsere.Parameters.Items[0].value:= (db6.text);
AdoqInsere.parameters.Items[1].value:=db4.Text;
AdoqInsere.execsql;
ShowMessage(AdoqInsere.SQL.Text);
end;
Deve resolver o seu problema!
--
José Henrique (Zote)
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Cadanos
Enviada em: quarta-feira, 15 de março de 2006 11:02
Para: grupo2
Assunto: [delphi-br] Erro no UPDATE
Pessoal to quebrando a cabeça com o seguinte:
Preciso fazer um Update em um campo de uma tabela onde condição = parâmetro
To tentando da seguinte maneira mas me da o erro list index out of bounds
(0),
Alguém tem um exemplo mais simples para se fazer?
with AdoqInsere do begin
close;
AdoqInsere.sql.clear;
AdoqInsere.sql.add ('Updade locacao set dt_devolucao = ' + DB6.Text + '
where cd_locacao = ' + Db4.Text + '');
AdoqInsere.Parameters.Items[0].value:= (db6.text);
AdoqInsere.parameters.Items[1].value:=db4.Text;
AdoqInsere.execsql;
ShowMessage(AdoqInsere.SQL.Text);
end;
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
Received: (qmail 29540 invoked by uid 0); 15 Mar 2006 11:04:40 -0300
Received: from 209.73.160.90 by poseidon.bludata.com.br (envelope-from
<[EMAIL PROTECTED]
>, uid 0) with qmail-scanner-1.25
(clamdscan: 0.85/974. spamassassin: 3.0.2.
Clear:RC:0(209.73.160.90):SA:0(-1.5/5.0):.
Processed in 5.059156 secs); 15 Mar 2006 14:04:40 -0000
X-Qmail-Scanner-Mail-From:
[EMAIL PROTECTED]
via poseidon.bludata.com.br
X-Qmail-Scanner: 1.25 (Clear:RC:0(209.73.160.90):SA:0(-1.5/5.0):. Processed
in 5.059156 secs)
Received: from unknown (HELO n31a.bullet.scd.yahoo.com) (209.73.160.90)
by poseidon.bludata.com.br with SMTP; 15 Mar 2006 11:04:35 -0300
Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys
DomainKey-Signature: a=a-sha1; q=s; c=fws; s=tel; d=hoogrupos.com.br;
bîExt7r9mocSEF1XEziYDZLuTLMd/Wk0AguxABDMHrjt+TocAZDr+XLKvsH6DbSbrjFU7ZYXOoWU
cYR5/kaZitWO03KMznXMikHQDpIhOY9GSuOmaK2X643CvhvEIMEi;
Received: from [66.218.66.59] by n31.bullet.scd.yahoo.com with NNFMP; 15 Mar
2006 14:04:26 -0000
Received: from [66.218.66.36] by t8.bullet.scd.yahoo.com with NNFMP; 15 Mar
2006 14:04:26 -0000
X-Yahoo-Newman-Property: groups-email
X-Sender: [EMAIL PROTECTED]
X-Apparently-To: delphi-br@yahoogrupos.com.br
Received: (qmail 82869 invoked from network); 15 Mar 2006 14:04:23 -0000
Received: from unknown (66.218.66.217)
by m30.grp.scd.yahoo.com with QMQP; 15 Mar 2006 14:04:23 -0000
Received: from unknown (HELO smtp.uol.com.br) (200.221.4.198)
by mta2.grp.scd.yahoo.com with SMTP; 15 Mar 2006 14:04:22 -0000
Received: from Valdir (unknown [200.250.222.26])
by scorpion1.uol.com.br (Postfix) with ESMTP id D7B9E7941
for <delphi-br@yahoogrupos.com.br>; Wed, 15 Mar 2006 11:04:16 -0300 (BRT)
Message-ID: <[EMAIL PROTECTED]>
To: "grupo2" <delphi-br@yahoogrupos.com.br>
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2800.1437
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441
X-Originating-IP: 200.221.4.198
X-eGroups-Msg-Info: 1:12:0:0
From: "Cadanos" <[EMAIL PROTECTED]>
Sender: delphi-br@yahoogrupos.com.br
MIME-Version: 1.0
Mailing-List: list delphi-br@yahoogrupos.com.br; contact
[EMAIL PROTECTED]
Delivered-To: mailing list delphi-br@yahoogrupos.com.br
List-Id: <delphi-br.yahoogrupos.com.br>
Precedence: bulk
List-Unsubscribe: <mailto:[EMAIL PROTECTED]>
Date: Wed, 15 Mar 2006 11:01:54 -0300
Subject: [delphi-br] Erro no UPDATE
Reply-To: delphi-br@yahoogrupos.com.br
Content-Type: text/plain; charset=O-8859-1
Content-Transfer-Encoding: quoted-printable
X-Spam-Checker-Version: SpamAssassin 3.0.2 (2004-11-16) on
poseidon.bludata.com.br
X-Spam-Level:
X-Spam-Status: No, score=.6 required=0 tests=L,BAYES_00,
RCVD_IN_BL_SPAMCOP_NET autolearn= version=0.2
Pessoal to quebrando a cabeça com o seguinte:
Preciso fazer um Update em um campo de uma tabela onde condição = parâmetro
To tentando da seguinte maneira mas me da o erro list index out of bounds
(0),
Alguém tem um exemplo mais simples para se fazer?
with AdoqInsere do begin
close;
AdoqInsere.sql.clear;
AdoqInsere.sql.add ('Updade locacao set dt_devolucao = ' + DB6.Text + '
where cd_locacao = ' + Db4.Text + '');
AdoqInsere.Parameters.Items[0].value:= (db6.text);
AdoqInsere.parameters.Items[1].value:=db4.Text;
AdoqInsere.execsql;
ShowMessage(AdoqInsere.SQL.Text);
end;
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
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]
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
