Search found 6 matches

by Coolman1974
01.02.2013, 20:00
Forum: MS SQL Server
Topic: Insert Statement failed
Replies: 9
Views: 3499

Hi Mark,
yes you right, i never run the test suite. I've tested some different cases. I tested the Querys with a connection to firebird and mssql(ado). I've tested with some different tables. All test results are ok.

Now, i'll find out how i can use the test suite you talked from.
by Coolman1974
01.02.2013, 10:23
Forum: MS SQL Server
Topic: Insert Statement failed
Replies: 9
Views: 3499

I think i've found the issue

The compare of "P.Value <> V" failed. In this case: P.Value = unassigned V = 0 The result of the compare is FALSE. This is wrong. Unit: ZDbcAdoStatement Class: TZAdoPreparedStatement Method: SetInParam Line: 433 i've changed: if P.Value <> V then P.Value := V; to: if (P.Value = unassigned)...
by Coolman1974
31.01.2013, 09:00
Forum: MS SQL Server
Topic: Insert Statement failed
Replies: 9
Views: 3499

TZSQLMonitor result

Here is the Result of the Monitor: 2013-01-31 08:48:31 cat: Connect, proto: ado, msg: CONNECT TO "Provider=SQLOLEDB.1;Password=myPW;Persist Security Info=True;User ID=myUSER;Initial Catalog=MSSQL_DBMOVER;Data Source=mySERVER\SQLEXPRESS" AS USER "" 2013-01-31 08:48:31 cat: Execute...
by Coolman1974
30.01.2013, 22:44
Forum: MS SQL Server
Topic: Insert Statement failed
Replies: 9
Views: 3499

No, i will do it tomorrow. I post the Result here.
Thanks for your Answer.
by Coolman1974
30.01.2013, 16:08
Forum: MS SQL Server
Topic: Insert Statement failed
Replies: 9
Views: 3499

More Informations

FIELD1 = PK Integer not null FIELD2 = PK Integer not null FIELD3 = PK Integer not null This works: QueryDestination.Close; QueryDestination.SQL.Clear; QueryDestination.SQL.Add('INSERT INTO MATABLE (FIELD1, FIELD2, FIELD3) VALUES (1, 2, 3)'); QueryDestination.ExecSql; This not: QueryDestination.Close...
by Coolman1974
30.01.2013, 15:16
Forum: MS SQL Server
Topic: Insert Statement failed
Replies: 9
Views: 3499

Insert Statement failed

Hello together, i execute the follow code: ... for I := 0 to QuerySource.FieldCount - 1 do begin if (not FieldIsEmpty(QuerySource.Fields )) then begin QueryDestination.ParamByName(QuerySource.Fields .FieldName).DataType := QuerySource.Fields .DataType; QueryDestination.ParamByName(QuerySource.Fields...