Estou ficando louco, o que tem de errado neste codigo ?
Gente... o que tem de errado neste codigo pelo amor de Deus ???
Uma coisa tao simples..
o delphi me retorna um erro de sintaxe do sql...
usando mysql, delphi 2010, componente zeos...
e sempre deu certo ox !
Uma coisa tao simples..
Modulo.QPessoas.SQL.Clear; Modulo.QPessoas.SQL.Add(insert into tbpessoas (tipo,nomerazao,Empresa,cpfcgc,cep,cidade,bairro,uf,site,email) values (:tipo,:nomerazao,:Empresa,:cpfcgc,:cep,:cidade,:bairro,:uf,:site,:email)); modulo.QPessoas.ParamByName(tipo).AsString := tipo; modulo.QPessoas.ParamByName(nomerazao).AsString := nome razao; modulo.QPessoas.ParamByName(empresa).AsString := empresa; modulo.QPessoas.ParamByName(cpfcgc).AsString := cpfcgc; modulo.QPessoas.ParamByName(cep).AsString := cep; modulo.QPessoas.ParamByName(cidade).AsString := cidade; modulo.QPessoas.ParamByName(bairro).AsString := bairro; modulo.QPessoas.ParamByName(uf).AsString := uf; modulo.QPessoas.ParamByName(site).AsString := site; modulo.QPessoas.ParamByName(email).AsString := email; modulo.QPessoas.ExecSQL;
o delphi me retorna um erro de sintaxe do sql...
usando mysql, delphi 2010, componente zeos...
e sempre deu certo ox !
Geison
Curtidas 0
Respostas
Iramar Junior
14/08/2012
Gente... o que tem de errado neste codigo pelo amor de Deus ???
Uma coisa tao simples..
o delphi me retorna um erro de sintaxe do sql...
usando mysql, delphi 2010, componente zeos...
e sempre deu certo ox !
Uma coisa tao simples..
Modulo.QPessoas.SQL.Clear; Modulo.QPessoas.SQL.Add(insert into tbpessoas (tipo,nomerazao,Empresa,cpfcgc,cep,cidade,bairro,uf,site,email) values (:tipo,:nomerazao,:Empresa,:cpfcgc,:cep,:cidade,:bairro,:uf,:site,:email)); modulo.QPessoas.ParamByName(tipo).AsString := tipo; modulo.QPessoas.ParamByName(nomerazao).AsString := nome razao; modulo.QPessoas.ParamByName(empresa).AsString := empresa; modulo.QPessoas.ParamByName(cpfcgc).AsString := cpfcgc; modulo.QPessoas.ParamByName(cep).AsString := cep; modulo.QPessoas.ParamByName(cidade).AsString := cidade; modulo.QPessoas.ParamByName(bairro).AsString := bairro; modulo.QPessoas.ParamByName(uf).AsString := uf; modulo.QPessoas.ParamByName(site).AsString := site; modulo.QPessoas.ParamByName(email).AsString := email; modulo.QPessoas.ExecSQL;
o delphi me retorna um erro de sintaxe do sql...
usando mysql, delphi 2010, componente zeos...
e sempre deu certo ox !
A unica coisa que vi e poderia esta ocasionando o erro é na linha
modulo.QPessoas.ParamByName(nomerazao).AsString := nome razao;
que tem um espaco nome razao, verificando se for isso deve ficar assim
modulo.QPessoas.ParamByName(nomerazao).AsString := nomerazao;
sem o espaço
GOSTEI 0
Geison
14/08/2012
é que este forum tirou as aspas simples..
cada parametro está recebendo uma string somente para testar..
entao este parametro recebe := nome razao;
cada parametro está recebendo uma string somente para testar..
entao este parametro recebe := nome razao;
GOSTEI 0
Geison
14/08/2012
Fiz um teste colocando diretamente os dados na instrução sql, e gravou, entao nao está sendo atribuido o valor ao parametro, mas pela teoria está certo. alguem sabe como soluciona este caso ?
GOSTEI 0
Geison
14/08/2012
Bom galera, resolvi o problema usando ao inves de
Nao sei porque, mas agora ta ok.
Tks.
.value
.asstring
Nao sei porque, mas agora ta ok.
Tks.
GOSTEI 0
Deivison Melo
14/08/2012
existia o espaço no nome da razão? No código estava: nome razao;
Modulo.QPessoas.SQL.Clear;
Modulo.QPessoas.SQL.Add(insert into tbpessoas (tipo,nomerazao,Empresa,cpfcgc,cep,cidade,bairro,uf,site,email)
values (:tipo,:nomerazao,:Empresa,:cpfcgc,:cep,:cidade,:bairro,:uf,:site,:email));
modulo.QPessoas.ParamByName(tipo).AsString := tipo;
modulo.QPessoas.ParamByName(nomerazao).AsString := nome razao; // existe esse espaço aqui mesmo?
modulo.QPessoas.ParamByName(empresa).AsString := empresa;
modulo.QPessoas.ParamByName(cpfcgc).AsString := cpfcgc;
modulo.QPessoas.ParamByName(cep).AsString := cep;
modulo.QPessoas.ParamByName(cidade).AsString := cidade;
modulo.QPessoas.ParamByName(bairro).AsString := bairro;
modulo.QPessoas.ParamByName(uf).AsString := uf;
modulo.QPessoas.ParamByName(site).AsString := site;
modulo.QPessoas.ParamByName(email).AsString := email;
modulo.QPessoas.ExecSQL;
Modulo.QPessoas.SQL.Clear;
Modulo.QPessoas.SQL.Add(insert into tbpessoas (tipo,nomerazao,Empresa,cpfcgc,cep,cidade,bairro,uf,site,email)
values (:tipo,:nomerazao,:Empresa,:cpfcgc,:cep,:cidade,:bairro,:uf,:site,:email));
modulo.QPessoas.ParamByName(tipo).AsString := tipo;
modulo.QPessoas.ParamByName(nomerazao).AsString := nome razao; // existe esse espaço aqui mesmo?
modulo.QPessoas.ParamByName(empresa).AsString := empresa;
modulo.QPessoas.ParamByName(cpfcgc).AsString := cpfcgc;
modulo.QPessoas.ParamByName(cep).AsString := cep;
modulo.QPessoas.ParamByName(cidade).AsString := cidade;
modulo.QPessoas.ParamByName(bairro).AsString := bairro;
modulo.QPessoas.ParamByName(uf).AsString := uf;
modulo.QPessoas.ParamByName(site).AsString := site;
modulo.QPessoas.ParamByName(email).AsString := email;
modulo.QPessoas.ExecSQL;
GOSTEI 0
Deivison Melo
14/08/2012
Se funcionou, então jóia!
Qualquer anormalidade por favor mencionar!
Qualquer anormalidade por favor mencionar!
GOSTEI 0
Romulo Contro
14/08/2012
vc poderia ter feito também:
Modulo.QPessoas.SQL.Text := sql aqui;
ao invés de Modulo.QPessoas.SQL.Add
assim eu acho que nao daria erro também...
Modulo.QPessoas.SQL.Text := sql aqui;
ao invés de Modulo.QPessoas.SQL.Add
assim eu acho que nao daria erro também...
GOSTEI 0
Douglas Michelino
14/08/2012
Eu utilizo assim
adoquery.Parameters.ParamByName(login).Value:=teste;
adoquery.Parameters.ParamByName(login).Value:=teste;
GOSTEI 0