Erro em insert (SQL)

Delphi

27/09/2003

o que tem de errado neste codigo?



try
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(´insert into artigo (Artigo, preco) values (´´´+edit1.Text+´´´,´´´+edit2.text+´´´´);
query1.ExecSQL;
except
showmessage(´NÃO FOI POSSIVEL GRAVAR OS DADOS´);
end

[b:69f7188886]Título editado pelo Moderador - AZ[/b:69f7188886]


Anjomd

Anjomd

Curtidas 0

Respostas

Mmtoor

Mmtoor

27/09/2003

procedure Tfrm_principal.btninserirClick(Sender: TObject);
begin
query3.Active := False;
query3.Sql.Clear;
query3.Sql.Add(´insert into kcjsjur_clientes (data,tipo,cpf,cnpj,nome,endereco, bairro,cep, cidade,uf,ddd,telefone1,telefone2,fax,celular,email,icq,aim) values (´+´´´´+edit1.Text+´´´´+´,´+´´´´+edit2.Text+´´´´+´,´+´´´´+edit3.Text+´´´´+´,´+´´´´+edit4.Text+´´´´+´,´+´´´´+edit5.Text+´´´´+´,´+´´´´+edit6.Text+´´´´+´,´+´´´´+edit7.Text+´´´´+´,´+´´´´+edit8.Text+´´´´+´,´+´´´´+edit9.Text+´´´´+´,´+´´´´+edit10.Text+´´´´+´,´+´´´´+edit11.Text+´´´´+´,´+´´´´+edit12.Text+´´´´+´,´+´´´´+edit13.Text+´´´´+´,´+´´´´+edit14.Text+´´´´+´,´+´´´´+edit15.Text+´´´´+´,´+´´´´+edit16.Text+´´´´+´,´+´´´´+edit17.Text+´´´´+´,´+´´´´+edit18.Text+´´´´+´) ´);
query3.ExecSql;
MessageDLG(´Registro inserido com sucesso´, mtinformation, [mbok], 0);
end;


GOSTEI 0
POSTAR