FIBplus, Fehler "Field size too small" bei pFIBquery

[Warp]

Hallo zusammen,

ich probiere gerade den Zugriff auf eine Firebeird DB über FIBplus aus. Die Datenbank ist unter Firebird V2.1.1 erstellt und der Zugriff erfolgt mit den FIBplus-Komponenten (Devrace Download "fibplus_6_9_5_for_2009_basic.Zip und zugehörige PAS Dateien für D2009-BCB2009).
Hinweis: Die Komponenten weisen in ihren Verison Properties 7.0.1078 Tiburon beta aus, der Download ist jedoch ""fibplus_6_9_5_for_2009_basic.Zip, ff." aus.

Der Connect über pFIBDatabase klappt noch. Jedoch bekomme ich eine Fehlermeldung "Field size too small. qryAllTable.Names" sobald ich einen Rechtsklick auf die zugeordnete pIFBQuery - Komponente ausführe und dann im Popup den Punkt "Edit SQL Text" klicke. Im Forum von Devrace habe ich diesbezüglich nichts gefunden.


Die DB hat nur eine einzige, einfache, Tabelle, die nur zu Testzwecken gebaut ist:


CREATE TABLE MASTER (
LANGUAGE INTEGER,
LANGUAGE_NAME VARCHAR(25)
);



Ich habe das dann auch noch mit einer Firebid V1 (V6.0.2) Datenbank (andere DB mit ca. 30 Tabellen) probiert und auch dort ist es das gleiche Problem.

Über IBExpert komme ich an beide Datenbanken problemlos ran und mein D2009pro hat den aktuellen Update-Level.

Um Fragen zuvor zu kommen: Es laufen zwei Firebird Server auf dem System (V1 (6.02, Port 3050) und V2 (V2.1.1, Port 3052)

Delphi bringt die folgende Debug-Liste in der Fehlermeldung :

Zitat:

[098B3B79]{FIBPlus2009.bpl} Fib.FIBError + $51
[0988BF7D]{FIBPlus2009.bpl} Fibdataset.TFIBCustomDataSet.GetFieldData + $2D1
[50494F29]{dbrtl120.bpl} DB.TDataSet.GetFieldData (Line 10974, "DB.pas" + 2) + $9
[501D5397]{vcl120.bpl } Controls.TWinControl.DefaultHandler (Line 9377, "Controls.pas" + 30) + $17
[501D0C0E]{vcl120.bpl } Controls.TControl.WndProc (Line 6642, "Controls.pas" + 91) + $6
[20B89C5E]{designide120.bpl} DeskUtil.SetFocusHook (Line 435, "DeskUtil.pas" + 4) + $C
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[211D8B83]{vclactnband120.bpl} ActnMenus.CallWindowHook (Line 741, "ActnMenus.pas" + 20) + $F
[500477CC]{rtl120.bpl } Classes.TThreadList.UnlockList (Line 3781, "Classes.pas" + 0) + $4
[5012C8FC]{vcl120.bpl } Graphics.FreeMemoryContexts (Line 6830, "Graphics.pas" + 12) + $5
[501D49B4]{vcl120.bpl } Controls.TWinControl.MainWndProc (Line 9065, "Controls.pas" + 3) + $6
[501D49C9]{vcl120.bpl } Controls.TWinControl.MainWndProc (Line 9068, "Controls.pas" + 6) + $0
[50058938]{rtl120.bpl } Classes.StdWndProc (Line 12723, "Classes.pas" + 8) + $0
[20B89C5E]{designide120.bpl} DeskUtil.SetFocusHook (Line 435, "DeskUtil.pas" + 4) + $C
[211D8B83]{vclactnband120.bpl} ActnMenus.CallWindowHook (Line 741, "ActnMenus.pas" + 20) + $F
[20B89C5E]{designide120.bpl} DeskUtil.SetFocusHook (Line 435, "DeskUtil.pas" + 4) + $C
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[501D0834]{vcl120.bpl } Controls.TControl.Perform (Line 6420, "Controls.pas" + 10) + $8
[501D7FBD]{vcl120.bpl } Controls.TWinControl.CMInvalidate (Line 11247, "Controls.pas" + 3) + $13
[501D0C0E]{vcl120.bpl } Controls.TControl.WndProc (Line 6642, "Controls.pas" + 91) + $6
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[501D5397]{vcl120.bpl } Controls.TWinControl.DefaultHandler (Line 9377, "Controls.pas" + 30) + $17
[50889D9E]{vcldb120.bpl} DBGrids.TCustomDBGrid.DefaultHandler (Line 2498, "dbgrids.pas" + 1) + $4
[501D0C0E]{vcl120.bpl } Controls.TControl.WndProc (Line 6642, "Controls.pas" + 91) + $6
[501D7FA1]{vcl120.bpl } Controls.TWinControl.CMInvalidate (Line 11245, "Controls.pas" + 1) + $2
[501D0C0E]{vcl120.bpl } Controls.TControl.WndProc (Line 6642, "Controls.pas" + 91) + $6
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[501D0834]{vcl120.bpl } Controls.TControl.Perform (Line 6420, "Controls.pas" + 10) + $8
[501D53EB]{vcl120.bpl } Controls.DoControlMsg (Line 9405, "Controls.pas" + 12) + $11
[501D7144]{vcl120.bpl } Controls.TWinControl.WMParentNotify (Line 10543, "Controls.pas" + 1) + $15
[501D0C0E]{vcl120.bpl } Controls.TControl.WndProc (Line 6642, "Controls.pas" + 91) + $6
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[20B89C5E]{designide120.bpl} DeskUtil.SetFocusHook (Line 435, "DeskUtil.pas" + 4) + $C
[501F0FA4]{vcl120.bpl } Forms.TCustomForm.WndProc (Line 3902, "Forms.pas" + 191) + $5
[501D0834]{vcl120.bpl } Controls.TControl.Perform (Line 6420, "Controls.pas" + 10) + $8
[501D7FBD]{vcl120.bpl } Controls.TWinControl.CMInvalidate (Line 11247, "Controls.pas" + 3) + $13
[501D0C0E]{vcl120.bpl } Controls.TControl.WndProc (Line 6642, "Controls.pas" + 91) + $6
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[211D8B83]{vclactnband120.bpl} ActnMenus.CallWindowHook (Line 741, "ActnMenus.pas" + 20) + $F
[500477CC]{rtl120.bpl } Classes.TThreadList.UnlockList (Line 3781, "Classes.pas" + 0) + $4
[5012C8FC]{vcl120.bpl } Graphics.FreeMemoryContexts (Line 6830, "Graphics.pas" + 12) + $5
[501D49B4]{vcl120.bpl } Controls.TWinControl.MainWndProc (Line 9065, "Controls.pas" + 3) + $6
[501D49C9]{vcl120.bpl } Controls.TWinControl.MainWndProc (Line 9068, "Controls.pas" + 6) + $0
[50058938]{rtl120.bpl } Classes.StdWndProc (Line 12723, "Classes.pas" + 8) + $0
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[501D0834]{vcl120.bpl } Controls.TControl.Perform (Line 6420, "Controls.pas" + 10) + $8
[501D7FBD]{vcl120.bpl } Controls.TWinControl.CMInvalidate (Line 11247, "Controls.pas" + 3) + $13
[501D0C0E]{vcl120.bpl } Controls.TControl.WndProc (Line 6642, "Controls.pas" + 91) + $6
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[501D0834]{vcl120.bpl } Controls.TControl.Perform (Line 6420, "Controls.pas" + 10) + $8
[501D7FBD]{vcl120.bpl } Controls.TWinControl.CMInvalidate (Line 11247, "Controls.pas" + 3) + $13
[501D0C0E]{vcl120.bpl } Controls.TControl.WndProc (Line 6642, "Controls.pas" + 91) + $6
[501D82D7]{vcl120.bpl } Controls.TWinControl.GetClientRect (Line 11382, "Controls.pas" + 1) + $9
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[501D0834]{vcl120.bpl } Controls.TControl.Perform (Line 6420, "Controls.pas" + 10) + $8
[501D7FBD]{vcl120.bpl } Controls.TWinControl.CMInvalidate (Line 11247, "Controls.pas" + 3) + $13
[501D0C0E]{vcl120.bpl } Controls.TControl.WndProc (Line 6642, "Controls.pas" + 91) + $6
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[501D5397]{vcl120.bpl } Controls.TWinControl.DefaultHandler (Line 9377, "Controls.pas" + 30) + $17
[501D0834]{vcl120.bpl } Controls.TControl.Perform (Line 6420, "Controls.pas" + 10) + $8
[501D7FDF]{vcl120.bpl } Controls.TWinControl.CMInvalidate (Line 11250, "Controls.pas" + 6) + $17
[501D7FF4]{vcl120.bpl } Controls.TWinControl.CMInvalidate (Line 11253, "Controls.pas" + 9) + $2
[501D0C0E]{vcl120.bpl } Controls.TControl.WndProc (Line 6642, "Controls.pas" + 91) + $6
[50006F53]{rtl120.bpl } System.TObject.Dispatch (Line 10314, "System.pas" + 8) + $0
[501D0C0E]{vcl120.bpl } Controls.TControl.WndProc (Line 6642, "Controls.pas" + 91) + $6
[501D82D7]{vcl120.bpl } Controls.TWinControl.GetClientRect (Line 11382, "Controls.pas" + 1) + $9
[502062D0]{vcl120.bpl } Grids.TCustomGrid.UpdateScrollRange (Line 3416, "Grids.pas" + 1) + $13
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[501D8659]{vcl120.bpl } Controls.TWinControl.UpdateBounds (Line 11553, "Controls.pas" + 29) + $2
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[50201FD6]{vcl120.bpl } Grids.ModifyExtents (Line 1005, "Grids.pas" + 41) + $15
[501D0834]{vcl120.bpl } Controls.TControl.Perform (Line 6420, "Controls.pas" + 10) + $8
[50006EA8]{rtl120.bpl } System.@CallDynaInst (Line 10189, "System.pas" + 3) + $0
[50204AA4]{vcl120.bpl } Grids.DoChange (Line 2628, "Grids.pas" + 34) + $12
[5001A730]{rtl120.bpl } SysUtils.Trim (Line 5372, "SysUtils.pas" + 9) + $10
[5048628D]{dbrtl120.bpl} DB.TField.GetData (Line 4346, "DB.pas" + 8) + $A
[0987AAFC]{FIBPlus2009.bpl} Fibdataset.TFIBStringField.IsDBKey + $38
[0987AD90]{FIBPlus2009.bpl} Fibdataset.TFIBStringField.GetValue + $7C
[0987ABF7]{FIBPlus2009.bpl} Fibdataset.TFIBStringField.GetAsString + $1F
[50487A89]{dbrtl120.bpl} DB.TStringField.GetText (Line 5093, "DB.pas" + 3) + $7
[50486392]{dbrtl120.bpl} DB.TField.GetEditText (Line 4391, "DB.pas" + 4) + $8
[5088D5C6]{vcldb120.bpl} DBGrids.TCustomDBGrid.UpdateActive (Line 3946, "dbgrids.pas" + 11) + $9
[5088D72E]{vcldb120.bpl} DBGrids.TCustomDBGrid.UpdateRowCount (Line 3976, "dbgrids.pas" + 13) + $2
[50889D01]{vcldb120.bpl} DBGrids.TCustomDBGrid.CreateWnd (Line 2475, "dbgrids.pas" + 7) + $3
[501D43FE]{vcl120.bpl } Controls.TWinControl.CreateHandle (Line 8853, "Controls.pas" + 3) + $4
[501D46C4]{vcl120.bpl } Controls.TWinControl.UpdateShowing (Line 8976, "Controls.pas" + 7) + $11
[501D46F2]{vcl120.bpl } Controls.TWinControl.UpdateShowing (Line 8979, "Controls.pas" + 10) + $10
[501D486C]{vcl120.bpl } Controls.TWinControl.UpdateControlState (Line 9023, "Controls.pas" + 21) + $3
[501D744E]{vcl120.bpl } Controls.TWinControl.CMVisibleChanged (Line 10730, "Controls.pas" + 3) + $2
[501D0C0E]{vcl120.bpl } Controls.TControl.WndProc (Line 6642, "Controls.pas" + 91) + $6
[501F6FB7]{vcl120.bpl } Forms.TScreen.GetCustomForms (Line 7520, "Forms.pas" + 1) + $5
[501F7BF6]{vcl120.bpl } Forms.AlignWork (Line 8124, "Forms.pas" + 3) + $8
[501F7C3C]{vcl120.bpl } Forms.TScreen.AlignForms (Line 8131, "Forms.pas" + 1) + $1
[501F7D07]{vcl120.bpl } Forms.TScreen.AlignForm (Line 8157, "Forms.pas" + 8) + $8
[501F7D27]{vcl120.bpl } Forms.TScreen.AlignForm (Line 8160, "Forms.pas" + 11) + $3
[501D529B]{vcl120.bpl } Controls.TWinControl.WndProc (Line 9336, "Controls.pas" + 136) + $6
[501F5B0D]{vcl120.bpl } Forms.TCustomForm.RequestAlign (Line 6640, "Forms.pas" + 1) + $7
[501D7A9A]{vcl120.bpl } Controls.TWinControl.SetBounds (Line 11048, "Controls.pas" + 23) + $4
[501F6B33]{vcl120.bpl } Forms.TMonitor.GetWorkareaRect (Line 7297, "Forms.pas" + 6) + $C
[501F0FA4]{vcl120.bpl } Forms.TCustomForm.WndProc (Line 3902, "Forms.pas" + 191) + $5
[501F2640]{vcl120.bpl } Forms.TCustomForm.SetWindowToMonitor (Line 4701, "Forms.pas" + 50) + $3D
[501D0834]{vcl120.bpl } Controls.TControl.Perform (Line 6420, "Controls.pas" + 10) + $8
[501CF26E]{vcl120.bpl } Controls.TControl.SetVisible (Line 5473, "Controls.pas" + 5) + $C
[501F089A]{vcl120.bpl } Forms.TCustomForm.SetVisible (Line 3637, "Forms.pas" + 8) + $4
[501F55D3]{vcl120.bpl } Forms.TCustomForm.Show (Line 6488, "Forms.pas" + 1) + $4
[501F5809]{vcl120.bpl } Forms.TCustomForm.ShowModal (Line 6553, "Forms.pas" + 24) + $3
[09A4011F]{FIBPlusEditors2009.bpl} Fibsqleditor.ShowSQLEdit + $EB
[09A49BA9]{FIBPlusEditors2009.bpl} Regfibpluseditors.TpFIBQueryEditor.ExecuteVerb + $35
[514A931E]{vcldesigner120.bpl} VCLSurface.TVclDesignSurface.ComponentVerb (Line 2477, "VCLSurface.pas" + 3) + $B
[501C3CEF]{vcl120.bpl } Menus.TMenuItem.Click (Line 2515, "Menus.pas" + 19) + $8
[501C5343]{vcl120.bpl } Menus.TMenu.DispatchCommand (Line 3378, "Menus.pas" + 5) + $2
[501C659A]{vcl120.bpl } Menus.TPopupList.WndProc (Line 4484, "Menus.pas" + 4) + $E
[501C64E9]{vcl120.bpl } Menus.TPopupList.MainWndProc (Line 4459, "Menus.pas" + 2) + $5
[50058938]{rtl120.bpl } Classes.StdWndProc (Line 12723, "Classes.pas" + 8) + $0
[501F9EC7]{vcl120.bpl } Forms.TApplication.ProcessMessage (Line 9613, "Forms.pas" + 23) + $1
[501F9F0A]{vcl120.bpl } Forms.TApplication.HandleMessage (Line 9643, "Forms.pas" + 1) + $4
[501FA235]{vcl120.bpl } Forms.TApplication.Run (Line 9780, "Forms.pas" + 26) + $3
[004259D2]{bds.exe } bds.bds (Line 196, "" + 7) + $7

Hat jemand eine Ahnung was der Grund hierfür sein kann?

[Chemiker]

Hallo Warp,

bekommst Du den mit pFIBDataset eine Verbindung zur Deiner Datenbank?

Mit diesem kleinen DEMO-Prg kann man eine Verbindung zur Datenbank herzustellen.

FIBPlus-Demo
Bis bald Chemiker

[Warp]

Hallo Chemiker,

habe gerade Deine DEMO ausprobiert.

Die Verbindung funktioniert damit für beide Firebird Server. Heisst: Firebird V1 (6.0.2) Datenbank connected und lässt sich per in Memo1 eingegebenen SQL - Befehlen steuern, wie auch die Firebird V2 (2.1.1) Datenbank.

Also liegt es wohl nicht an Installationsproblemen, sondern an irgend etwas innerhalb der FIBplus Komponenten.

Jedenfalls habe ich das mit dem SQL Text editieren auch noch bei einer auf der Form platzierten pIFBDataset-Komponente ausprobiert (SQL-Anweisungen im Designer bearbeiten). Auch hier kommt die gleiche Fehlermeldung wie bei der pFIBQuery-Komponente.

Heisst das jetzt, dass man die SQL's in pIFBplus nur coden kann (oder zur Laufzeit lädt; flexibler wäre man damit ja eigentlich sowieso...)? Nur wenn eine solche Design Time Funktionalität eingebaut ist sollte sie meiner Meinung nach auch funktionieren...

Gruss,

Warp

[Chemiker]

Hallo Warp,

also normalerweise kann man auch direkt von der Komponenten aus einen SQL-Befehl absetzen.
Was steht zum Beispiel bei Deiner pFIBDataSet-Komponente unter SQLs ?
Sind die SQLs schon vorbelegt?
Alles was man ins Memo-Feld als Select-Befehle eingibt kann auch per Quell-Code eingeben werden.

Bis bald Chemiker

[Warp]

Hallo Chemiker,

ja das ist schon klar, deswegen ja auch mein Kommentar zu der Design Time-Funktionalität.
An die SQL's komme ich gar nicht ran. Auch hier kommt sofort die bekannte Fehlermeldung, wenn im Objekinspektor der Klick auf die SQL's erfolgt.
Soweit ich die Fehlermeldung zurück verfolgen kann, liegt es wohl in der FIBplus Unit fraSQLEdit. Ob es jetzt dann ein Bug ist oder ein Property, was noch angepasst werden muss, weiss ich nicht.

Danke und Gruss,

Warp

[Hansa]

Sieht so aus, als ob das fibplus-editors package noch nicht installiert wurde. Eventuell auch falsche reihenfolge bei der installation

[Warp]

Das Package "FIBplusEditors2009" ist installiert. Jedenfalls funktioniert auch der "Connection properties" Editor der Komponente "pFIBDatabase".

Bei der Installation habe ich mich da an die Anweisungen in der "Install.rtf" von FIBplus gehalten:

Zitat:

3. Delphi/C++ Builder 2009 installation / upgrade.

a) Unzip fibplus_6_9_5_for_2009_basic.zip to your FIBPlus Sources directory (for example, “c:\fibplus”).

b) Place downloaded FIBDatabase.pas, FIBDataset.pas, FIBQuery.pas and FIBSQLMonitor.pas to “\sources” sub-directory (for example, “c:\ Documents and Settings/User/My Documents/Borland Studio Projects/FIBPlus/”).

