|
version 1.15, 2003/01/08 21:54:49
|
version 1.17, 2005/07/05 16:12:12
|
|
Line 57 print "Before connecting to the DB\n";
|
Line 57 print "Before connecting to the DB\n";
|
| or die "Can't connect to DB chgk\n" . $dbh->errstr; |
or die "Can't connect to DB chgk\n" . $dbh->errstr; |
| print "Connected successfully\n"; |
print "Connected successfully\n"; |
| |
|
| @tbl_list = $dbh->func( '_ListTables' ); |
@tbl_list = $dbh->tables(); |
| |
|
| &CheckTable("Questions"); |
&CheckTable("Questions"); |
| $dbh->do("CREATE TABLE Questions ( |
$dbh->do("CREATE TABLE Questions ( |
|
Line 71 print "Connected successfully\n";
|
Line 71 print "Connected successfully\n";
|
| KEY TypeKey (Type), |
KEY TypeKey (Type), |
| Question TEXT, |
Question TEXT, |
| Answer TEXT, |
Answer TEXT, |
| |
PassCriteria TEXT, |
| Authors TEXT, |
Authors TEXT, |
| Sources TEXT, |
Sources TEXT, |
| Comments TEXT, |
Comments TEXT, |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mkdb.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc