Wenn ich eine Verbindung mit dem Oracle-ODBC-Treiber 10.02.00.01und AdoConnection aufbaue, funktioniert diese. Abfragen kann ich auch machen.
Wenn ich mein Programm beende bekomme ich eine Fehlermeldung, wegen Speicherverletzung.
Das ist mein Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| procedure TForm1.ADOConnection1WillConnect(Connection: TADOConnection;
var ConnectionString, UserID, Password: WideString;
var ConnectOptions: TConnectOption; var EventStatus: TEventStatus);
begin
ConnectionString := 'Provider=MSDASQL.1;Password=pwd;Persist Security Info=True;User ID=Benutzer;Extended Properties="DRIVER={Oracle ODBC Driver};SERVER=CAQ1_RQM1.WORLD;UID=Benutzer;PWD=pwd;DBQ=CAQ1_RQM1.WORLD;';
ConnectionString := ConnectionString + 'DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;"';
UserID := 'Benutzer';
Password := 'pwd';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AdoConnection1.Connected := true;
AdoTable1.TableName := 'Tabellenname';
AdoTable1.Open;
ShowMessage(AdoTable1.FieldByName('Feld').AsString);
AdoTable1.Close;
AdoConnection1.Connected := false;
end; |
