Erro de insert e update em delphi e mysql usando zeos
21/08/2006
0
Olá pessoal
Preciso de uma ajuda urgente, to com um problema com uma sintax de sql e naum acho o problema, ai vai
if v_acao = ´incluir´ then
begin
Data_Modulo.Q_fornecedor.Close;
Data_Modulo.Q_fornecedor.SQL.Clear;
Data_Modulo.Q_fornecedor.SQL.Add(´insert into fornecedor (Nome, Razao, Tipo, Endereco, Complemento, Bairro, Cidade, Cep, Inscricao, CGC, Telefones, Fax, Email, Email, Cotar, Observacao, Dt_Cadastro)´+´ values (´´+dbe_nome.Text+´´, ´+´ ´´+dbe_razao.Text+´´, ´+´ ´´+v_pessoa+´´, ´+´ ´´+dbe_endereco.Text+´´, ´+´ ´´+dbe_complemento.Text+´´, ´+´ ´´+dbe_bairro.Text+´´, ´+´ ´´+dbe_cidade.Text+´´, ´+´ ´´+dbe_cep.Text+´´, ´+´ ´´+dbe_incricao.Text+´´, ´+´ ´´+dbe_cnpj.Text+´´, ´+´ ´´+dbe_telefone.Text+´´, ´+´ ´´+dbe_fax.Text+´´, ´+´ ´´+dbe_email.Text+´´, ´+´ ´´+v_cotar+´´, ´+´ ´´+dbe_obs.Text+´´, ´+´ ´+dbe_data_cadastro.Date+´ ´);
Data_Modulo.Q_fornecedor.ExecSQL;
Data_Modulo.Q_fornecedor.Open;
end
else if v_acao = ´alterar´ then
begin
Data_Modulo.Q_fornecedor.Close;
Data_Modulo.Q_fornecedor.SQL.Clear;
Data_Modulo.Q_fornecedor.SQL.Add(´Update set fornecedor Nome = ´´+dbe_nome.Text+´´, Razao = ´´+dbe_razao.Text+´´´);
Data_Modulo.Q_fornecedor.ExecSQL;
Data_Modulo.Q_fornecedor.Open;
end;
Obrigado
Preciso de uma ajuda urgente, to com um problema com uma sintax de sql e naum acho o problema, ai vai
if v_acao = ´incluir´ then
begin
Data_Modulo.Q_fornecedor.Close;
Data_Modulo.Q_fornecedor.SQL.Clear;
Data_Modulo.Q_fornecedor.SQL.Add(´insert into fornecedor (Nome, Razao, Tipo, Endereco, Complemento, Bairro, Cidade, Cep, Inscricao, CGC, Telefones, Fax, Email, Email, Cotar, Observacao, Dt_Cadastro)´+´ values (´´+dbe_nome.Text+´´, ´+´ ´´+dbe_razao.Text+´´, ´+´ ´´+v_pessoa+´´, ´+´ ´´+dbe_endereco.Text+´´, ´+´ ´´+dbe_complemento.Text+´´, ´+´ ´´+dbe_bairro.Text+´´, ´+´ ´´+dbe_cidade.Text+´´, ´+´ ´´+dbe_cep.Text+´´, ´+´ ´´+dbe_incricao.Text+´´, ´+´ ´´+dbe_cnpj.Text+´´, ´+´ ´´+dbe_telefone.Text+´´, ´+´ ´´+dbe_fax.Text+´´, ´+´ ´´+dbe_email.Text+´´, ´+´ ´´+v_cotar+´´, ´+´ ´´+dbe_obs.Text+´´, ´+´ ´+dbe_data_cadastro.Date+´ ´);
Data_Modulo.Q_fornecedor.ExecSQL;
Data_Modulo.Q_fornecedor.Open;
end
else if v_acao = ´alterar´ then
begin
Data_Modulo.Q_fornecedor.Close;
Data_Modulo.Q_fornecedor.SQL.Clear;
Data_Modulo.Q_fornecedor.SQL.Add(´Update set fornecedor Nome = ´´+dbe_nome.Text+´´, Razao = ´´+dbe_razao.Text+´´´);
Data_Modulo.Q_fornecedor.ExecSQL;
Data_Modulo.Q_fornecedor.Open;
end;
Obrigado
Luan
Curtir tópico
+ 0
Responder
Posts
22/08/2006
Wagnerbianchi
Olá amigo,
No campo [b:bea3e8c101]dbe_data_cadastro.Date[/b:bea3e8c101], falta aspas simples. . .
Verifique e caso tenha mais alguma dúvida, volte a postar no fórum!!
Abraço!!
No campo [b:bea3e8c101]dbe_data_cadastro.Date[/b:bea3e8c101], falta aspas simples. . .
Verifique e caso tenha mais alguma dúvida, volte a postar no fórum!!
Abraço!!
Responder
23/08/2006
Luan
Eu converti o campo date para string e mesmo assim naum funcionou.
Removi o campo data do banco e da sql e continua dando pau
Socorro!!!!!!!!!!!!!!!!!!!!!!!!!!!
Removi o campo data do banco e da sql e continua dando pau
Socorro!!!!!!!!!!!!!!!!!!!!!!!!!!!
Responder
Clique aqui para fazer login e interagir na Comunidade :)