Problem med dataudtræk fra Access database

Nu kan jeg altså slet ikke se nogen løkke, en if-not er i alt fald ikke. Hvorfor joiner du ikke tabellerne?

En TADOQuery burde kunne håndtere nedenstående:

select s.0x1 from Schedules s
  join Calendar c on (c.Schedule = s.Schedule)
  where c.Dato = :Dato

- kan ikke huske om der skal paranteser eller firkantklammer om felterne, men i grundtræk bør queryen se sådan ud. I øvrigt er det noget skod, at du søger "selct * ..". Angiv kun de felter som du skal bruge. Noget andet skod er måden du opbygger dine parametre på. Har sagt det før og siger det igen: Brug Queryens Parameters-property til at angive disse værdier.

Query.Parameters.QueryByName('Dato').Value := CurDay; // vistnok sådan i ADO

Nås så det er samlet i ét effektivt script, kan du lave den goe' gamle while-løkke:

Query.Open;
try
  while not Query.Eof do
  begin
    Stringgrid.Cells[0,1] := Query.FieldByName('0x1').AsString;
    // Alternativt vistnok også muligt:  Stringgrid[0,1] := Query['0x1'];
    Query.Next;
  end;
finally
  Query.Close;
end;

Eller hvis du kun skal have en singelton (én record ud):

Query.Open;
try
  if Query.Eof then
    raise execption.Create('Ingen record fundet'); // Alt: assert(not Query.Eof);
  Stringgrid.Cells[0,1] := Query.FieldByName('0x1').AsString;
finally
  Query.Close;
end;

Det med en æøkke var lige en "skrivefejl" ;)
Men kan du se hvad der er galt med min kode? Vil mene jeg joiner den ved ScheduleDataset.Connectionstring := Min tabel

Får en fejl om at parameterobjekltet er forkert defineret eller oplysningerne er mangelfulde ved denne kode:

    Query.SQL.Text:='s.0x1 from Schedules s'+
  'join Calendar c on (c.Schedule = s.Schedule)'+
  'where c.Dato = :Dato';
Query.Open;
try
  while not Query.Eof do
  begin
    Stringgrid1.Cells[0,1] := Query.FieldByName('0x1').AsString;
    // Alternativt vistnok også muligt:  Stringgrid[0,1] := Query['0x1'];
    Query.Next;
  end;
finally
  Query.Close;
end;

Rettelse: Ikke min tabel men min database

Længere nede i teksten skrev jeg linien:

  Query.Parameters.QueryByName('Dato').Value := CurDay;

Har du den med? Jeg kan ikke helt huske om det er ADO's måde at angive parametre på. Det må du tjekke.

Hmm querybyname er ikke rigtigt. Men kan ikke lige se hvad jeg skal brueg i stedet?
Parambyname?

Ahem. Ja selvfølgelig skal du bruge ParamByName. En slåfejl, beklager.

Nu har jeg så denne kode:

    Query.Parameters.ParamByName('Dato').Value := CurDate;
    Query.SQL.Text:='s.0x1 from Schedules s'+
  'join Calendar c on (c.Schedule = s.Schedule)'+
  'where c.Dato = :Dato';
Query.Open;
try
  while not Query.Eof do
  begin
    Stringgrid1.Cells[0,1] := Query.FieldByName('0x1').AsString;
    // Alternativt vistnok også muligt:  Stringgrid[0,1] := Query['0x1'];
    Query.Next;
  end;
finally
  Query.Close;
end;

Men når koden udføres får jeg følgende fejl: "Query: Dato not found"
Hvad kan fejlen være her?

Nå fik min egen kode til ar virke :D