Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi IB6.1 über dbExpress TSQLDataset Fehler, warum? (https://www.delphipraxis.net/119857-ib6-1-ueber-dbexpress-tsqldataset-fehler-warum.html)

hirsch 2. Sep 2008 10:52

Datenbank: InterBase • Version: 6.1 • Zugriff über: dbExpress

IB6.1 über dbExpress TSQLDataset Fehler, warum?
 
Liebe Wissende,
Ich habe da eine IB-Database Ver. 6.1. Darin gibt es eine Tabelle mit Namen 'Teil2710'.
Ich nutze RAD-Studio 2007 und mach ne Formularanwendung und füge dann den TDataModule hinzu.
Darin mache ich eine TSQLConnection auf, verbinde die mit Der Datenbank
Treibername: Interbase
Database: Server:D:\Programme\Borland\interbase\DB.GDB
RoleName:RoleName
User_Name: sysdba
Password:masterkey
ServerCharset: WIN1252
SQLDialect:3
LocaleCode:0000
BlobSize:-1
CommitRetain: False
WaitOnLocks: True
InterbaseTransIsolation: ReadCommited
TrimChar: False

Ok, das funktioniert soweit.
Nun füge ich einen TSQLDataSet ein und verbinde den unter SQLConnection auf das obige Objekt.
Unter CommandText schreibe ich: SELECT * FROM TEIL2710 WHERE ART_NR=100600
Jetzt versuche ich das TSQLDataSet.Active auf True zu setzen und bekomme folgenden Fehler:

Token unknown - line 1, char 45 WHEN

Dann kann ich Details öffen und darin steht:
[0FBADF7D]{DbxCommonDriver100.bpl} Dbxcommon.TDBXContext.Error + $51
[0FCC3002]{DbxDynalinkDriver100.bpl} Dbxdynalink.TDBXMethodTable.RaiseError + $10E
[0FCC392F]{DbxDynalinkDriver100.bpl} Dbxdynalink.TDBXDynalinkCommand.CheckResult + $13
[0FCC3CAB]{DbxDynalinkDriver100.bpl} Dbxdynalink.TDBXDynalinkCommand.DerivedPrepare + $47
[0FBABEBD]{DbxCommonDriver100.bpl} Dbxcommon.TDBXCommand.Prepare + $51
[0FBABDEA]{DbxCommonDriver100.bpl} Dbxcommon.TDBXCommand.CommandExecuting + $2E
[0FBABCB3]{DbxCommonDriver100.bpl} Dbxcommon.TDBXCommand.ExecuteQuery + $4F
[0FBB218F]{DbxCommonDriver100.bpl} Dbxdelegate.TDBXMorphicCommand.ExecuteQuery + $F
[0FC82931]{DbxReadOnlyMetaData100.bpl} Dbxmetadatacommandfactory.TDBXDataExpressProviderC ontext.ExecuteQuery + $4D
[0FC22B46]{DbxReadOnlyMetaData100.bpl} Dbxmetadatareader.TDBXBaseMetaDataReader.FetchInde xes + $132
[0FC216D8]{DbxReadOnlyMetaData100.bpl} Dbxmetadatareader.TDBXBaseMetaDataReader.FetchColl ection + $2F8
[0FC814B9]{DbxReadOnlyMetaData100.bpl} Dbxmetadatacommand.TDBXMetaDataCommand.DerivedExec uteQuery + $29
[0FBABCBC]{DbxCommonDriver100.bpl} Dbxcommon.TDBXCommand.ExecuteQuery + $58
[0FBB218F]{DbxCommonDriver100.bpl} Dbxdelegate.TDBXMorphicCommand.ExecuteQuery + $F
[0FB818C9]{dbexpress4100.bpl} SqlExpr.TCustomSQLDataSet.OpenSchema (Line 6142, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 122) + $B
[0FB7F9F3]{dbexpress4100.bpl} SqlExpr.TCustomSQLDataSet.ExecuteStatement (Line 5473, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 51) + $5
[0FB7C366]{dbexpress4100.bpl} SqlExpr.TCustomSQLDataSet.InternalOpen (Line 4020, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 1) + $2
[203AF4FD]{dbrtl100.bpl} DB.TDataSet.DoInternalOpen (Line 9262, "DB.pas" + 1) + $A
[203AF5B6]{dbrtl100.bpl} DB.TDataSet.OpenCursor (Line 9290, "DB.pas" + 2) + $B
[0FB7C4B0]{dbexpress4100.bpl} SqlExpr.TCustomSQLDataSet.OpenCursor (Line 4052, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 10) + $4
[203AF471]{dbrtl100.bpl} DB.TDataSet.SetActive (Line 9244, "DB.pas" + 11) + $9
[0FB7909E]{dbexpress4100.bpl} SqlExpr.TSQLConnection.OpenSchemaTable (Line 2813, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 9) + $7
[0FB807AD]{dbexpress4100.bpl} SqlExpr.TCustomSQLDataSet.AddIndexDefs (Line 5808, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 9) + $1F
[0FB81F18]{dbexpress4100.bpl} SqlExpr.TCustomSQLDataSet.PSGetKeyFieldsW (Line 6315, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 7) + $6
[203AFA73]{dbrtl100.bpl} DB.SetKeyFields (Line 9443, "DB.pas" + 1) + $16
[203AFC58]{dbrtl100.bpl} DB.TDataSet.CreateFields (Line 9474, "DB.pas" + 14) + $1C
[0FB7C3BB]{dbexpress4100.bpl} SqlExpr.TCustomSQLDataSet.InternalOpen (Line 4030, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 11) + $D
[203AF4FD]{dbrtl100.bpl} DB.TDataSet.DoInternalOpen (Line 9262, "DB.pas" + 1) + $A
[203AF5B6]{dbrtl100.bpl} DB.TDataSet.OpenCursor (Line 9290, "DB.pas" + 2) + $B
[0FB7C4B0]{dbexpress4100.bpl} SqlExpr.TCustomSQLDataSet.OpenCursor (Line 4052, "..\..\..\..\..\src\pas\dbx\vcl\SqlExpr.pas" + 10) + $4
[203AF471]{dbrtl100.bpl} DB.TDataSet.SetActive (Line 9244, "DB.pas" + 11) + $9
[2002AE7E]{rtl100.bpl } TypInfo.SetOrdProp (Line 1316, "common\TypInfo.pas" + 27) + $0
[20D29FD6]{designide100.bpl} DesignEditors.TPropertyEditor.SetOrdValue (Line 841, "DesignEditors.pas" + 2) + $E
[20D2B073]{designide100.bpl} DesignEditors.TEnumProperty.SetValue (Line 1401, "DesignEditors.pas" + 5) + $4
[20E0F480]{vclide100.bpl} IDEInspListBox.TInspListBox.SetPropValue (Line 1131, "ideinsplistbox.pas" + 40) + $24
[20E10AB0]{vclide100.bpl} IDEInspListBox.TInspListBox.ListAccept (Line 1640, "ideinsplistbox.pas" + 6) + $7
[20E0C402]{vclide100.bpl} IDEListBtns.TListButton.CloseUp (Line 757, "IDEListBtns.pas" + 14) + $12
[20E0B074]{vclide100.bpl} IDEListBtns.TPopupListBox.WMLButtonUp (Line 173, "IDEListBtns.pas" + 2) + $2D
[2013C527]{vcl100.bpl } Controls.TControl.WndProc (Line 5146, "Controls.pas" + 83) + $6
[20040E4C]{rtl100.bpl } Classes.StdWndProc (Line 11583, "common\Classes.pas" + 8) + $0
[2000A332]{rtl100.bpl } System.TInterfacedObject._AddRef (Line 17972, "sys\system.pas" + 1) + $4
[20006894]{rtl100.bpl } System.TObject.GetInterface (Line 9003, "sys\system.pas" + 8) + $A
[200068C6]{rtl100.bpl } System.TObject.GetInterface (Line 9009, "sys\system.pas" + 14) + $10
[2014010B]{vcl100.bpl } Controls.TWinControl.IsControlMouseMsg (Line 7168, "Controls.pas" + 1) + $9
[2000A30F]{rtl100.bpl } System.TInterfacedObject.QueryInterface (Line 17964, "sys\system.pas" + 1) + $8
[20A616CA]{coreide100.bpl} DocModul.TCodeIDocModule.QueryInterface (Line 2559, "DocModul.pas" + 8) + $9
[201406A7]{vcl100.bpl } Controls.TWinControl.WndProc (Line 7304, "Controls.pas" + 111) + $6
[2004199A]{rtl100.bpl } SyncObjs.TCriticalSection.Leave (Line 366, "common\SyncObjs.pas" + 0) + $2
[20A6179C]{coreide100.bpl} DocModul.TCodeIDocModule.QueryInterface (Line 2583, "DocModul.pas" + 32) + $0
[20A617B9]{coreide100.bpl} DocModul.TCodeIDocModule.QueryInterface (Line 2585, "DocModul.pas" + 34) + $10
[52051A73]{idectrls100.bpl} IDEWideStdCtrls.TWideCustomListBox.WndProc (Line 4644, "IDEWideStdCtrls.pas" + 43) + $6
[2013FDD0]{vcl100.bpl } Controls.TWinControl.MainWndProc (Line 7073, "Controls.pas" + 3) + $6
[20040E4C]{rtl100.bpl } Classes.StdWndProc (Line 11583, "common\Classes.pas" + 8) + $0
[20163691]{vcl100.bpl } Forms.TApplication.StopHintTimer (Line 8673, "Forms.pas" + 3) + $6
[201625E8]{vcl100.bpl } Forms.TApplication.ProcessMessage (Line 8103, "Forms.pas" + 21) + $1
[2016262A]{vcl100.bpl } Forms.TApplication.HandleMessage (Line 8124, "Forms.pas" + 1) + $4
[2016291F]{vcl100.bpl } Forms.TApplication.Run (Line 8223, "Forms.pas" + 20) + $3
[0042297A]{bds.exe } bds.bds (Line 195, "" + 7) + $7


Was mache ich hier falsch?

Ich freue mich auf jede Antwort.

DeddyH 2. Sep 2008 12:10

Re: IB6.1 über dbExpress TSQLDataset Fehler, warum?
 
Hast Du versehentlich WHEN statt WHERE geschrieben?

hirsch 5. Sep 2008 09:53

Re: IB6.1 über dbExpress TSQLDataset Fehler, warum?
 
Hallo DeddyH

nein, leider nicht
da steht where
SELECT * FROM TEIL2710 WHERE ART_NR=100600

ist das vielleicht ein BUG?
Trotzdem danke für Deine IDee

hirsch 10. Sep 2008 10:20

Re: IB6.1 über dbExpress TSQLDataset Fehler, warum?
 
nun, der DBX-Zugriff scheint unter 2007 nicht zu funktionieren.
Habe es nun über
TIBDatabase->TIBTransaction->TIBQuery->TDatasource

gemacht. Das funktioniert.
Ist das DBX kaputt?


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:30 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz