erst einmal tut es mir leid, wenn dieser Thread nicht im richtigen forum gelandet ist, aber ich weiss nicht wo die Probleme herkommen, deshalb habei ch gedacht, es könnte am Borland Builder liegen Zur Not sind es immer die anderen...

Ich habe eine total einfach SQL - Abfrage. Die siehr so aus:

AnsiString Abfrage::MannschaftsnamenHolen(TComponent* Owner, int pos)
{
   verbindung = new Verbindung();
   TADOQuery *abfrage = new TADOQuery(Owner);
   abfrage->Connection = verbindung->VerbindungHerstellen(Owner);
   abfrage->SQL->Clear();
   abfrage->SQL->Add("SELECT Mannschaftsname FROM Mannschaft where Mannschaftsnummer = " + IntToStr(pos) + ";");
   abfrage->Open();
   String erg = abfrage->FieldByName("Mannschaftsname")->AsString;

   verbindung->VerbindungSchliessen(Owner);
   abfrage->Close();
   return erg; 
}

Verbindung ist eine Klasse, VerbindungHerstellen sieht so aus :

TADOConnection* Verbindung::VerbindungHerstellen(TComponent* Owner)
{
   try
   {
      verbindung = new TADOConnection(Owner);
      verbindung->ConnectionString =
         "Provider=Microsoft.Jet.OLEDB.4.0;"
         "User ID=Admin;"
         "Data Source=Imman.mdb;"
         "Mode=Share Deny None;"
         "Extended Properties=\"\";"
         "Jet OLEDB:System database=\"\";"
         "Jet OLEDB:Registry Path=\"\";"
         "Jet OLEDB:Database Password=\"\";"
         "Jet OLEDB:Engine Type=5;"
         "Jet OLEDB:Database Locking Mode=1;"
         "Jet OLEDB:Global Partial Bulk Ops=2;"
         "Jet OLEDB:Global Bulk Transactions=1;"
         "Jet OLEDB:New Database Password=\"\";"
         "Jet OLEDB:Create System Database=False;"
         "Jet OLEDB:Encrypt Database=False;"
         "Jet OLEDB:Don't Copy Locale on Compact=False;"
         "Jet OLEDB:Compact Without Replica Repair=False;"
         "Jet OLEDB:SFP=False";
      verbindung->Open();
   }
   catch(Exception *exception)
   {
   }
   return verbindung;
}

Jetzt habe ich es gleich... Zuletzt noch der Methodenaufruf, der sieht so aus...

AnsiString test = "";
Mannschaften *alle[40];

for (int i=0; i<40; i++)
   {
      AnsiString name = ListBox1->Items->Strings[i];
      ShowMessage(name);
      alle[i] = abfrage->MannschaftsAbfrage(Owner, name);
      test += alle[i]->getMannschaftsname() + "\n";
   }

ShowMessage(test);

Das Problem ist nun, dass in der ersten Box alle Mannschaftsnamen sehen kann, nachher, wenn ich test ausgebe, dann sind MANCHE Einträge doppelt, vierfach ,neunfach, der rest stimmt... Merkwürdig. Brauche bitte Hilfe !

Danke,

Oliver.

listbox->item->clear();
listbox->clear();

schön, dass doch einer reagiert ;-). Das war's aber auch nicht. Sieht noch unverändert aus...

Gibt es denn heute keine Lösungsversuche hier ? Wenn der Thread falsch ist, dann verschiebt ihn, aber meldet euch bitte IRGENDWIE !!!

Oliver.

woher kommen die Daten in der ListBox denn? Hast Du mal die Objekte überprüft? Ist bei denen jeder Name nur einmal vorhanden?

Was mir so auffällt, ist das Du jede Query und jede Verbindung neu erzeugst (und dann noch nicht mal wieder freigibst, sonder dass der App. überläßt). Du brauchst nur eine TADOConnection und eine TADOQuery. Bei der Query bräuchtest Du nicht mal den SQL zu ändern, wenn Du Parameter verwenden würdest. Diese beiden Änderungen verringern schon mal die potentiellen Fehlerquellen. Weiterhin findet keinlerlei Überprüfung statt, ob die Abfrage nur EIN Ergebnis, oder überhaupt eins liefert... Außerdem sollte bei Access-Dabenbank die CursorLocation auf clUseServer gesetzt werden (Standard dürfte clUseClient sein).
Weiterhin ist Access ein bißchen komisch, was den SQL-Code angeht (bilde ich mir zumindest ein). Das Semikolon am Ende ist m.E. überflüssig, statt dessen, solltest Du mal alles nach dem WHERE bis zum Ende der Zeile in Klammer setzen.