TSQLite3Connection/pl: what changed
Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.
Title: TSQLite3Connection/pl
| Old | New | Line | |
|---|---|---|---|
| 1 | + | > **Note:** Zamiast używać TSQLite3Connection, można użyć podobnego do proxy [[TSQLConnector/pl|TSQLConnector]] do tworzenia bardziej ogólnych aplikacji bazodanowych | |
| 2 | + | ||
| 3 | + | **TSQLite3Connection**  jest komponentem służącym do łączenia się z bazą danych [[SQLite/pl|SQLite]]. Komponent ten znajduje się na [[SQLdb tab|karcie SQLdb]] w [[Component Palette|Palecie komponentów]]. | |
| 4 | + | ||
| 5 | + | TSQLite3connection jest niewizualnym komponentem FCL (nie LCL), co oznacza, że może być używany np. w ObjectPascal, aplikacjach konsolowych, a także w aplikacjach Lazarus GUI. Niestety nie ma jeszcze dokumentacji FCL dla TSQLite3Connection, ale jego interfejs jest podobny do jego rodzica ( [[TSQLConnection/pl|TSQLConnection]] ). Ponieważ SQLite jest wbudowaną lub nieserwerową bazą danych, jej użycie może nie wymagać ustawienia właściwości .host, .username ani .password. Poniżej znajduje się przykład jego użycia w programie ObjectPascal, w przypadku użycia w Lazarusie, podobne ustawienie można wykonać za pomocą Inspektora obiektów. | |
| 6 | + | ||
| 7 | + | ``` pascal | |
| 8 | + | program BasicDBase; | |
| 9 | + | {$mode objfpc} {$ifdef mswindows}{$apptype console}{$endif} | |
| 10 | + | uses | |
| 11 | + | sqldb, sqlite3conn; | |
| 12 | + | var | |
| 13 | + | Connect : TSQLite3Connection; | |
| 14 | + | Trans : TSQLTransaction; | |
| 15 | + | ||
| 16 | + | begin | |
| 17 | + | Connect := TSQLite3Connection.Create(nil); | |
| 18 | + | Trans := TSQLTransaction.Create(Connect); | |
| 19 | + | Connect.Transaction := Trans; | |
| 20 | + | Connect.DatabaseName := 'test_dbase'; | |
| 21 | + | Trans.StartTransaction; // otwiera Connect, zgłasza wyjątek EInOutError jeśli SQLite nie jest zainstalowany | |
| 22 | + | Connect.ExecuteDirect('create table TBLNAMES (ID integer Primary Key, NAME varchar(40));'); | |
| 23 | + | Trans.Commit; | |
| 24 | + | Trans.Free; | |
| 25 | + | Connect.Free; | |
| 26 | + | end. | |
| 27 | + | ``` | |
| 28 | + | ||
| 29 | + | Procedura ExecuteDirect() jest dość ograniczonym sposobem wywoływania SQL, w prawdziwej aplikacji będziesz potrzebować czegoś takiego jak TSQLQuery. Zauważ również, że powyższe demo nie sprawdza żadnych błędów. | |
| 30 | + | ||
| 31 | + | ## Zobacz także | |
| 32 | + | ||
| 33 | + | - [[TSQLConnector]] | |
| 34 | + | - [[SQLite]] | |
| 35 | + | ||
| 36 | + | --- | |
| 37 | + | *From the Free Pascal wiki, page "TSQLite3Connection/pl", as it stood on 2021-11-16 after a change by Slawek, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |