BorlandTalk.com Forum Index BorlandTalk.com
Borland discussion newsgroups
 
Archives   FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Error when insert data into AS400 database

 
Post new topic   Reply to topic    BorlandTalk.com Forum Index -> Delphi As400
View previous topic :: View next topic  
Author Message
lsg
Guest





PostPosted: Sat Apr 09, 2005 2:45 am    Post subject: Error when insert data into AS400 database Reply with quote




Hi,
I need your to assist me to solve the problem.
The problem is when i run the ExecSQL, it prompts me "cwbDB_PrepareDescribe returned error code 6036"
"Server error class 1 code -104". But the data can save into the AS400 table.

i am using TSQLConnection to connect to the AS400 database. Libraryname=dbexpca400.dll
vendorlib=cwbdb.dll

the code:
AS400Query1.SQL.Text:='¹insert into '+tmstbl+' (UPWS01) values('+un+')';
AS400Query1.ExecSQL;

Thanks in advance

lsg
Back to top
Peter Sawatzki
Guest





PostPosted: Mon Apr 11, 2005 10:02 am    Post subject: Re: Error when insert data into AS400 database Reply with quote



In article <425733bf$1 (AT) newsgroups (DOT) borland.com>, [email]sgling07 (AT) yahoo (DOT) com[/email]
says...
Quote:

Hi,
I need your to assist me to solve the problem.
The problem is when i run the ExecSQL, it prompts me "cwbDB_PrepareDescribe returned error code 6036"
"Server error class 1 code -104". But the data can save into the AS400 table.

i am using TSQLConnection to connect to the AS400 database. Libraryname=dbexpca400.dll
vendorlib=cwbdb.dll

the code:
AS400Query1.SQL.Text:='¹insert into '+tmstbl+' (UPWS01) values('+un+')';

please show me the value of AS400Query1.SQL.Text at this point.

Quote:
AS400Query1.ExecSQL;


Peter

Back to top
lsg
Guest





PostPosted: Tue Apr 12, 2005 5:17 pm    Post subject: Re: Error when insert data into AS400 database Reply with quote




Hi,
The value is tmstbl = TMSLIB.TRUPLPF and
un = 01
un is a string character with 2 digits.
the size of UPWS01 is 2 digits as well.

Thanks Peter.

lsg

Peter Sawatzki <Peter (AT) Sawatzki (DOT) de> wrote:
Quote:
In article <425733bf$1 (AT) newsgroups (DOT) borland.com>, [email]sgling07 (AT) yahoo (DOT) com[/email]=20
says...
=20
Hi,
I need your to assist me to solve the problem.=20
The problem is when i run the ExecSQL, it prompts me "cwbDB_PrepareDescri=
be returned error code 6036"
"Server error class 1 code -104". But the data can save into the AS400 ta=
ble.
=20
i am using TSQLConnection to connect to the AS400 database. Libraryname=
=3Ddbexpca400.dll
vendorlib=3Dcwbdb.dll
=20
the code:
AS400Query1.SQL.Text:=3D'=B9insert into '+tmstbl+' (UPWS01) values('+un+'=
)';=20

please show me the value of AS400Query1.SQL.Text at this point.

AS400Query1.ExecSQL;
=20

Peter


Back to top
Peter Sawatzki
Guest





PostPosted: Thu Apr 14, 2005 12:21 pm    Post subject: Re: Error when insert data into AS400 database Reply with quote

lsg,

then your query is wrong which is why I asked you to show me the
contents of AS400Query1.SQL.Text. You showed me the contents of tmstbl
and un. Assuming the values you showed me, I think the value of SQL.Text
becomes

insert into TMSLIB.TRULPF (UPWS01) values(01)

and because UPWS01 is a character field, you may only insert character
values. Modify the query to this and it should work

insert into TMSLIB.TRULPF (UPWS01) values('01')

or modify your Delphi code like this:

AS400Query1.SQL.Text:=
'insert into '+tmstbl+' (UPWS01) values('''+un+''');

Peter

In article <425bf48a$1 (AT) newsgroups (DOT) borland.com>, [email]sgling07 (AT) yahoo (DOT) com[/email]
says...
Quote:

Hi,
The value is tmstbl = TMSLIB.TRUPLPF and
un = 01
un is a string character with 2 digits.
the size of UPWS01 is 2 digits as well.

Thanks Peter.

lsg

Peter Sawatzki <Peter (AT) Sawatzki (DOT) de> wrote:
In article <425733bf$1 (AT) newsgroups (DOT) borland.com>, [email]sgling07 (AT) yahoo (DOT) com[/email]=20
says...
=20
Hi,
I need your to assist me to solve the problem.=20
The problem is when i run the ExecSQL, it prompts me "cwbDB_PrepareDescri=
be returned error code 6036"
"Server error class 1 code -104". But the data can save into the AS400 ta=
ble.
=20
i am using TSQLConnection to connect to the AS400 database. Libraryname=
=3Ddbexpca400.dll
vendorlib=3Dcwbdb.dll
=20
the code:
AS400Query1.SQL.Text:=3D'=B9insert into '+tmstbl+' (UPWS01) values('+un+'=
)';=20

please show me the value of AS400Query1.SQL.Text at this point.

AS400Query1.ExecSQL;
=20

Peter



Back to top
Display posts from previous:   
Post new topic   Reply to topic    BorlandTalk.com Forum Index -> Delphi As400 All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2006 phpBB Group
SEO toolkit © 2004-2006 webmedic.