[Delphi XE6] Querys, Sequince doesn't work

The forum for ZeosLib 7.2 Report problems. Ask for help, post proposals for the new version and Zeoslib 7.2 features here. This is a forum that will be edited once the 7.2.x version goes into RC/stable!!

My personal intention for 7.2 is to speed up the internals as optimal a possible for all IDE's. Hope you can help?! Have fun with testing 7.2
Post Reply
Alexandr1567
Fresh Boarder
Fresh Boarder
Posts: 5
Joined: 02.06.2014, 19:15

[Delphi XE6] Querys, Sequince doesn't work

Post by Alexandr1567 »

Greetings to all!

I have Delphi XE6 with installed ZEOS 7.2(Alpha) from svn.

I can't use TZquery(TZReadOnlyQuery) in run-time, and even in design-time!
Error message: "SQL error: SQL logic error or missing database: ."
Error stack:

Code: Select all

[167381F9]{ZComponent200.bpl} ZDbcSqLiteUtils.CheckSQLiteError$qqrx66System.%DelphiInterface$t38Zplainsqlitedriver.IZSQLitePlainDriver%pxvxipxcx29Zdbclogging.TZLoggingCategoryx31System.%AnsiStringT$us$i65535$%xp28Zcompatibility.TZConSettings (Line 250, "ZDbcSqLiteUtils.pas" + 14) + $50
[1673D7B0]{ZComponent200.bpl} ZDbcSqLiteStatement.TZSQLiteCAPIPreparedStatement.Prepare$qqrv (Line 602, "ZDbcSqLiteStatement.pas" + 2) + $2D
[1673D89F]{ZComponent200.bpl} ZDbcSqLiteStatement.TZSQLiteCAPIPreparedStatement.ExecuteQueryPrepared$qqrv (Line 619, "ZDbcSqLiteStatement.pas" + 2) + $5
[167A3B7F]{ZComponent200.bpl} ZAbstractRODataset.TZAbstractRODataset.CreateResultSet$qqrx20System.UnicodeStringi (Line 2118, "ZAbstractRODataset.pas" + 25) + $E
[16798E84]{ZComponent200.bpl} ZAbstractDataset.TZAbstractDataset.CreateResultSet$qqrx20System.UnicodeStringi (Line 330, "ZAbstractDataset.pas" + 1) + $D
[167A3CA8]{ZComponent200.bpl} ZAbstractRODataset.TZAbstractRODataset.InternalOpen$qqrv (Line 2147, "ZAbstractRODataset.pas" + 16) + $1F
[50BAFBF2]{dbrtl200.bpl} Data.DB.TDataSet.DoInternalOpen (Line 12590, "Data.DB.pas" + 2) + $4
[50BAFCA2]{dbrtl200.bpl} Data.DB.TDataSet.OpenCursor (Line 12619, "Data.DB.pas" + 3) + $0
[50BAFB59]{dbrtl200.bpl} Data.DB.TDataSet.SetActive (Line 12571, "Data.DB.pas" + 12) + $7
[5012B44A]{rtl200.bpl  } System.TypInfo.SetOrdProp (Line 2712, "System.TypInfo.pas" + 25) + $1
[0290BD52]{designide200.bpl} DesignEditors.TPropertyEditor.SetOrdValue (Line 839, "DesignEditors.pas" + 2) + $E
[0295741B]{designide200.bpl} VCLEditors.TBooleanProperty.MouseUp (Line 1899, "VCLEditors.pas" + 5) + $10
[212D19E9]{vclide200.bpl} PropBox.TCustomPropListBox.ItemMouseUp (Line 1631, "PropBox.pas" + 17) + $1B
[212D1BDF]{vclide200.bpl} PropBox.TCustomPropListBox.MouseUp (Line 1696, "PropBox.pas" + 1) + $D
[504F3584]{vcl200.bpl  } Vcl.Controls.TControl.DoMouseUp (Line 7476, "Vcl.Controls.pas" + 2) + $28
[504F3600]{vcl200.bpl  } Vcl.Controls.TControl.WMLButtonUp (Line 7489, "Vcl.Controls.pas" + 9) + $6
[212D73AC]{vclide200.bpl} IDEInspListBox.TInspListBox.WMLButtonUp (Line 1636, "IDEInspListBox.pas" + 3) + $4
[504F2BF5]{vcl200.bpl  } Vcl.Controls.TControl.WndProc (Line 7232, "Vcl.Controls.pas" + 91) + $6
[5005FCF0]{rtl200.bpl  } System.TMonitor.TryEnter (Line 17533, "System.pas" + 10) + $0
[5005F870]{rtl200.bpl  } System.TMonitor.Enter (Line 17226, "System.pas" + 4) + $2
[5005EE80]{rtl200.bpl  } System.TObject.GetInterface (Line 15953, "System.pas" + 8) + $A
[504F6F6F]{vcl200.bpl  } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 9815, "Vcl.Controls.pas" + 1) + $9
[504ED926]{vcl200.bpl  } Vcl.Controls.FindControl (Line 3561, "Vcl.Controls.pas" + 6) + $9
[504F7739]{vcl200.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10047, "Vcl.Controls.pas" + 153) + $6
(0003C0E0){CnWizards_DXE6.dll} [0DF4D0E0]
(0003C191){CnWizards_DXE6.dll} [0DF4D191]
[5005F870]{rtl200.bpl  } System.TMonitor.Enter (Line 17226, "System.pas" + 4) + $2
[5051AE6D]{vcl200.bpl  } Vcl.StdCtrls.TCustomListBox.WndProc (Line 7115, "Vcl.StdCtrls.pas" + 55) + $5
[504F6D80]{vcl200.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9759, "Vcl.Controls.pas" + 3) + $6
[50177B88]{rtl200.bpl  } System.Classes.StdWndProc (Line 17064, "System.Classes.pas" + 6) + $1
[0E01CAC6]{CnWizards_DXE6.dll} Unknown function at INITWIZARD0001 + $6CB4E
[506430DF]{vcl200.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10351, "Vcl.Forms.pas" + 23) + $1
[50643122]{vcl200.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10381, "Vcl.Forms.pas" + 1) + $4
[50643455]{vcl200.bpl  } Vcl.Forms.TApplication.Run (Line 10519, "Vcl.Forms.pas" + 26) + $3
Put TZConnection, TZquery on form.
For TZConnection:
Set protocol to "sqlite-3", set LibraryLocation to your sqlite3.dll, set "Database" to your sqlite DB. That's all.
Check "Connected" to true.
For TZquery:
Link it with TZConnection, put any 100500% valid SQL for database.
Try to set "Active" to true, you will be get an error like above.