c) Select "Tools" | "Options…" | "Environment Options" | "Delphi Options" on the menu bar. Go to "Library – Win 32" menu item and add the full path of your FIBPlus Sources directory to the Library Path if you have not already done so. The Library Path field should then look similar to this:

$(BDS)\Lib; c:\ Documents and Settings/User/My Documents/Borland Studio Projects/fibplus/sources; c:\ Documents and Settings/User/My Documents/Borland Studio Projects/fibplus/sources/Editors

Click OK.

d) Select "File" | "Open..." on the menu bar. Set "Type of files" to Delphi package source, locate and select the FIBPlus2009.dpk package source file in your FIBPlus Sources directory, and click "Open".

e) A package editor window will appear. Click "Compile", then click "Install".

f) Close the package editor window. If you are asked if you want to save changes to the package, answer "No".

j) Repeat steps d) through f) with the FIBPlusEditors2009.dpk package.

h) Repeat steps d) through f) with the FIBDBMidas2009.dpk package.

Gruss,

Warp

[Hansa]

Installiere besser alles in ein Verzeichnis. Hierzu auch den entpackten Editor krempel auch da rein kopieren.

[Warp]

Ich habe das ganze jetzt als Ticket bei Devrace eingelastet. Mal sehen, was die dazu sagen.

Gruss,

Warp

[Hansa]

Kopiere besserdie paar dateien und fertig