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 2202 fois  |
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 667 fois |
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 2023 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 1563 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 1202 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 2172 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 1458 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 1598 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 2298 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 1323 fois | SwissDelphiCenter | |
- 12 articles - Page
- 1
- 2