Fala galera.
To fazendo um projeto aqui, mas ta dando um erro estranho. Ve se
alguem pode me ajudar.
Tenho um cadastro de clientes feito c/ d5, ado e accesss
No meu Data Module tem apenas 2 componentes.
ADOConnection
ADOQuery
Quando executo uma operação de leitura nas tabelas vai tudo beleza.
Mas quando executo um insert, não funciona.
O trecho do código é o seguinte:
Const
insCliente : string = 'insert into tcliente
'
+ ' (codCliente, nome, endereco, bairro,
cidade, CEP, UF, e-mail, tipoDeCliente, '
+ ' telCelular, telResidencial)
'
+ ' values
'
+ ' (:codCliente, :nome, :endereco, :bairro,
:cidade, :CEP, :UF, :e-mail, '
+ ' :tipoDeCliente, :telCelular,
:telResidencial) ';
// ------------------------------------------
function Tdtm.IncluirCliente(Codigo: integer; Nome, Endereco, Bairro,
Cidade, CEP, UF, E_mail, tipoDeCliente, telCelular,
telResidencial : string): boolean;
begin
result := false;
try
qry.SQL.Text := insCliente;
qry.Parameters.ParamByName('codCliente') .Value := Codigo;
qry.Parameters.ParamByName('nome') .Value := Nome;
qry.Parameters.ParamByName('endereco') .Value := Endereco;
qry.Parameters.ParamByName('bairro') .Value := Bairro;
qry.Parameters.ParamByName('cidade') .Value := Cidade;
qry.Parameters.ParamByName('CEP') .Value := Cep;
qry.Parameters.ParamByName('UF') .Value := UF;
qry.Parameters.ParamByName('e-mail') .Value := e_mail;
qry.Parameters.ParamByName('tipoDeCliente') .Value := tipoDeCliente;
qry.Parameters.ParamByName('telCelular') .Value := telCelular;
qry.Parameters.ParamByName('telResidencial') .Value := telResidencial;
qry.Prepared := true;
qry.ExecSQL;
finally
result := true;
end;
O erro acontece quando passa pelo ExecSql. A msg é:
Project Info.exe raised exception class EOleException with message
"Erro de sintaxe na instrução INSERT INTO". Process Stoped.
Não vi erros no SQL. Não sei o que pode estar havendo.
--
<<<<< 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
