Subject | Re: [IBO] generator increments by 3 |
---|---|
Author | René J. Belland |
Post date | 2003-12-31T05:04:42Z |
Hi Helen,
I am using Firebird 1.03, IBO 4.2.Ib. My code has no prepares.
Here is the text dfm:
object Form1: TForm1
Left = 310
Top = 211
Width = 870
Height = 601
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 184
Top = 184
Width = 32
Height = 13
Caption = 'Label1'
end
object Button1: TButton
Left = 200
Top = 120
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object IBOQuery1: TIBOQuery
Params = <>
DatabaseName = 'e;\herbdata\merlinsqldat.fdb'
IB_Connection = IB_Connection1
RecordCountAccurate = True
SQL.Strings = (
'select gen_id(lotidgen, 1) from rdb$database')
FieldOptions = []
Left = 184
Top = 48
object IBOQuery1GEN_ID: TLargeintField
FieldName = 'GEN_ID'
ReadOnly = True
Required = True
end
end
object IB_Session1: TIB_Session
AllowDefaultConnection = True
AllowDefaultTransaction = True
DefaultConnection = IB_Connection1
EditingColor = clYellow
InsertingColor = clLime
DeletingColor = clRed
SearchingColor = clAqua
ReadOnlyColor = clSilver
SelectedColor = clBlue
InvalidColor = clNone
PreparedColor = clGrayText
BrowsingColor = clWindow
StoreActive = False
Left = 112
Top = 32
end
object IB_Transaction1: TIB_Transaction
Isolation = tiCommitted
Left = 256
Top = 56
end
object IB_Connection1: TIB_Connection
DefaultTransaction = IB_Transaction1
LoginPrompt = True
SQLDialect = 3
Params.Strings = (
'PAGE SIZE=4096'
'SQL DIALECT=3'
'PATH=e:\herbdata\merlinsqldat.fdb')
Left = 80
Top = 104
end
end
I am using Firebird 1.03, IBO 4.2.Ib. My code has no prepares.
Here is the text dfm:
object Form1: TForm1
Left = 310
Top = 211
Width = 870
Height = 601
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 184
Top = 184
Width = 32
Height = 13
Caption = 'Label1'
end
object Button1: TButton
Left = 200
Top = 120
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object IBOQuery1: TIBOQuery
Params = <>
DatabaseName = 'e;\herbdata\merlinsqldat.fdb'
IB_Connection = IB_Connection1
RecordCountAccurate = True
SQL.Strings = (
'select gen_id(lotidgen, 1) from rdb$database')
FieldOptions = []
Left = 184
Top = 48
object IBOQuery1GEN_ID: TLargeintField
FieldName = 'GEN_ID'
ReadOnly = True
Required = True
end
end
object IB_Session1: TIB_Session
AllowDefaultConnection = True
AllowDefaultTransaction = True
DefaultConnection = IB_Connection1
EditingColor = clYellow
InsertingColor = clLime
DeletingColor = clRed
SearchingColor = clAqua
ReadOnlyColor = clSilver
SelectedColor = clBlue
InvalidColor = clNone
PreparedColor = clGrayText
BrowsingColor = clWindow
StoreActive = False
Left = 112
Top = 32
end
object IB_Transaction1: TIB_Transaction
Isolation = tiCommitted
Left = 256
Top = 56
end
object IB_Connection1: TIB_Connection
DefaultTransaction = IB_Transaction1
LoginPrompt = True
SQLDialect = 3
Params.Strings = (
'PAGE SIZE=4096'
'SQL DIALECT=3'
'PATH=e:\herbdata\merlinsqldat.fdb')
Left = 80
Top = 104
end
end
----- Original Message -----
From: "Helen Borrie" <helebor@...>
To: <IBObjects@yahoogroups.com>
Sent: Tuesday, December 30, 2003 9:13 PM
Subject: Re: [IBO] generator increments by 3
> At 08:59 PM 30/12/2003 -0700, you wrote:
> >Hi,
> > Thanks for all the tips! They will be used for sure.
> > However, I am still at a loss as to how the generator can increment by
3
> >with a single call to the IBOQuery. It should only increment by 1. I have
> >tried several different combinations of components and the result is
always
> >the same. This is not coincidence.
> >The only time it works is if you use the IBODatabase to control the
> >transaction (and use the default trns) or to not explicitly do a
> >transaction.
>
> Can you post the text of the DFM? And also say which exact version and
> patch of IBO you are using?
>
> Helen
>
>
>
___________________________________________________________________________
> IB Objects - direct, complete, custom connectivity to Firebird or
InterBase
> without the need for BDE, ODBC or any other layer.
>
___________________________________________________________________________
> http://www.ibobjects.com - your IBO community resource for Tech Info
papers,
> keyword-searchable FAQ, community code contributions and more !
>
> Yahoo! Groups Links
>
> To visit your group on the web, go to:
> http://groups.yahoo.com/group/IBObjects/
>
> To unsubscribe from this group, send an email to:
> IBObjects-unsubscribe@yahoogroups.com
>
> Your use of Yahoo! Groups is subject to:
> http://docs.yahoo.com/info/terms/
>