Következő kérdés : Milyen Delphi és milyen Query ?

Most próbáltam ki D7 + IBX-el és hibátlanul megy.

Itt a form ami csinálja
object Form1: TForm1
Left = 268
Top = 666
Width = 502
Height = 356
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 DBGrid1: TDBGrid
Left = 8
Top = 8
Width = 385
Height = 289
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object BitBtn1: TBitBtn
Left = 408
Top = 16
Width = 75
Height = 25
Caption = 'BitBtn1'
TabOrder = 1
OnClick = BitBtn1Click
end
object IBDatabase1: TIBDatabase
Connected = True
DatabaseName = 'C:\DB\adr.gdb'
Params.Strings = (
'user_name=adruser'
'password=adrpasswd'
'lc_ctype=WIN1250')
LoginPrompt = False
Left = 16
Top = 16
end
object IBTransaction1: TIBTransaction
Active = True
DefaultDatabase = IBDatabase1
Left = 16
Top = 48
end
object IBQuery1: TIBQuery
Database = IBDatabase1
Transaction = IBTransaction1
CachedUpdates = True
SQL.Strings = (
'select * from FELHASZNALOK')
UpdateObject = IBUpdateSQL1
Left = 48
Top = 16
object IBQuery1FELH_AZON: TIntegerField
FieldName = 'FELH_AZON'
Origin = '''FELHASZNALOK''.''FELH_AZON'''
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
Required = True
end
object IBQuery1NEV: TIBStringField
FieldName = 'NEV'
Origin = '''FELHASZNALOK''.''NEV'''
Required = True
Size = 30
end
object IBQuery1USERNEV: TIBStringField
FieldName = 'USERNEV'
Origin = '''FELHASZNALOK''.''USERNEV'''
Required = True
Size = 12
end
object IBQuery1JOG_KTGH: TIBStringField
FieldName = 'JOG_KTGH'
Origin = '''FELHASZNALOK''.''JOG_KTGH'''
Size = 3500
end
object IBQuery1STATUS: TIBStringField
FieldName = 'STATUS'
Origin = '''FELHASZNALOK''.''STATUS'''
FixedChar = True
Size = 1
end
end
object IBUpdateSQL1: TIBUpdateSQL
RefreshSQL.Strings = (
'Select '
' FELH_AZON,'
' NEV,'
' USERNEV,'
' JOG_KTGH,'
' STATUS'
'from FELHASZNALOK '
'where'
' FELH_AZON = : FELH_AZON')
ModifySQL.Strings = (
'update FELHASZNALOK'
'set'
' FELH_AZON = : FELH_AZON,'
' JOG_KTGH = : JOG_KTGH,'
' NEV = :NEV,'
' STATUS = : STATUS,'
' USERNEV = : USERNEV'
'where'
' FELH_AZON = : OLD_FELH_AZON')
InsertSQL.Strings = (
'insert into FELHASZNALOK'
' (FELH_AZON, JOG_KTGH, NEV, STATUS, USERNEV)'
'values'
' (: FELH_AZON, : JOG_KTGH, :NEV, :STATUS, : USERNEV)')
DeleteSQL.Strings = (
'delete from FELHASZNALOK'
'where'
' FELH_AZON = : OLD_FELH_AZON')
Left = 80
Top = 16
end
object DataSource1: TDataSource
DataSet = IBQuery1
Left = 48
Top = 48
end
end

A kettőspont utáni szóközöket vedd ki mert a PH motor emotikonoknak látja az SQL paraméterek. ( Hiányzik a [CODE] tag a PH-ból ?)

[Szerkesztve]