sql.Add(' :vtelfor, :vfaxfor, :vcelfor ); ');
tire a vírgula
sql.Add(' :vtelfor, :vfaxfor, :vcelfor )');
- Original Message -
From: mclpaltrin
To: delphi-br@yahoogrupos.com.br
Sent: Monday, October 29, 2007 4:48 PM
Subject: [delphi-br] ERRO! cruel.
procedure
mclpaltrin wrote:
procedure TFrmCadastro.BitBtn2Click(Sender: TObject);
begin
{ bloco try/except}
try
with Zquery do
begin
Faltou o end deste begin acima.
--
Joao Morais
Zquery.Close;
sql.Clear;
sql.Add(' insert into fornec ( ');
sql.Add(' cpfcpj, rzofor, ftsfor, logcom, ');
não seria?
on E: Exception do
begin
(..)
end;
[]s
Em 29/10/07, mclpaltrin [EMAIL PROTECTED] escreveu:
procedure TFrmCadastro.BitBtn2Click(Sender: TObject);
begin
{ bloco try/except}
try
with Zquery do
begin
Zquery.Close;
sql.Clear;
sql.Add(' insert into fornec ( ');
sql.Add('
Fellipe Henrique wrote:
não seria?
on E: Exception do
Este E é você quem escolhe. O que você escolher poderá ser usado no
bloco abaixo para recuperar algum valor.
--
Joao Morais
begin
(..)
end;
[]s
Em 29/10/07, mclpaltrin [EMAIL PROTECTED] escreveu:
procedure
De bandeja heim
Rapaz.. faz uma identação melhor nesse código...
try
with Zquery do begin
Zquery.Close;
sql.Clear;
sql.Add( 'insert into fornec (' );
sql.Add( 'cpfcpj, rzofor, ftsfor, logcom, ' );
sql.Add( 'numcom, baicom,
5 matches
Mail list logo