Inserção de dados

08/08/2008

1

Boa noite

Tenho uma tabela no sql server com os seguintes campos
id_cliente: intidentity(1,1)
nome
nasc
rg
sexo
e seguinte código:

datamodule.DM.Queryclientes.SQL.Clear;
datamodule.DM.Queryclientes.SQL.Add(´INSERT INTO clientes´);
datamodule.DM.Queryclientes.SQL.Add(´(nome,foto,rg,nasc)´) ;
datamodule.DM.Queryclientes.SQL.Add(´values(´+quotedstr(labelnome.Text) + ´,´ + datetostr(datanasc.Date) +´,´+ Quotedstr(editrg.Text) + ´,´ +Quotedstr(CBsexo.Text)+´)´);
datamodule.DM.Queryclientes.ExecSQL;


Após compilar e rodar o programa, e entrar com os dados o delphi me retorna o seguinte erro:[list]Project.exe raised class EaccessViolation whit message ´access violation blavlablabla.......
[/list]

Qual é o meu erro?


Responder

Posts

09/08/2008

Ricknetbr

Voce esta fazendo isso antes do datamodule estar instanciado?

Tente:

if Assigned(QueryClientes) then
begin
datamodule.DM.Queryclientes.SQL.Clear;
datamodule.DM.Queryclientes.SQL.Add(´INSERT INTO clientes´);
datamodule.DM.Queryclientes.SQL.Add(´(nome,foto,rg,nasc)´) ;
datamodule.DM.Queryclientes.SQL.Add(´values(´+quotedstr(labelnome.Text) + ´,´ + datetostr(datanasc.Date) +´,´+ Quotedstr(editrg.Text) + ´,´ +Quotedstr(CBsexo.Text)+´)´);
datamodule.DM.Queryclientes.ExecSQL;
end


Responder

09/08/2008

Tronics

Cara usa paramByname ou params pra ficar mais organizado.. vc esta passando uma data como parametro pro campo foto ?! vê ai certinho...


Responder