ADO ConnectionString

An vielen Stellen wird in meinen Code-Schnipseln über einen ConnectionString die Verbindung zur Datenbank aufgebaut, aber wie kommt man zu diesem ConnectionString? Natürlich kann man im Internet suchen oder einfach die von mir generierten nutzen oder man schreibt sich ein kleines Progrämmchen!

Dafür braucht wir die Importe der Type Librarys "Microsoft ActiveX Data Objects 2.x-Objektbibliothek" und "OLE DB Service Component 1.0-Typbibliothek" und das Package LazActiveX.

Import ADODB : Microsoft ActiveX Data Objects 2.x-Objektbibliothek
C:\Program Files\Common Files\System\ado\msado15.dll adodb 6 1 tlb.pas (189,84 KB) (189,84 kByte) 22.03.2013 11:20

Import MSDASC : OLE DB Service Component 1.0-Typbibliothek
C:\Program Files\Common Files\System\Ole DB\oledb32.dll msdasc 1 0 tlb.pas (18,68 KB) (18,68 kByte) 01.12.2013 14:50

ConnectionStr.lpr Pascal (666 bytes) 21.12.2013 18:25
program ConnectionStr;
{$APPTYPE CONSOLE}
{$mode objfpc}{$H+}
uses
  Interfaces, // used packages: LazActiveX
  adodb_6_1_tlb, // Microsoft ActiveX Data Objects 2.x-Objektbibliothek
  msdasc_1_0_tlb; // OLE DB Service Component 1.0-Typbibliothek

function getConnectionString: Widestring;
var
  cn: _Connection;
  dl: DataLinks;
begin
  result := '';
  cn := CoConnection.Create;
  dl := CoDataLinks.Create;
  dl.hwnd:= 0;
  try
    cn := Connection(dl.PromptNew);
    if Assigned(cn) then
      result := cn.ConnectionString;
  finally
    dl := nil;
    cn := nil;
  end;
end;

begin
  WriteLn(getConnectionString());
  ReadLn;
end.

Author: , published: , last modified:

Kontakt

Udo Schmal

Udo Schmal
Softwareentwickler
Olvengraben 41
47608 Geldern
Nordrhein-Westfalen
Germany





+49 2831 9776557
+49 1575 0663676
+49 2831 1328709
SMS
WhatsApp

Instagram Profile
vCard 3.0

Service Infos

CMS Info Product Name:
UDOs Webserver
Version:
0.5.0.68
Description:
All in one Webserver
Copyright:
Udo Schmal
Compilation:
Tue, 4. May 2021 23:15:05
Development Info Compiler:
Free Pascal FPC 3.3.1
compiled for:
OS:Linux, CPU:x86_64
System Info OS:
Ubuntu 20.04.2 LTS (Focal Fossa)
Hardware Info Model:
Hewlett-Packard HP Pavilion dv7 Notebook PC
CPU Name:
Intel(R) Core(TM) i5-2450M CPU @ 2.50GHz
CPU Type:
x86_64, 1 physical CPU(s), 2 Core(s), 4 logical CPU(s), 2749.189 MHz