ich greife über ODBC auf eine Datenbank zu. Da ich ungern über Komponenten arbeite, schreibe ich die Zugriffe selbst.

Der Verbindungsaufbau zur DB geschieht über TDatabase. Nur jetzt würde ich gerne alle anderen Objekte (z.B. Abfragen mit TQuery) über diese Connection laufen lassen. Muss jedes Objekt mit den Login-Infos, DSN etc. gefüttert werden, damit das funktioniert?

Ich benutze BCB 5

qryQuery->DatabaseName = dbDatenbank->DatabaseName;

Oben der Code sollte für TDatabase passen. Der hier ist analog für TADOConnection:

qryQuery->Connection = dbDatenbank;

DBHandler::DBHandler( TComponent *Owner, String OdbcDsn,
                      String DatabaseName, String SessionName,
                      String Username, String Password)
{
 /*
  * Membervariablen initialisieren
  */
 this->DatabaseName = DatabaseName;
 this->SessionName = SessionName;
 this->Username = Username;
 this->Password = Password;
 this->Owner = Owner;
 this->OdbcDsn = OdbcDsn;

 /*
  * Verbindungsparameter der Datenbank setzen
  */
 DB = new TDatabase(Owner);
 DB->AliasName = OdbcDsn;
 DB->DatabaseName = DatabaseName;
 DB->Exclusive = false;
 DB->HandleShared = false;
 DB->KeepConnection = true;
 DB->LoginPrompt = false;
 DB->Name = "MyDatabase";
 DB->ReadOnly = false;
 DB->SessionName = SessionName;
 DB->Tag = 0;
 DB->TransIsolation = tiReadCommitted;

 TStringList *MyStringList = new TStringList;
 MyStringList->Add("USER NAME="+Username);
 MyStringList->Add("PASSWORD="+Password);
 DB->Params = MyStringList;

 /*
  * Abfrage-Objekt erstellen und mit Datenbank verbinden
  */
 query = new TQuery(Owner);
 // PROBLEMZONE
 query->DatabaseName = DB->AliasName;

}

bool DBHandler::Connect()
{
  // Wenn die Sitzung existiert, diese aktivieren,
  // andernfalls neue Sitzung erstellen.
  Sessions->OpenSession(SessionName);
  TSession *pSession = Sessions->FindSession(SessionName);
  TDatabase *TempDatabase = pSession->FindDatabase(DatabaseName);
  // Ist die Datenbankkomponente bereits vorhanden, dann einfach diese zurückgeben
  if (TempDatabase)
    return TempDatabase;

 // Neue Datenbankkomponente erstellen.
 try
 {
   DB->Connected = true;

   return true;
  }
  catch (const Exception &e)
  {
    delete DB;
    Application->MessageBox( e.Message.c_str(), "Fehler", 16 );
    return false;
  }
}

void DBHandler::Disconnect()
{
 if( DB ){
     DB->Connected = false;
     delete DB;
 }
}

void DBHandler::Query(String Stmt)
{

 query->Close();
 query->SQL->Clear();

 query->SQL->Add("insert into provider(name,netz) values(:name,:netz)");
 query->ParamByName("name")->Value = "bla";
 query->ParamByName("netz")->Value = "narf";
 query->ExecSQL();

 //return query;
}

Zum Test empfehle ich dir eine Komponente auf dem Formalur anzulegen und die Properties direkt im Objektinspektor einzugeben. Wenn das dann funktioniert kannst du es im Quellcode formulieren.

query->DatabaseName = DB->AliasName;

ist falsch.

Eher so:

query->DatabaseName = DB->DatabaseName;