Subject | Lookup Refresh (was Lookup problem) |
---|---|
Author | Malcolm Smith |
Post date | 2002-09-04T04:17:45Z |
I still can't get this to work. If I make the changes suggested last by
Helen I can't even add a record. So to start clean I've started a new
thread and have detailed my CURRENT relevant settings below. I say CURRENT
because I have tried so many different combinations.....
To recap: The problem is my new records in the lookup table are not
available to the detail table that uses it. I've cross referenced with the
demos in the GSG and I can't see any differences.
I've copied the important datamodule properties here from the DFM.
qryIPLookup : IPLOOKUP is the lookup table
qryGroups : GROUPS is the master table in a master/detail arrangement
qrySpriteDetail: SPRITEDETAILS is the details table (uses the IPLOOKUP
records)
lckIPLookup : Query used for the lookup performed by SPRITEDETAILS
If it's easier to send the DFM let me know.
object qryGroups: TIB_Query
SQL.Strings = (
'SELECT *'
'FROM GROUPS'
'ORDER BY ID')
AutoFetchAll = True
GeneratorLinks.Strings = (
'ID=GROUPID_GEN')
KeyLinks.Strings = (
'GROUPS.ID')
KeySeeking = False
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchMasterOnSearch,
msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
' Description =GRP_DESCRIPTION;GRP_DESCRIPTION DESC')
OrderingLinks.Strings = (
'GRP_DESCRIPTION=ITEM=1')
RefreshAction = raKeepDataPos
RequestLive = True
BufferSynchroFlags = []
FetchWholeRows = True
end
object dsGroups: TIB_DataSource
AnnounceFocus = True
Dataset = qryGroups
end
object qrySpriteDetail: TIB_Query
ColumnAttributes.Strings = (
'IP_IPADDRESS=COMPUTED')
SQL.Strings = (
'SELECT ID'
' , SD_DESCRIPTION'
' , SD_CAMERA'
' , SD_USERNAME'
' , SD_PASSWORD'
' , SD_GROUPID'
' , SD_IPLOOKUPID'
' , (SELECT IPL_IPADDRESS'
' FROM IPLOOKUP'
' WHERE IPLOOKUP.ID = SPRITEDETAIL.SD_IPLOOKUPID)'
'AS IP_IPADDRESS'
'FROM SPRITEDETAIL')
AutoFetchAll = True
GeneratorLinks.Strings = (
'ID=SPRITEDETAILID_GEN')
KeyLinks.Strings = (
'SPRITEDETAIL.ID')
KeySeeking = False
MasterSource = dsGroups
MasterLinks.Strings = (
'SPRITEDETAIL.SD_GROUPID=GROUPS.ID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchMasterOnSearch,
msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
' Description =SD_DESCRIPTION;SD_DESCRIPTION DESC'
' IP Address=SD_IPADDRESS;SD_IPADDRESS DESC')
OrderingLinks.Strings = (
'SD_DESCRIPTION=ITEM=1'
'SD_IPADDRESS=ITEM=2')
RefreshAction = raKeepDataPos
RequestLive = True
BufferSynchroFlags = []
FetchWholeRows = True
ParamValues = (
'MLNK_SD_GROUPID_0=6')
end
object dsSpriteDetail: TIB_DataSource
AnnounceFocus = True
Dataset = qrySpriteDetail
end
object lckIPLookup: TIB_Query
ColumnAttributes.Strings = (
'IPL_LOCAL=BOOLEAN=Y,N;REQUIRED')
SQL.Strings = (
'SELECT *'
'FROM IPLOOKUP')
DefaultValues.Strings = (
'IPL_LOCAL=Y')
KeyLinks.Strings = (
'IPLOOKUP.ID=SPRITEDETAIL.SD_IPLOOKUPID')
KeyDescLinks.Strings = (
'IPLOOKUP.IPL_IPADDRESS=IP_IPADDRESS')
KeySource = dsSpriteDetail
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
' Description =IPL_DESCRIPTION;IPL_DESCRIPTION DESC')
OrderingLinks.Strings = (
'IPL_DESCRIPTION=ITEM=1')
RequestLive = True
BufferSynchroFlags = []
FetchWholeRows = True
end
object dslckIPLookup: TIB_DataSource
AnnounceFocus = True
Dataset = lckIPLookup
end
object dsIPLookup: TIB_DataSource
AnnounceFocus = True
Dataset = qryIPLookup
end
object qryIPLookup: TIB_Query
ColumnAttributes.Strings = (
'IPL_LOCAL=BOOLEAN=Y,N;REQUIRED')
SQL.Strings = (
'SELECT ID'
' , IPL_DESCRIPTION'
' , IPL_IPADDRESS'
' , IPL_LOCAL'
'FROM IPLOOKUP')
AutoFetchAll = True
DefaultValues.Strings = (
'IPL_LOCAL=Y')
GeneratorLinks.Strings = (
'ID=IPLOOKUPID_GEN')
KeyLinks.Strings = (
'IPLOOKUP.ID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
' Description =IPL_DESCRIPTION;IPL_DESCRIPTION DESC'
' IP Address =IPL_IPADDRESS;IPL_IPADDRESS DESC')
OrderingLinks.Strings = (
'IPL_DESCRIPTION=ITEM=1'
'IPL_IPADDRESS=ITEM=2')
RequestLive = True
BufferSynchroFlags = [bsAfterInsert]
FetchWholeRows = True
end
Malcolm Smith
MJ Freelancing
ABN: 30 671 763 146
http://www.mjfreelancing.com
Helen I can't even add a record. So to start clean I've started a new
thread and have detailed my CURRENT relevant settings below. I say CURRENT
because I have tried so many different combinations.....
To recap: The problem is my new records in the lookup table are not
available to the detail table that uses it. I've cross referenced with the
demos in the GSG and I can't see any differences.
I've copied the important datamodule properties here from the DFM.
qryIPLookup : IPLOOKUP is the lookup table
qryGroups : GROUPS is the master table in a master/detail arrangement
qrySpriteDetail: SPRITEDETAILS is the details table (uses the IPLOOKUP
records)
lckIPLookup : Query used for the lookup performed by SPRITEDETAILS
If it's easier to send the DFM let me know.
object qryGroups: TIB_Query
SQL.Strings = (
'SELECT *'
'FROM GROUPS'
'ORDER BY ID')
AutoFetchAll = True
GeneratorLinks.Strings = (
'ID=GROUPID_GEN')
KeyLinks.Strings = (
'GROUPS.ID')
KeySeeking = False
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchMasterOnSearch,
msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
' Description =GRP_DESCRIPTION;GRP_DESCRIPTION DESC')
OrderingLinks.Strings = (
'GRP_DESCRIPTION=ITEM=1')
RefreshAction = raKeepDataPos
RequestLive = True
BufferSynchroFlags = []
FetchWholeRows = True
end
object dsGroups: TIB_DataSource
AnnounceFocus = True
Dataset = qryGroups
end
object qrySpriteDetail: TIB_Query
ColumnAttributes.Strings = (
'IP_IPADDRESS=COMPUTED')
SQL.Strings = (
'SELECT ID'
' , SD_DESCRIPTION'
' , SD_CAMERA'
' , SD_USERNAME'
' , SD_PASSWORD'
' , SD_GROUPID'
' , SD_IPLOOKUPID'
' , (SELECT IPL_IPADDRESS'
' FROM IPLOOKUP'
' WHERE IPLOOKUP.ID = SPRITEDETAIL.SD_IPLOOKUPID)'
'AS IP_IPADDRESS'
'FROM SPRITEDETAIL')
AutoFetchAll = True
GeneratorLinks.Strings = (
'ID=SPRITEDETAILID_GEN')
KeyLinks.Strings = (
'SPRITEDETAIL.ID')
KeySeeking = False
MasterSource = dsGroups
MasterLinks.Strings = (
'SPRITEDETAIL.SD_GROUPID=GROUPS.ID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchMasterOnSearch,
msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
' Description =SD_DESCRIPTION;SD_DESCRIPTION DESC'
' IP Address=SD_IPADDRESS;SD_IPADDRESS DESC')
OrderingLinks.Strings = (
'SD_DESCRIPTION=ITEM=1'
'SD_IPADDRESS=ITEM=2')
RefreshAction = raKeepDataPos
RequestLive = True
BufferSynchroFlags = []
FetchWholeRows = True
ParamValues = (
'MLNK_SD_GROUPID_0=6')
end
object dsSpriteDetail: TIB_DataSource
AnnounceFocus = True
Dataset = qrySpriteDetail
end
object lckIPLookup: TIB_Query
ColumnAttributes.Strings = (
'IPL_LOCAL=BOOLEAN=Y,N;REQUIRED')
SQL.Strings = (
'SELECT *'
'FROM IPLOOKUP')
DefaultValues.Strings = (
'IPL_LOCAL=Y')
KeyLinks.Strings = (
'IPLOOKUP.ID=SPRITEDETAIL.SD_IPLOOKUPID')
KeyDescLinks.Strings = (
'IPLOOKUP.IPL_IPADDRESS=IP_IPADDRESS')
KeySource = dsSpriteDetail
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
' Description =IPL_DESCRIPTION;IPL_DESCRIPTION DESC')
OrderingLinks.Strings = (
'IPL_DESCRIPTION=ITEM=1')
RequestLive = True
BufferSynchroFlags = []
FetchWholeRows = True
end
object dslckIPLookup: TIB_DataSource
AnnounceFocus = True
Dataset = lckIPLookup
end
object dsIPLookup: TIB_DataSource
AnnounceFocus = True
Dataset = qryIPLookup
end
object qryIPLookup: TIB_Query
ColumnAttributes.Strings = (
'IPL_LOCAL=BOOLEAN=Y,N;REQUIRED')
SQL.Strings = (
'SELECT ID'
' , IPL_DESCRIPTION'
' , IPL_IPADDRESS'
' , IPL_LOCAL'
'FROM IPLOOKUP')
AutoFetchAll = True
DefaultValues.Strings = (
'IPL_LOCAL=Y')
GeneratorLinks.Strings = (
'ID=IPLOOKUPID_GEN')
KeyLinks.Strings = (
'IPLOOKUP.ID')
MasterSearchFlags = [msfOpenMasterOnOpen, msfSearchAppliesToMasterOnly]
OrderingItemNo = 1
OrderingItems.Strings = (
' Description =IPL_DESCRIPTION;IPL_DESCRIPTION DESC'
' IP Address =IPL_IPADDRESS;IPL_IPADDRESS DESC')
OrderingLinks.Strings = (
'IPL_DESCRIPTION=ITEM=1'
'IPL_IPADDRESS=ITEM=2')
RequestLive = True
BufferSynchroFlags = [bsAfterInsert]
FetchWholeRows = True
end
Malcolm Smith
MJ Freelancing
ABN: 30 671 763 146
http://www.mjfreelancing.com