Subject | RE: [IBO] Key Links, etc |
---|---|
Author | Lee Jenkins |
Post date | 2004-10-26T00:26:44Z |
> The Subject of the thread indicates that you understand thatSorry about that, Helen. "KeyLinks" seems pretty self-explanator, just
> KeyLinks might
> be involved.
>
> So
> 1) Are your KeyLinks set?
> 2) If so, are they correct?
>
> If you are getting updatable datasets once you put them into read-write,
> then one supposes that they don't have joins, group bys and are
> not SELECTs
> from SPs.
>
> We really need information about the actual datasets that are throwing
> these errors, Lee!!
couldn't figure out how get the property configured. I think I have
stumbled on it somehow (since it seems to be working). LOL, just not sure
how I did by playing around and doing a bit of guessing, especially since
the keylinks doesn't appear to be set. I think I remember taking the values
out since it kept substituting DB_KEY even with keylinks set.
Thanks again,
Lee
Here is the table definition and the TIBOQuery definition:
CREATE TABLE CONTROLS (
CONTROLID BLANKINTEGER NOT NULL,
CONTROLNAME BLANKVARCHAR50,
FORMNAME BLANKVARCHAR50,
IMAGENAME BLANKVARCHAR
);
ALTER TABLE CONTROLS ADD CONSTRAINT PK_CONTROLS PRIMARY KEY (CONTROLID);
object tblControls: TIBOQuery
Params = <>
DatabaseName = ':D:\Delphi\DelphiProjects\SkinUtil\skins_template.fdb'
DeleteSQL.Strings = (
'DELETE FROM CONTROLS'
'WHERE'
' CONTROLID = :OLD_CONTROLID')
EditSQL.Strings = (
'UPDATE CONTROLS SET'
' CONTROLID = :CONTROLID, /*PK*/'
' CONTROLNAME = :CONTROLNAME,'
' IMAGENAME = :IMAGENAME,'
' FORMNAME = :FORMNAME'
'WHERE'
' CONTROLID = :OLD_CONTROLID')
GeneratorLinks.Strings = (
'ControlID=Gen_Controls_ID')
IB_Connection = IBDB
IB_Transaction = IBOTransaction1
InsertSQL.Strings = (
'INSERT INTO CONTROLS('
' CONTROLID, /*PK*/'
' CONTROLNAME,'
' IMAGENAME,'
' FORMNAME)'
'VALUES ('
' :CONTROLID,'
' :CONTROLNAME,'
' :IMAGENAME,'
' :FORMNAME)')
KeyLinksAutoDefine = False
RecordCountAccurate = True
SQL.Strings = (
'SELECT'
' ControlID, '
' ControlName, '
' ImageName,'
' FormName'
'FROM'
' Controls;')
FieldOptions = []
Left = 188
Top = 14
object tblControlsCONTROLID: TIntegerField
FieldName = 'CONTROLID'
end
object tblControlsCONTROLNAME: TStringField
FieldName = 'CONTROLNAME'
Size = 51
end
object tblControlsFORMNAME: TStringField
FieldName = 'FORMNAME'
Size = 51
end
object tblControlsIMAGENAME: TStringField
FieldName = 'IMAGENAME'
Size = 250
end
end