7.2 testers-thread

[marsupilami]

Hello Dieter,

which databse do you use? Which Version of Delphi do you use? Or do you use Lazarus? What makes you think it doesn't work? Is there some error message? Or does it just not delete the record?
Best regards,

Jan

[miab3]

@DreamDancer,

and what it means
zquery.execute
?

and
'Delete x from y where z'
?

Michal

[DreamDancer]

@marsupilami
I am using Lazarus 1.2.6 on Windows 7 32 and Windows 7 64
with MySql 5.1
No error message: just when I close the program and open it again,
the "deleted" record is still there!

@miab3
I was just trying to explain how I delete that record:
with zQuery where I start a transaction, execute the
SqlStatement('Delete from myTable where PK = theActiveRecord)
and then commit the transaction, everything done with ONE zConnection.

This way of deleting works with 7.1.4 (I had to switch back) !!

[miab3]

@DreamDancer, @EgonHugeist, @mdaems, All

Indeed, for ZEOS 7.2 r3609 MySQL 5.5.40 and Lazarus Win32(CodeTyphon 5.2)
the sequence:

Code: Select all

ZConnection1.StartTransaction;
ZConnection1.ExecuteDirect('delete from towary where IDT=3000');
ZConnection1.Commit;

does not remove the record forever,

while just:

Code: Select all

ZConnection1.ExecuteDirect('delete from towary where IDT=3000');

doing it.
The same error also occurs for DELPHI XE2-32 and MySQL 5.5.40.

For Firebird 2.54 and PostgreSQL 9.3.0 this bug does not occur.
It seems that the problem affects MySQL.

Michal

[DreamDancer]

@miab
Thanks for validating the behaviour!
So I will use ZConnection.ExecuteDirect now.

[hemmingway]

The fix in ZDbcMySql.pas in revision 3565

> procedure TZMySQLConnection.SetAutoCommit(Value: Boolean);
> begin
> if AutoCommit <> Value then
> //if AutoCommit <> Self.AutoCommit then
> begin
> inherited SetAutoCommit(AutoCommit);

is the reason for not working adding or deleting records.

I think the following code works:

> procedure TZMySQLConnection.SetAutoCommit(Value: Boolean);
> begin
> if AutoCommit <> Value then
> begin
> inherited SetAutoCommit(Value);

[DreamDancer]

Thanks @hemmingway!!
Yes, changing that procedure DOES the job!
So I now can use a seperate transaction again.

Looked up the 7.3 branch: it has the same "mistake"

[miab3]

ALL,

In Zeos7.2-beta branches_ testing_Revision 3619:
http://svn.code.sf.net/p/zeoslib/code-0 ... sting-7.2/
Michael fixed a bug StartTransaction-Commit for MySQL.

Michal

[miab3]

@EgonHugeist, @mdaems, All

Zeos7.2-beta branches_ testing_Revision 3619:
http://svn.code.sf.net/p/zeoslib/code-0 ... sting-7.2/
compiles and runs on (I have tested):

- D7 on Windows XP Mode (on W7-32),
- D2006 (W7-32),
- D2007 -> C++ (W8.1-64),
- DXE2 32/64 -> C++(32) (W7-64),
- Lazarus 1.2.6-W64 (fpc 2.6.2) on Windows 8.1-64 - compiles and builds without a problem - new ADO operates on Windows,
- Lazarus 32/64(fpc 3.1.1) on Windows7-64(CodeTyphon ver 5.20) - CodeTyphon ver 5.20 rebuilt without a problem. LazSqlX v4.6.3.1524 -Win-32/64-bit build with success - new ADO operates on Windows,
- Lazarus 64(fpc 2.7.1) on Fedora-x86_64-20-1(CodeTyphon ver 4.80) - CodeTyphon ver 4.80 rebuilt without a problem; Tested:
SQLite and client: Firebird, MySQL- MariaDB, PostgreSQL, Oracle, MSSQL(FreeTDS).

Passes Test-Benchmark mORMot 15 - External DB performance(mod) ver 1.18.927 2015-02-18 21:35:20 from:
http://synopse.info/fossil/info/78c3c38 ... d29a7dcec5
Delphi XE2-32 localhost and remote (also Firebird 3.0).

Test databases and 32/64-bits clients:
Firebird 2.5.4, MySQL 5.5.40, MariaDB 5.5.40, MariaDB 10.1.1 Alpha, PostgreSQL 9.3.0, Oracle XE 11.2g, MSSQL 2008 R2 Express(mssql, FreeTDS, ado-sqlncli), *.mdb-ado-Jet.OLEDB.4.0,SQLite 3.8.7, Firebird 3.0 Beta r31557.

Michal

[miab3]

@EgonHugeist, @mdaems, All

Zeos7.3-beta branches_ testing_Revision 3626 NEW OleDB for Windows(MSSQL):
http://svn.code.sf.net/p/zeoslib/code-0 ... sting-7.3/
compiles and runs on (I have tested):

- Delphi XE2 32/64 on Windows 8.1-64,
- Lazarus 1.4RC2-32 on Windows 7-32,
- Lazarus 32(fpc 3.1.1) - CodeTyphon ver 5.30testing on Windows 7-64.
AND:
- Lazarus 1.4RC3-32 on Windows 7-32.

Michal

[miab3]

@EgonHugeist, @mdaems, All

Zeos7.2-beta branches_ testing_Revision 3619/r3627 (ADO in Windows):
http://svn.code.sf.net/p/zeoslib/code-0 ... sting-7.2/
and
Zeos7.3-beta branches_ testing_Revision 3627 (ADO and NEW OleDB in Windows(MSSQL)):
http://svn.code.sf.net/p/zeoslib/code-0 ... sting-7.3/
compiles and runs on (I have tested):

- Lazarus 1.4-32(final) on Windows 7-32,
- Lazarus 1.4-64(final) on Windows 8.1-64.

(For ZEOS 7.3-Win64 3x{NativeUInt} in ZDbcOleDBUtils.pas)

NEW 2015.05.19:
Zeos7.2-beta branches_ testing_Revision 3628
http://svn.code.sf.net/p/zeoslib/code-0 ... sting-7.2/
also runs.

Michal

[miab3]

@EgonHugeist, @mdaems, All,

1. There have been considerable changes in Data.DB.pas in Delphi XE7(XE6-XE8?)
and AppendRecord don't work in ZEOS 7.2/7.3
but SetFields should work eg.:

Code: Select all

ZTable1.Insert; // ZTable1.Append;
ZTable1.SetFields(['30001','2015-05-05','1']);
ZTable1.Post;

2. For compatibility with Delphi XE8 should to be added in Zeos.inc:

Code: Select all

// Compilation directives for Delphi XE8 by miab3
{$IFDEF VER290}
  {$DEFINE VER200BELOW} // Used in code
  {$DEFINE DELPHI12_UP} // Used in code
  {$DEFINE DELPHI14_UP} // used in tests only
  {$DEFINE DELPHI15_UP} // Used in zeos.inc only
  {$DEFINE DELPHI16_UP} // Used in zeos.inc only
  {$DEFINE DELPHI17_UP} // Used in zeos.inc only
  {$DEFINE DELPHI18_UP} // Used in zeos.inc only
  {$DEFINE DELPHI19_UP} // Used in zeos.inc only
  {$DEFINE DELPHI20_UP} //By dieletro Used in zeos.inc only
  {$DEFINE DELPHI21_UP} //Used in zeos.inc only
  {$DEFINE DELPHI22_UP} //By miab3 Used in zeos.inc only
  {$DEFINE BDS4_UP} // Used in code
  {$DEFINE BDS5_UP} // Used in code
{$ENDIF}

Michal

[Hereibi]

Hello friends ..
development time by'm not able to open the tables, procedures or PostgreSQL 9.4.2 image attached.

[miab3]

@Hereibi,

Out of curiosity, I installed Delphi XE8 Trial .
With PostgreSQL 9.3 works without a problem:

pg93.jpg

Do you fully installed last ZEOS 7.2 build 3628:
http://svn.code.sf.net/p/zeoslib/code-0 ... sting-7.2/
and is appropriate for a server, client PostgreSQL?

Michal

[Hereibi]

My setup:
Delphi XE8;
PostgreSQL 9.4.2 x86-64; and
Windows 10 - Build 10074.

Thank you for your help.
Will install the x86-64 version 9.3.7.1 PostgreSQL, and see if it works.