he mirado y no, no tengo nada en esos eventos. ¿algo en la configuración del objeto?
Estoy usando un TADOQuery, pero tambien he probado con TADODataSet.
Esto es lo que tengo:
Código:
object TbADOAsisImport: TADOQuery
Active = True
Connection = ADOBDHyperion
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from asistencias_todo'
'order by codigo')
Left = 544
Top = 152
object TbADOAsisImportcodigo: TAutoIncField
FieldName = 'codigo'
ReadOnly = True
end
object TbADOAsisImportgrupo: TIntegerField
FieldName = 'grupo'
end
object TbADOAsisImportfecha: TWideStringField
FieldName = 'fecha'
Size = 50
end
object TbADOAsisImportnumalu1: TWideStringField
FieldName = 'numalu1'
Size = 50
end
object TbADOAsisImportasistencia1: TWideStringField
FieldName = 'asistencia1'
Size = 50
end
object TbADOAsisImportnumalu2: TWideStringField
FieldName = 'numalu2'
Size = 50
end
object TbADOAsisImportasistencia2: TWideStringField
FieldName = 'asistencia2'
Size = 50
end
object TbADOAsisImportnumalu3: TWideStringField
FieldName = 'numalu3'
Size = 50
end
object TbADOAsisImportasistencia3: TWideStringField
FieldName = 'asistencia3'
Size = 50
end
object TbADOAsisImportnumalu4: TWideStringField
FieldName = 'numalu4'
Size = 50
end
object TbADOAsisImportasistencia4: TWideStringField
FieldName = 'asistencia4'
Size = 50
end
object TbADOAsisImportnumalu5: TWideStringField
FieldName = 'numalu5'
Size = 50
end
object TbADOAsisImportasistencia5: TWideStringField
FieldName = 'asistencia5'
Size = 50
end
object TbADOAsisImportnumalu6: TWideStringField
FieldName = 'numalu6'
Size = 50
end
object TbADOAsisImportasistencia6: TWideStringField
FieldName = 'asistencia6'
Size = 50
end
object TbADOAsisImportnumalu7: TWideStringField
FieldName = 'numalu7'
Size = 50
end
object TbADOAsisImportasistencia7: TWideStringField
FieldName = 'asistencia7'
Size = 50
end
object TbADOAsisImportnumalu8: TWideStringField
FieldName = 'numalu8'
Size = 50
end
object TbADOAsisImportasistencia8: TWideStringField
FieldName = 'asistencia8'
Size = 50
end
object TbADOAsisImportnumalu9: TWideStringField
FieldName = 'numalu9'
Size = 50
end
object TbADOAsisImportasistencia9: TWideStringField
FieldName = 'asistencia9'
Size = 50
end
object TbADOAsisImportnumalu10: TWideStringField
FieldName = 'numalu10'
Size = 50
end
object TbADOAsisImportasistencia10: TWideStringField
FieldName = 'asistencia10'
Size = 50
end
object TbADOAsisImportnumalu11: TWideStringField
FieldName = 'numalu11'
Size = 50
end
object TbADOAsisImportasistencia11: TWideStringField
FieldName = 'asistencia11'
Size = 50
end
object TbADOAsisImportnumalu12: TWideStringField
FieldName = 'numalu12'
Size = 50
end
object TbADOAsisImportasistencia12: TWideStringField
FieldName = 'asistencia12'
Size = 50
end
end
Código:
object OLD_TbADOAsisImport: TADODataSet
Connection = ADOBDHyperion
CursorType = ctStatic
LockType = ltReadOnly
CommandText = 'select * from asistencias_todo'#13#10'order by codigo'#13#10
Parameters = <>
Prepared = True
Left = 536
Top = 96
object OLD_TbADOAsisImportcodigo: TAutoIncField
FieldName = 'codigo'
ReadOnly = True
end
object OLD_TbADOAsisImportgrupo: TIntegerField
FieldName = 'grupo'
end
object OLD_TbADOAsisImportfecha: TWideStringField
FieldName = 'fecha'
Size = 50
end
object OLD_TbADOAsisImportnumalu1: TWideStringField
FieldName = 'numalu1'
Size = 50
end
object OLD_TbADOAsisImportasistencia1: TWideStringField
FieldName = 'asistencia1'
Size = 50
end
object OLD_TbADOAsisImportnumalu2: TWideStringField
FieldName = 'numalu2'
Size = 50
end
object OLD_TbADOAsisImportasistencia2: TWideStringField
FieldName = 'asistencia2'
Size = 50
end
object OLD_TbADOAsisImportnumalu3: TWideStringField
FieldName = 'numalu3'
Size = 50
end
object OLD_TbADOAsisImportasistencia3: TWideStringField
FieldName = 'asistencia3'
Size = 50
end
object OLD_TbADOAsisImportnumalu4: TWideStringField
FieldName = 'numalu4'
Size = 50
end
object OLD_TbADOAsisImportasistencia4: TWideStringField
FieldName = 'asistencia4'
Size = 50
end
object OLD_TbADOAsisImportnumalu5: TWideStringField
FieldName = 'numalu5'
Size = 50
end
object OLD_TbADOAsisImportasistencia5: TWideStringField
FieldName = 'asistencia5'
Size = 50
end
object OLD_TbADOAsisImportnumalu6: TWideStringField
FieldName = 'numalu6'
Size = 50
end
object OLD_TbADOAsisImportasistencia6: TWideStringField
FieldName = 'asistencia6'
Size = 50
end
object OLD_TbADOAsisImportnumalu7: TWideStringField
FieldName = 'numalu7'
Size = 50
end
object OLD_TbADOAsisImportasistencia7: TWideStringField
FieldName = 'asistencia7'
Size = 50
end
object OLD_TbADOAsisImportnumalu8: TWideStringField
FieldName = 'numalu8'
Size = 50
end
object OLD_TbADOAsisImportasistencia8: TWideStringField
FieldName = 'asistencia8'
Size = 50
end
object OLD_TbADOAsisImportnumalu9: TWideStringField
FieldName = 'numalu9'
Size = 50
end
object OLD_TbADOAsisImportasistencia9: TWideStringField
FieldName = 'asistencia9'
Size = 50
end
object OLD_TbADOAsisImportnumalu10: TWideStringField
FieldName = 'numalu10'
Size = 50
end
object OLD_TbADOAsisImportasistencia10: TWideStringField
FieldName = 'asistencia10'
Size = 50
end
object OLD_TbADOAsisImportnumalu11: TWideStringField
FieldName = 'numalu11'
Size = 50
end
object OLD_TbADOAsisImportasistencia11: TWideStringField
FieldName = 'asistencia11'
Size = 50
end
object OLD_TbADOAsisImportnumalu12: TWideStringField
FieldName = 'numalu12'
Size = 50
end
object OLD_TbADOAsisImportasistencia12: TWideStringField
FieldName = 'asistencia12'
Size = 50
end
end
Código:
object ADOBDHyperion: TADOConnection
Attributes = [xaCommitRetaining]
Connected = True
ConnectionString =
'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Hyper' +
'ion;Mode=ReadWrite'
IsolationLevel = ilIsolated
LoginPrompt = False
Mode = cmReadWrite
Left = 536
Top = 24
end
Muchas gracias,
Virginia