Also ich teste mit diesem hochkomplexen Programm
Delphi-Quellcode:
unit Form.Main;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs, Data.DB, Data.Win.ADODB,
Vcl.StdCtrls;
type
TForm1 =
class( TForm )
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
ADOConnection1: TADOConnection;
procedure Button1Click( Sender: TObject );
procedure Button2Click( Sender: TObject );
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click( Sender: TObject );
begin
Memo1.Text := PromptDataSource( Self.Handle, Memo1.Text );
end;
procedure TForm1.Button2Click( Sender: TObject );
begin
ADOConnection1.ConnectionString := Memo1.Text;
ADOConnection1.Open;
try
finally
ADOConnection1.Close;
end;
ShowMessage( '
Connection successful' );
end;
end.
ob da eine Verbindung Zustandekommen oder nicht (EXE im Anhang)
Einfach den ConnectionString in das Memo klatschen, das Passwort abändern und auf Connect -> wunderbar
Interessant ist es diesen ConnectionString einmal durch den Verbindung-Editor zu jagen und schauen, was ohne wirkliche Änderung (nur Speichern des Kennworts angeklickt) dabei rauskommt:
Vorher:
Code:
Provider=MSDASQL.1;
Persist Security Info=False;
Driver={PostgreSQL
ANSI};
DATABASE=postgres;
SERVER=127.0.0.1;
UID=postgres;
PASSWORD=******;
PORT=5432;
USER=postgres;
OPTION=3;
STMT=;
Nachher:
Code:
Provider=MSDASQL.1;
Password=******;
Persist Security Info=True;
Extended Properties="Driver={PostgreSQL
ANSI};DATABASE=postgres;SERVER=127.0.0.1;UID=postgres;PORT=5432;USER=postgres;OPTION=3;STMT="
Anyway, bei beiden klappt die Verbindung ganz vorzüglich (du kannst es selber testen).
Ach ja:
Meine installierte postgreSQL
ODBC Version lautet:
9.03.04.00 (die aktuelleste die ich gefunden habe)
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)