1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
package Database;
use strict;
use warnings;
use QtCore4;
use QtGui4;
use QtSql4;
sub createConnection
{
my $db = Qt::SqlDatabase::addDatabase('QSQLITE');
$db->setDatabaseName(':memory:');
if (!$db->open()) {
Qt::MessageBox::critical(0, qApp->tr('Cannot open database'),
qApp->tr("Unable to establish a database connection.\n" .
'This example needs SQLite support. Please read ' .
'the Qt SQL driver documentation for information how ' .
"to build it.\n\n" .
'Click Cancel to exit.'), Qt::MessageBox::Cancel());
return 0;
}
my $query = Qt::SqlQuery();
$query->exec('create table artists (id int primary key, ' .
'artist varchar(40), ' .
'albumcount int)');
$query->exec("insert into artists values(0, '<all>', 0)");
$query->exec("insert into artists values(1, 'Ane Brun', 2)");
$query->exec("insert into artists values(2, 'Thomas Dybdahl', 3)");
$query->exec("insert into artists values(3, 'Kaizers Orchestra', 3)");
$query->exec('create table albums (albumid int primary key, ' .
'title varchar(50), ' .
'artistid int, ' .
'year int)');
$query->exec("insert into albums values(1, 'Spending Time With Morgan', 1, " .
'2003)');
$query->exec("insert into albums values(2, 'A Temporary Dive', 1, 2005)");
$query->exec("insert into albums values(3, '...The Great October Sound', 2, " .
'2002)');
$query->exec("insert into albums values(4, 'Stray Dogs', 2, 2003)");
$query->exec('insert into albums values(5, ' .
"'One day you`ll dance for me, New York City', 2, 2004)");
$query->exec("insert into albums values(6, 'Ompa Til Du D\xf8r', 3, 2001)");
$query->exec("insert into albums values(7, 'Evig Pint', 3, 2002)");
$query->exec("insert into albums values(8, 'Maestro', 3, 2005)");
return 1;
}
1;
|
