Firebird Embedded + AUTOINC

[mkinzler]

Ich würde auch dann keines der von mir genannten Systeme verwenden. Aber das ist meine persönliche Meinung.

[Perlsau]

Eben Weshalb sollte man alte, unmoderne und unflexible Software einsetzen, wenn man ebenso auch neue, moderne und flexible Software haben kann? Wie so oft kann ich mich des Eindrucks nicht erwehren, daß auch in diesem Bereich mehr aus Gewohnheit für das Alte plädiert wird denn aus sachlicher Überzeugung.

[himitsu]

Zitat:

Frickelsystem

Das ist gut.

Irgendwie ignoriert das Ding sogar ein Order-By und macht einfach nicht.
Weder sortieren, noch eine Fehlermeldung.

Ist doch nur ein billiges VARCHAR-Feld und mit INTEGER ging es auch nicht.
Und am schrottigen Delphi-DBGrid kann es nicht liegen, da dieses weder Sortierung noch Filterung kennt. (ist auch wirklich im Query so unsortiert)



Da will man mal privat bissl rumspielen und dann funktioniert einfach nichts.

• DBImage versteht nur Bitmaps
• Die Sortierung funktioniert nicht
• und über Grids und schrottiges LiveBinding an Objectliste will ich nicht mehr nachdenken, drum wollte ich es jetzt mit einer "richtigen" DB versuchen

Hatte mit MySQL-Embedded angefangen, dann fielen mir wieder die Diskussionen vonwegen Lizenzen an und ich probierte mal das "coole" Firebird aus, was doch immer wieder gelobt wird.
Aber vielleicht liegt es ja auch am FireDAC, aber mit PgDAC hatte eigentlich nicht solche Probleme (nur hab ich diese DB hier nicht und das war auch noch nicht von Emba)

[Hansa]

Lass mal die ganze Delphi-Seite vorerst weg. Lege in IBExpert Tabelle an, einen Generator und einen BI-Trigger für die ID. Dann füge ein paar Datensätze ein und guck, ob die ID korrekt hochgezählt wird (also automatisch, nicht von Hand !!)

[Daniel]

@Himi:
Wie sortierst Du denn? FireBird kann das ganz hervorragend, sowohl bei Zahlen als auch bei Strings - auch unter Berücksichtigung von Ländercodes. Gleiches gilt für FireDAC.

[DeddyH]

Wenn der Stürmer nicht trifft, ist der Ball Schuld

[himitsu]

Eigentlich ganz normal.

SQL-Code:

SELECT *
FROM tabelle
ORDER BY spalte1, spalte2

Und probehalber auch

SQL-Code:

...
ORDER BY spalte1

...
ORDER BY spalte1 DESC

Als Ergebnis kommt aber immer die Erstellungsreihenfolge der Datensätze in der Tabelle raus.

Einfach mal alles Wichtige aus der DFM.
Im Code steht praktisch nur noch das Open.
Und in ".\Firebird Embeded" liegt der gesamte Inhalt der ZIP. (die Verzeichnisse sind aktuell aber absolute Pfade, damit ich die Connection auch in der IDE auf bekomm)

Code:

object FDPhysFBDriverLink: TFDPhysFBDriverLink
  DriverID = 'FirebirdEmbedded'
  VendorLib = '.\Firebird Embeded\fbembed.dll'
  Embedded = True
  Left = 64
  Top = 72
end
object FDConnection: TFDConnection
  Params.Strings = (
    'Database=.\database.ib'
    'Password=masterkey'
    'User_Name=sysdba'
    'CharacterSet=UTF8'
    'OpenMode=OpenOrCreate'
    'DriverID=FirebirdEmbedded')
  Connected = True
  LoginPrompt = False
  Left = 168
  Top = 72
end

object FDGUIxWaitCursor: TFDGUIxWaitCursor
  Provider = 'Forms'
  Left = 272
  Top = 72
end
object FDStanStorageBinLink: TFDStanStorageBinLink
  Left = 376
  Top = 72
end

object DBGridSeries: TDBGrid
  Left = 8
  Top = 483
  Width = 257
  Height = 118
  Anchors = [akLeft, akBottom]
  DataSource = DataSourceSeries
  Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
  TabOrder = 2
  TitleFont.Charset = DEFAULT_CHARSET
  TitleFont.Color = clWindowText
  TitleFont.Height = -11
  TitleFont.Name = 'Tahoma'
  TitleFont.Style = []
end

object FDQuerySeries: TFDQuery
  AfterScroll = FDQueryCountryAfterScroll
  FilterOptions = [foCaseInsensitive]
  IndexFieldNames = 'series_id'
  Connection = FDConnection
  UpdateOptions.AssignedValues = [uvGeneratorName]
  UpdateOptions.GeneratorName = 'euro_series_gen_id'
  UpdateOptions.UpdateTableName = 'euro_series'
  UpdateOptions.KeyFields = 'series_id'
  UpdateOptions.AutoIncFields = 'series_id'
  SQL.Strings = (
    'SELECT *'
    'FROM euro_series'
    'ORDER BY series_name, series_id')
  Left = 168
  Top = 128
  object FDQuerySeries_series_id: TIntegerField
    DisplayLabel = 'ID'
    DisplayWidth = 7
    FieldName = 'series_id'
    Origin = 'series_id'
    ReadOnly = True
    Required = True
  end

  ...

end;
object DataSourceSeries: TDataSource
  DataSet = FDQuerySeries
  Left = 168
  Top = 184
end

object DBNavigatorSeries: TDBNavigator
  Left = 115
  Top = 460
  Width = 150
  Height = 22
  DataSource = DataSourceSeries
  VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
  Anchors = [akLeft, akBottom]
  TabOrder = 3
end

[jobo]

Würd ich auch mal für ein Gerücht halten, dass FB nicht sortieren kann. Vielleicht ein Charset/Collate Problem?

Noch ein Gedanke zu Sequenzen:
Eine tabellenübergreifende ID per Sequenz ergibt immer leere Mengen, bei falschen Joins. Im Gegensatz zu fortlaufenden ID je Tabelle, falsche Joins spucken dann brav Schrott aus.
Zugegeben, Ursache ist ein falsches Select, aber ich finde den Effekt ganz nett.

[ATS3788]

Ich habe da noch eine Frage, aber davor Danke Perlsau so ist das ja echt

Muss ich in Firedac noch was eistellen mein counter zählt nicht

der ist bis jetzt ein einfaches

FDTable1COUNTER: TLargeintField;

was übersehe ich ?

[Hansa]

Erstelle einen Datenbank-Trigger und fertig.