Exemples pour coder avec Delphi Trucs et astuces Base de donnees

Obtenir le nom de l'utilisateur connecté à une base de données

function TDM.GetLoggedUserName: string; var IBQuery: TIBQuery; begin result := ''; IBQuery := TIBQuery.Create(nil); try with IBQuery do begin Database := IBDB; ...
Delphi - Trucs et astuces - Base de donnees le 28/04/2009 vu 2293 fois commentaire Fobec

Un mot de passe qui passe par tous fichiers pradox

Pour entrer dans un pradox protejer par un mot de passe;voici le mot de passe qui passe par tous :jIGGAe.
Delphi - Trucs et astuces - Base de donnees le 29/05/2008 vu 752 fois commentaire anonime

Afficher le nom des tables d'une base de donnée

uses dbtables; procedure TForm1.Button1Click(Sender: TObject); var ts: TStringlist; begin ts := TStringlist.create; Session.GetTableNames('DBDEMOS', '*.DB', false, false, ts);...
Delphi - Trucs et astuces - Base de donnees le 18/12/2004 vu 2112 fois Communauté Delphi

Etablir une connection ADO en utilisant OLE

uses ComObj;{$R *.DFM} function OpenConnection(ConnectionString:AnsiString):Integer; var ADODBConnection : OleVariant; begin ADODBConnection :=...
Delphi - Trucs et astuces - Base de donnees le 20/11/2004 vu 1652 fois Daniel Henrique

Connaitre la version d'ADO installée

uses ComObj ; function GetADOVersion: var iant; var ADO: Variant; begin try ADO := CreateOLEObject('adodb.connection'); Result := ADO.Version; ADO := Null; except Result...
Delphi - Trucs et astuces - Base de donnees le 31/10/2004 vu 1285 fois Simon Carter

Afficher un TDataset dans MS Excel

{....} uses DB;{....} private procedure SendToExcel(aDataSet: TDataSet);{....} uses ComObj, ActiveX, Excel2000; // or Excel97 procedure TForm1.SendToExcel(aDataSet: TDataSet); var ...
Delphi - Trucs et astuces - Base de donnees le 29/10/2004 vu 2259 fois SwissDelphiCenter

[FireBird] Exporter un IBQuery vers un fichier csv

function TDM.ExportIBQToCSV( const sSQL, sFileName: string; IBQ: TIBQuery): Boolean; var OutFile: TIBOutputDelimitedFile; begin result := false; if not assigned(IBQ) then Exit; with IBQ...
Delphi - Trucs et astuces - Base de donnees le 01/07/2004 vu 1545 fois Communauté Delphi

Enregistrer/lire un fichier dans un TBlobStream

// To save a file to BLOB: procedure TForm1.Button1Click(Sender: TObject); var blob: TBlobStream; begin blob := yourDataset.CreateBlobStream(yourDataset.FieldByName('YOUR_BLOB'),...
Delphi - Trucs et astuces - Base de donnees le 14/03/2004 vu 1684 fois SwissDelphiCenter

Protéger une table Paradox avec un mot de passe

procedure ChangeMasterPassword(Tbl: TTable; const APassword:String; AFlag:Boolean); var hDb: hDbiDb; TblDesc: CRTblDesc; szDir : array[0..dbiMaxNameLen] of Char;...
Delphi - Trucs et astuces - Base de donnees le 04/03/2002 vu 2383 fois Communauté Delphi

Connaitre la version du BDE

uses BDE;{Without the Registry:} procedure TForm1.Button1Click(Sender: TObject); var ThisVersion: SYSVersion; begin DbiGetSysVersion(ThisVersion); ShowMessage('BORLAND DATABASE ENGINE...
Delphi - Trucs et astuces - Base de donnees le 28/02/2002 vu 1403 fois SwissDelphiCenter
Navigation
    Recevoir la newsletter
    Pour s'inscrire à notre newsletter, veuillez indiquer votre adresse email ci-dessous:

    Newsletter déjà parues