Ajout / suppression odbc sous delphi

Soyez le premier à donner votre avis sur cette source.

Vue 9 964 fois - Téléchargée 938 fois

Description

Une personne m'a demandé comment gerer une liaison OBDC sous Delphi. J'ai trouvé sur le net un progamme qui me semble bien marcher.

Bonne prog.

Source / Exemple :


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ButtonCreation: TButton;
    Button2: TButton;
    Panel1: TPanel;
    EditDriver: TEdit;
    EditNomDSN: TEdit;
    EditDescription: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    EditBDD: TEdit;
    Label4: TLabel;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Label5: TLabel;
    procedure ButtonCreationClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }

  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

const
ODBC_ADD_DSN = 1 ;
ODBC_CONFIG_DSN = 2  ;
ODBC_REMOVE_DSN = 3  ;
ODBC_ADD_SYS_DSN = 4  ;
vbAPINull : hwnd= 0   ;

function SQLConfigDataSource (hwndParent : hwnd; fRequest : Longint;  lpszDriver : AnsiString; lpszAttributes : AnsiString)  : Longint ; stdcall;  external 'ODBCCP32.DLL' name  'SQLConfigDataSource' ;

function CreeDSNAvecBoite(Driver,NomDSN,Description,FichierBaseDeDonnees:string):integer;
var
  strDriver : AnsiString ;
  strAttributes: AnsiString  ;
begin
  strDriver := Driver ;
  strAttributes := 'DSN='+NomDSN+ #0  ;
  strAttributes := strAttributes + 'DESCRIPTION='+Description + #0  ;
  strAttributes := strAttributes + 'DBQ='+FichierBaseDeDonnees + #0 ;
  Result :=SQLConfigDataSource(Form1.Handle  , ODBC_ADD_DSN, strDriver, strAttributes) ;
end;

function CreeDSN(Driver,NomDSN,Description,FichierBaseDeDonnees:string):integer;
var
  strDriver : AnsiString ;
  strAttributes: AnsiString  ;
begin
  strDriver := Driver ;
  strAttributes := 'DSN='+NomDSN+ #0  ;
  strAttributes := strAttributes + 'DESCRIPTION='+Description + #0  ;
  strAttributes := strAttributes + 'DBQ='+FichierBaseDeDonnees + #0 ;
  {Pour visualiser la boite de dialogue, utiliser Form1.Handle au lieu
  de vbAPINull.}
  Result :=SQLConfigDataSource(vbAPINull  , ODBC_ADD_DSN, strDriver, strAttributes) ;
end;

function DetruitDSN(Driver,NomDSN:string):integer;
var
  strDriver : AnsiString ;
  strAttributes: AnsiString  ;
begin
  strDriver := Driver ;
  strAttributes := 'DSN='+NomDSN + #0  ;
  result := SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, strDriver, strAttributes) ;
End;

procedure TForm1.ButtonCreationClick(Sender: TObject);
begin
if CreeDSN(EditDriver.Text,EditNomDSN.Text,EditDescription.Text,EditBDD.Text)
   <>0 then
     Showmessage ( 'DSN Créé')
       Else
          Showmessage( 'Echec de création du DSN') ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
      If DetruitDSN(EditDriver.Text,EditNomDSN.Text) <> 0 Then
         Showmessage ('DSN supprimé') 
      Else
         Showmessage ('Echec de suppression du DSN') ;
 End;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if OpenDialog1.Execute then EditBDD.Text:=OpenDialog1.FileName;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreeDSNAvecBoite(EditDriver.Text,EditNomDSN.Text,EditDescription.Text,EditBDD.Text);
end;

end.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de lnicos

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.