Difference between revisions of "TSQLite3Connection/ja"
Miyatakejiro (talk | contribs) (Created page with "{{TSQLite3Connection/ja}} {{Infobox databases/ja}} {{Note|Instead of using a TMySQLite3Connection a proxy-like TSQLConnector may be used to create more generic database a...") |
Miyatakejiro (talk | contribs) |
||
Line 1: | Line 1: | ||
{{TSQLite3Connection/ja}} | {{TSQLite3Connection/ja}} | ||
− | {{Infobox databases | + | {{Infobox databases}} |
− | {{ | + | {{注| TSQLite3Connection を使う代わりに、プロキシライクな [[TSQLConnector]] によって、より一般的なデータベースアプリケーションを作ることができます。}}'''TSQLite3Connection''' [[image:tsqlite3connection.png]] は [[SQLite]]を使うためのデータベース接続コンポーネントです。これらのコンポーネントは、[[Component Palette]] の [[SQLdb tab]] にあります。 |
− | TSQLite3connection | + | TSQLite3connection は FCL (LCLではなく) の non visual component meaning that it can be used in (eg) ObjectPascal, console applications as well as Lazarus GUI ones. Unfortunately there are no FCL docs for TSQLite3Connection but its interface is similar to its parent ( [[TSQLConnection]] ). As SQLite is an embedded or non-server |
database, its use may not require setting .host, .username nor .password. An example of how its used in an ObjectPascal programme is below, when used in | database, its use may not require setting .host, .username nor .password. An example of how its used in an ObjectPascal programme is below, when used in | ||
Lazarus, similar setting can be made using the Object Inspector. | Lazarus, similar setting can be made using the Object Inspector. | ||
Line 22: | Line 22: | ||
Connect.Transaction := Trans; | Connect.Transaction := Trans; | ||
Connect.DatabaseName := 'test_dbase'; | Connect.DatabaseName := 'test_dbase'; | ||
− | Trans.StartTransaction; // | + | Trans.StartTransaction; // データベースへの接続を行います。SQLite をインストールしていない場合、EInOutError が起きます。(訳注;Lazarus と SQLite の 32bit、64bit を合わせないとエラーが起きます) |
− | Connect.ExecuteDirect('create table TBLNAMES (ID integer Primary Key, NAME varchar(40));'); | + | Connect.ExecuteDirect('create table TBLNAMES (ID integer Primary Key, NAME varchar(40));'); // 訳注;2度目の実行時には、ここで「TBLNAMESのテーブルは作成済み」というエラーメッセージが表示されると思います。 |
Trans.Commit; | Trans.Commit; | ||
Trans.Free; | Trans.Free; | ||
Line 38: | Line 38: | ||
* [[SQLite/ja]] | * [[SQLite/ja]] | ||
− | {{LCL Components}} | + | {{LCL Components/ja}} |
Revision as of 08:54, 2 March 2018
│
English (en) │
español (es) │
français (fr) │
日本語 (ja) │
polski (pl) │
References:
Tutorials/practical articles:
Databases |
Template:注TSQLite3Connection は SQLiteを使うためのデータベース接続コンポーネントです。これらのコンポーネントは、Component Palette の SQLdb tab にあります。
TSQLite3connection は FCL (LCLではなく) の non visual component meaning that it can be used in (eg) ObjectPascal, console applications as well as Lazarus GUI ones. Unfortunately there are no FCL docs for TSQLite3Connection but its interface is similar to its parent ( TSQLConnection ). As SQLite is an embedded or non-server database, its use may not require setting .host, .username nor .password. An example of how its used in an ObjectPascal programme is below, when used in Lazarus, similar setting can be made using the Object Inspector.
program BasicDBase;
{$mode objfpc} {$ifdef mswindows}{$apptype console}{$endif}
uses
sqldb, sqlite3conn;
var
Connect : TSQLite3Connection;
Trans : TSQLTransaction;
begin
Connect := TSQLite3Connection.Create(nil);
Trans := TSQLTransaction.Create(Connect);
Connect.Transaction := Trans;
Connect.DatabaseName := 'test_dbase';
Trans.StartTransaction; // データベースへの接続を行います。SQLite をインストールしていない場合、EInOutError が起きます。(訳注;Lazarus と SQLite の 32bit、64bit を合わせないとエラーが起きます)
Connect.ExecuteDirect('create table TBLNAMES (ID integer Primary Key, NAME varchar(40));'); // 訳注;2度目の実行時には、ここで「TBLNAMESのテーブルは作成済み」というエラーメッセージが表示されると思います。
Trans.Commit;
Trans.Free;
Connect.Free;
end.
The ExecuteDirect() procedure is a fairly limited means to call SQL, in a real ap, you will need something like TSQLQuery. Note also the above demo does not do
any error checking.
See also