Dansk MSSQL fejlmeddelelse

Fejlen betyder:

du har udfoert query 1
du er igang med at hente resultat fra den query
nu forsoerger du at udfoere en ny query 2

Det maa man ikke.

Muligvis har du laest alle data fra den foerste query men mangler bare et
close/dispose kald.

Naermere kan jeg ikke komme det uden at se kode.

Jeg tror det karambolerer med denne tråd. Når min liste skal opdateres fyres der sådan en af for hvert billede. Fejlen opstår når jeg har tilføjet et billede til listen.

procedure TFetchThread.Execute;
var
  i : integer;
  OK : boolean;
  Query : TADOQuery;
begin
  Query := DM.CreateQuery;
  try
    // Føjet til i forbindelse med debugging af fejlen
    Query.CursorLocation := clUseServer; //???
    Query.LockType := ltReadOnly;

    Query.SQL.Text :=
      'select billede'+
      '  from billedercache'+
      '  where (ref = :ref)';
    DM.SetParam(Query.Parameters.ParamByName('ref'),ftInteger,fBillede.BillederCacheRef);

    i := 0; OK := false;
    while not OK and (i < 20) do
    begin
      inc(i);

      Query.Open;
      try
        OK := not Query.Eof;
        if OK then
        begin
          fStream := Query.CreateBlobStream(Query.FieldByName('billede'),bmRead);
          try
            Synchronize(LoadBillede);
          finally
            fStream.Free;
          end;
        end;
      finally
        Query.Close;
      end;

      if not OK then
        sleep(random(100) + 450); // Wait half a second'ish
    end;
    fBillede.Done := OK; // true; // Done, even if timed out
  finally
    Query.Free;
  end;
end;

Jeg har også en tråd liggende klar til at fylde billederne ind i en scrollbar når de kommer frem. Den propper billederne i komponenten i den rækkefølge der er defineret i databasen. Dvs. når billede 1 er "Done" fyldes det i komponenten osv.

procedure TFillScrollBoxThread.Execute;
const
  TimeOut_ms = 10000;
var
  i : integer;
  TimeOut : cardinal;
  CritcalSection : TRTLCriticalSection;
begin
  CritcalSection := fBilleder.CritcalSection;
  EnterCriticalSection(CritcalSection);
  try
    fBilleder.ThreadCount := fBilleder.ThreadCount + 1;
  finally
    LeaveCriticalSection(CritcalSection);
  end;

  i := 0; TimeOut := GetTickCount + TimeOut_ms; // Wait 10 max seconds
  while (i <= fBilleder.Count - 1) and (GetTickCount < TimeOut) do
  begin
    fBillede := fBilleder[i];
    if fBillede.Done then
    begin
      inc(i);
      Synchronize(AddToScrollBox);
      TimeOut := GetTickCount + TimeOut_ms; // Reset timeout
    end
    else
      Sleep(0);
  end;

  EnterCriticalSection(CritcalSection);
  try
    fBilleder.ThreadCount := fBilleder.ThreadCount - 1;
  finally
    LeaveCriticalSection(CritcalSection);
  end;
end;

Jeg er ikke kommet videre med at hitte den "!# fejl. Der er kun én skrivning og en del læsninger og det burde ikke karambolere. Håbede på en mulighed for at kunne spørge databasen om den måtte opdateres.

Jeg kom dog lidt videre med den !&/#%!/ danske fejlmeddelelse, så læg et svar Arne. Tak for hjælpen.

ok

Lige på faldrebet. Du kender ikke en metode til at tjekke om man kan foretage en opdatering vel? Løsningen med at polle en opdatering af databasen dur ikke.

Med 2005 er det nemt - den har en notification service og man kan selv lave en trigger
ned noget C# kode.

Den kan også fåes som addon til 2000:
  http://www.microsoft.com/downloads/details.aspx?FamilyID=AE73472B-5D7C-4266-94D4-7DDE7E315B98&displaylang=en

måske var der noget som kunne bruges. Måske er det for .NET adhængigt.

En mere traditionel løsning ville være at lade alle updates gå gennem en server side
app som så pushede updates til alle klienter.