Sarcina în fața mea a fost foarte simplă, am avut nevoie de o bază de date, pentru a transfera datele într-o altă bază de date. Structurile bazei de date sunt aceleași pentru mine, deci este chiar mai ușor să vină cu o sarcină, probabil că nu.
Am instalat FireBird 1.5 Server și am pus 2 baze * .FDB în dosarul meu.
Apoi, am creat proiectul în Delphi și am instalat pe formular următoarele componente:
- TIBDataBase - 2 buc.
- TIBQuery - 2 buc.
- TIBTable - 1 bucată
- TDataSource - 1 bucată
- TDBGrid - 1 buc
- TIBTransaction - 1 buc
- TButton - 7 buc.
- TComboBox - 1 bucată
Componenta TComboBox este necesară pentru a afișa lista tabelelor din prima bază de date din care voi transfera datele într-o altă bază de date.
În ceea ce privește pachetul de componente între ele. Am asociat componentele TIBDataBase cu TIBTransaction în proprietatea DefaultTransaction. Am legat componentele TIBQuery și TIBTable de TIBDataBase în proprietatea DataBase. Am conectat componenta TDataSource cu TIBQuery (cu cea care am nevoie) în proprietatea DataSet. și am conectat componenta TDataSource a TDBGrid în proprietatea DataSource. Totul ar trebui să fie clar, totul este standard.
De asemenea LoginPromt proprietate, componenta TIBDatabase trebuie setată la False, astfel încât să nu apară un mesaj pentru a introduce parola și utilizatorul, și proprietatea Params, componenta TIBDatabase, trebuie să specificați parametrii de conexiune (nume de utilizator și parolă), implicit, ei vor:
După ce ne-am pregătit, trebuie să ne conectăm la baza noastră de date. Pentru aceasta, am scris următorul cod în evenimentul OnClick al butonului pentru selectarea căii către baza de date: