Host und IP bei ADO Oracle

[=pascal=]

Hallo,

Erst mal ein Hallo, bin noch neu hier, und auch schon ein Problem :)

Ich bin nun schon lange auf der Suche nach einer Beschreibung, wo man das Port und die IP oder Host bei einer ADO Verbindung für Oracle deffiniert.

Mein login sieht zur Zeit wie folgt aus, und es funktioniert auch.

Delphi-Quellcode:

 Memo2.Lines.Append(DateTimeToStr(Time)+' - Start loggin ...');

 IF Datamodule1.ADOConnection.Connected = True THEN
  BEGIN
   Datamodule1.SQL.Close;
   Datamodule1.ADOConnection.Connected := False;
   Datamodule1.SQL.ConnectionString := '';
  END;
 MyConnecting := 'Provider='+Datasource+'; '+
                 'Persist Security Info=False; '+
                 'User ID='+SetUser+'; '+
                 'Password='+PASSWORD_DECODE(SetPass)+'; '+
                 'Data Source='+db;

 Datamodule1.ADOConnection.ConnectionString := MyConnecting;
 Datamodule1.SQL.ConnectionString := MyConnecting;
 Datamodule1.ADOConnection.Connected := True;

Gebe ich die IP und port beim "Data Source" an? Aber wie, habe schon entliche varianten versucht. :wall:

Danke für den TIPP

[Bernhard Geyer]

Du solltest dir auf jedenfalls einen ADO/OLE DB-Provider von Oracle direkt besorgen. Der von MS mitgelieferte ist Schrott (oder sanft ausgedrückt: Er ist eine Machbarkeitsstudie)!

Noch besser ist es direkte Zugriffskomponenten wie z.B. von Core Labs zu nehmen. Damit sind die Einricht bzw. Verteilungs bzw. Versionsprobleme auf ein minmum reduziert. Man braucht nur noch eine Oracle-Version bei der die Fehler nicht so eklatant sind.

[=pascal=]

Sorry, habe vergessen den Provider anzugeben.

Also ich denke ich benutze ADO/OLE oder nicht?

Provider: OraOLEDB.Oracle.1

[rwachtel]

Host und IP kannst Du so nicht angeben. DataSource ist der DSN des entsprechenden Servers wie es beim installierten Oracle Client in der tnsnames.ora angegeben ist.

http://www.connectionstrings.com/?carrier=oracle

[peschai]

Hallo

Delphi-Quellcode:

          adoSrcConnection.ConnectionString := 'Provider=OraOLEDB.Oracle'
                                               +';Data Source='+cbxSrcDatabase.Text
                                               +';User Id='+ediSrcUsername.Text
                                               +';Password='+ediSrcPassword.Text
                                               +';';

IP und Port und entfernter DBName(Service) werden in der TNSNAMES.ORA deiner lokalen OracleClient Installation hinterlegt. Mit dem darin definierten TNS-Bezeichner arbeitest du dann innerhalb Delphi.

Delphi-Quellcode:

# TNSNAMES.ORA Network Configuration File: C:\oracle\ora92\network\admin\tnsnames.ora
# Generated by Oracle configuration tools.
blabladatenbank =
  (DESCRIPTION =
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = TCP)(HOST = 127.0.0.1)(PORT = 1521))
    )
    (CONNECT_DATA =
      (SERVICE_NAME = entfernterdatenbankname)
    )
  )

Wenn du z.b. mit dem TNSNamen blabladatenbank die Verbindung definiert hast, so kannst du mit folgendem die Oraclestrecke testen in einer Kommandozeile(das gute alte DOS ....:-)... :

Delphi-Quellcode:

tnsping blabladatenbank

Bei Erfolg erhälst du eine Zeitangabe in ms.
Dann sollte die Verbindung wie oben funktionieren...

Delphi-Quellcode:

cbxSrcDatabase.Text:='blabladatenbank';

[=pascal=]

Besten Dank für euro Antworten.

Dann ist es also nicht möglich die TNSNAMES.ORA zu übersteuern? Ich denke daran das jemand einen quatsch in der tnsnames.ora deffiniert hat und nun das Programm starten möchte, dass die einstellungen des Programm diese in tns übersteuert.

Ich möchte nur sicherstellen das die Software immer läuft, denn auf jenigem PC arbeiten mehrere Personen und da kann es schon mal vorkommen das da jemand was fummelt.

[rwachtel]

Also erstmal bieten moderne Betriebssysteme eine entsprechende Rechteverwaltung, so dass nicht jeder Nutzer einfach so die Einstellungen an solch neuralgischen Punkten ändern kann.

Du kannst natürlich auch den sogenannten TNS-less connection string ausprobieren. Den findest Du bei meinem o.a. Link.

Ansonsten hilft Dir nur noch eine alternative Zugriffskomponente, wie z.B. die schon angesprochenen Oracle Data Access Components von CrLab http://crlab.com/odac/ Diese bieten einen Direktzugriffsmodus, so dass der Oracle Client noch nichtmal installiert sein muss.

[shmia]

Kleiner Auszug aus deinem Code:

Delphi-Quellcode:

Datamodule1.ADOConnection.ConnectionString := MyConnecting; 
Datamodule1.SQL.ConnectionString := MyConnecting;   // <====

Die 2. Zeile ist natürlich sehr ungeschickt, da die Query, die bei dir "SQL" heisst ja schon mit "ADOConnection" in Verbindung steht.
Wenn man jeder ADOQuery einen ConnectionString zuweist, ist das fast schon die Garantie für Probleme, da so mehrere Connections anstatt nur einer aufgebaut werden.

[=pascal=]

Besten Dank für deinen Hinweis. Habe schon immer gewusst, dass ich noch einige Fehler im Code habe.

[=pascal=]

Zitat:

Zitat von rwachtel

Also erstmal bieten moderne Betriebssysteme eine entsprechende Rechteverwaltung, so dass nicht jeder Nutzer einfach so die Einstellungen an solch neuralgischen Punkten ändern kann.

Du hast Recht, aber irgendwie gelingt es diesen sogenannten Personen immer wieder. Da was zu ändern. Ich werde mir mal das Produkt anschauen.