Strange error. I do the same for TZTable, all works fine :?

This is most important problem...
:!:

The second problem with TZSiquince, that I found while trying make alive TZquery....
Put TConnection, TSequince on the form. Configute connection.
Linkup squince with TConnection. You will get this error:
Message: "Unsupported operation."
Stack:

Code: Select all

[15F8FE37]{ZDbc200.bpl } ZDbcConnection.TZAbstractConnection.RaiseUnsupportedException$qqrv (Line 879, "ZDbcConnection.pas" + 1) + $14
[15F902AE]{ZDbc200.bpl } ZDbcConnection.TZAbstractConnection.CreateSequence$qqrx20System.UnicodeStringi (Line 1118, "ZDbcConnection.pas" + 2) + $3
[16793319]{ZComponent200.bpl} ZSequence.TZSequence.GetSequence$qqrv (Line 169, "ZSequence.pas" + 4) + $1B
[16793480]{ZComponent200.bpl} ZSequence.TZSequence.SetConnection$qqrxp24Zconnection.TZConnection (Line 212, "ZSequence.pas" + 9) + $6
[5012B44E]{rtl200.bpl  } System.TypInfo.SetOrdProp (Line 2715, "System.TypInfo.pas" + 28) + $0
[0290BD52]{designide200.bpl} DesignEditors.TPropertyEditor.SetOrdValue (Line 839, "DesignEditors.pas" + 2) + $E
[0290DAF2]{designide200.bpl} DesignEditors.TComponentProperty.SetValue (Line 1827, "DesignEditors.pas" + 9) + $4
[212D52CB]{vclide200.bpl} IDEInspListBox.TInspListBox.SetPropValue (Line 786, "IDEInspListBox.pas" + 38) + $19
[212D68E0]{vclide200.bpl} IDEInspListBox.TInspListBox.ListAccept (Line 1298, "IDEInspListBox.pas" + 6) + $7
[212CC9DA]{vclide200.bpl} IDEListBtns.TListButton.CloseUp (Line 775, "IDEListBtns.pas" + 14) + $12
[212CB5C4]{vclide200.bpl} IDEListBtns.TPopupListBox.WMLButtonUp (Line 176, "IDEListBtns.pas" + 2) + $2D
[504F2BF5]{vcl200.bpl  } Vcl.Controls.TControl.WndProc (Line 7232, "Vcl.Controls.pas" + 91) + $6
[5005FCF0]{rtl200.bpl  } System.TMonitor.TryEnter (Line 17533, "System.pas" + 10) + $0
[5005F870]{rtl200.bpl  } System.TMonitor.Enter (Line 17226, "System.pas" + 4) + $2
[5005EE80]{rtl200.bpl  } System.TObject.GetInterface (Line 15953, "System.pas" + 8) + $A
[5005EEC9]{rtl200.bpl  } System.TObject.GetInterface (Line 15960, "System.pas" + 15) + $10
[5005FCF0]{rtl200.bpl  } System.TMonitor.TryEnter (Line 17533, "System.pas" + 10) + $0
[5005F870]{rtl200.bpl  } System.TMonitor.Enter (Line 17226, "System.pas" + 4) + $2
[5005EEC9]{rtl200.bpl  } System.TObject.GetInterface (Line 15960, "System.pas" + 15) + $10
[5005FCF0]{rtl200.bpl  } System.TMonitor.TryEnter (Line 17533, "System.pas" + 10) + $0
[5005F870]{rtl200.bpl  } System.TMonitor.Enter (Line 17226, "System.pas" + 4) + $2
[5005EEC9]{rtl200.bpl  } System.TObject.GetInterface (Line 15960, "System.pas" + 15) + $10
[504F6F6F]{vcl200.bpl  } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 9815, "Vcl.Controls.pas" + 1) + $9
[504F7739]{vcl200.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10047, "Vcl.Controls.pas" + 153) + $6
(0003C0E0){CnWizards_DXE6.dll} [0DF4D0E0]
(0003C191){CnWizards_DXE6.dll} [0DF4D191]
[5051AE6D]{vcl200.bpl  } Vcl.StdCtrls.TCustomListBox.WndProc (Line 7115, "Vcl.StdCtrls.pas" + 55) + $5
[504F6D80]{vcl200.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9759, "Vcl.Controls.pas" + 3) + $6
[50177B88]{rtl200.bpl  } System.Classes.StdWndProc (Line 17064, "System.Classes.pas" + 6) + $1
[0E01CAC6]{CnWizards_DXE6.dll} Unknown function at INITWIZARD0001 + $6CB4E
[506A301B]{vcl200.bpl  } Vcl.AppEvnts.TMultiCaster.GetAppEvents (Line 654, "Vcl.AppEvnts.pas" + 1) + $5
[50644441]{vcl200.bpl  } Vcl.Forms.TApplication.CancelHint (Line 11180, "Vcl.Forms.pas" + 6) + $D
[506430DF]{vcl200.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10351, "Vcl.Forms.pas" + 23) + $1
[50643122]{vcl200.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10381, "Vcl.Forms.pas" + 1) + $4
[50643455]{vcl200.bpl  } Vcl.Forms.TApplication.Run (Line 10519, "Vcl.Forms.pas" + 26) + $3
Link within component didn't brokes after closing the error.

How to solve that? Did any user have the very latest package with changes for XE6?

Thanks and happy coding! :mrgreen:
User avatar
EgonHugeist
Zeos Project Manager
Zeos Project Manager
Posts: 1936
Joined: 31.03.2011, 22:38

Re: [Delphi XE6] Querys, Sequince doesn't work

Post by EgonHugeist »

SQLITE does not support sequences.... Oracl, PostgrSQL and Firebird du support this
Best regards, Michael

You want to help? http://zeoslib.sourceforge.net/viewtopic.php?f=4&t=3671
You found a (possible) bug? Use the new bugtracker dude! http://sourceforge.net/p/zeoslib/tickets/

Image
Post Reply