Erro na hora de inserir

Delphi

13/09/2005

Caros amigos

Quando vou tentar fazer o insert numa tabela aperece o seguinte erro

(Erro ao criar handle do cursor) alguem poderia e dar uma dica como resolver este pro?

Desde já obg pela atenção de todos aki no forum

Atenciosamente.


Alexespina

Alexespina

Curtidas 0

Respostas

Michelli88

Michelli88

13/09/2005

Ola colega, coloca ai o codigo!


GOSTEI 0
Alexespina

Alexespina

13/09/2005

este é o codigo

QryInsere.Close;

QryInsere.ParamByName(´Pcod´).AsString := EdtCod.Text;
QryInsere.ParamByName(´Plote´).AsString := EdtCodLote.Text;
QryInsere.ParamByName(´PtipDoc´).AsString := EdtCodTipoDoc.Text;
QryInsere.ParamByName(´Pdata´).AsDateTime := Date;

QryInsere.Open;


GOSTEI 0
Michelli88

Michelli88

13/09/2005

Opss faltou o SQL!


GOSTEI 0
Alexespina

Alexespina

13/09/2005

desculpe MI.. :-(

esse e o codigo sql

INSERT INTO TOUTROSDOC
(Cod_Ait, COD_LOTEOUTROSDOC,COD_TIPODOCUMENTO, DATACADASTRO_OUTROSDOC)
VALUES
(:Pcod, :Plote, :PtipDoc, :Pdata)


GOSTEI 0
Michelli88

Michelli88

13/09/2005

o Sql parece certo, tente assim:



no lugar de :

[b:6bee234038]QryInsere.Open;[/b:6bee234038]

tente:

[color=violet:6bee234038][b:6bee234038]QryInsere.ExecSQL [/b:6bee234038][/color:6bee234038]


GOSTEI 0
Rjun

Rjun

13/09/2005

Para comandos Insert/Update/Delete não se usa OPEN. Utilize EXECSQL.


GOSTEI 0
Alexespina

Alexespina

13/09/2005

Muito ogb amigos pelas suas dicas... funcionou mesmo!

:D


GOSTEI 0
POSTAR