Conectar a BD access desde delphi 6

[[Lepe]]

Empezado por Giniromero

pero si en el último registro, no encuentra datos para un campo concreto, ¡¡¿copia los del registro inmediatamente superior????!!!! para rellenar esos vacios??????!!!!

Pues lamento decir que no tiene explicación alguna lo que dices. ¿No tendrás en el beforePost de la tabla IB o bien en el afterScroll de la tabla ADO algún código?

Porque vamos, sin hacer explicitamente un .Prior o .Next es imposible que salte del registro actual al anterior.

Saludos

[Giniromero]

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:

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

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

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

[Giniromero]

Muchas gracias a todos por la ayuda, al final lo que he hecho ha sido conectar a esa base de datos access mediante BDE, en vez de ADO, y me ha dejado de hacer cosas raras.... lo digo por si alguien se encuentra en el mismo problema, que no se de golpes contra la misma pared que yo.

Gracias de nuevo a todos,

Virginia