今天家里有事，早上6点钟就被闹铃弄醒，洗漱完毕就去了车站，坐了3个小时的车到了家里，呆了两个小时，又坐了3个小时的车回来。真是累死了。回来发现竟然下雪了，哈哈，今年的第一场雪。真冷啊，出来的时候没穿棉鞋，冻死了。路上的车子一个比一个开的慢，又磨蹭了将近一个小时才到家。呼呼，终于没有冻死街头啊
2007/11/19 21:42 |
本来都已经基本上好了，哪曾想回家呆了两天之后病情加重了。嗓子疼得厉害，不敢吃东西，也不太愿意说话，只好喝水充饥了 
1.“我不在乎你有没有钱，我相信你一定会有前途”
2.“我做菜的手艺很不错，下次有机会做给你吃”
3.“不管怎样，我相信你”
4.“你很有才华，能够认识你真的好幸运”
5.“亲爱的，我会永远爱你”
6.“没什么事，只是想你了”
7、“我不要求名份，重要的是我们彼些相爱”
8、“你是我的第一次，你一定要好好爱我啊”
9、“饭在锅里，我在床上”
10、“想离婚(分手)没门！除非等我死了！”
2.“我做菜的手艺很不错，下次有机会做给你吃”
3.“不管怎样，我相信你”
4.“你很有才华，能够认识你真的好幸运”
5.“亲爱的，我会永远爱你”
6.“没什么事，只是想你了”
7、“我不要求名份，重要的是我们彼些相爱”
8、“你是我的第一次，你一定要好好爱我啊”
9、“饭在锅里，我在床上”
10、“想离婚(分手)没门！除非等我死了！”
用perl 连接access,用了ODBC数据源
1.在Win32下安装ActivePerl 然后在PPM下安装DBI和DBD::ODBC
2.创建一个access数据库
3.创建ODBC数据源
3.1控制面板-->管理工具-->数据源(ODBC)
3.2选"系统DSN"-->添加
3.3选择"Driver do Microsoft Access (*.mdb)"
3.4然后有个对话框,填入数据源名,点确定
4试着运行以下代码:
#!/usr/bin/perl
use warnings;
use strict;
use DBI;
use DBD::ODBC;
$username = "";
$pwd = "";
my $dbh = DBI->connect("DBI:ODBC:Employee", $username, $pwd) or
die("Couldn't make connection to database:$DBI::errstr");
#注意:这里的Employee是你刚才填数据源时填入的名字
my $sth = $dbh->prepare(q{Select * FROM employee}) or
die("Cannot prepare statement:", $dbh->errstr(),"\n");
my $rc = $sth->execute() or
die("Cannot execute statement:", $sth->errstr(), "\n");
my @array;
while (@array = $sth->fetchrow_array()) {
write();
}
warn($DBI::errstr) if $DBI::err;
$dbh->disconnect();
$sth->finish();
format STDOUT =
@<<<<<<@<<<<<<<<<@<<<<<<<<<<@<<<<<@<<<<<<<<<@<<<<<<<<<<<<<<
$array[0],$array[1],$array[2],$array[3],$array[4], $array[5]
1.在Win32下安装ActivePerl 然后在PPM下安装DBI和DBD::ODBC
2.创建一个access数据库
3.创建ODBC数据源
3.1控制面板-->管理工具-->数据源(ODBC)
3.2选"系统DSN"-->添加
3.3选择"Driver do Microsoft Access (*.mdb)"
3.4然后有个对话框,填入数据源名,点确定
4试着运行以下代码:
#!/usr/bin/perl
use warnings;
use strict;
use DBI;
use DBD::ODBC;
$username = "";
$pwd = "";
my $dbh = DBI->connect("DBI:ODBC:Employee", $username, $pwd) or
die("Couldn't make connection to database:$DBI::errstr");
#注意:这里的Employee是你刚才填数据源时填入的名字
my $sth = $dbh->prepare(q{Select * FROM employee}) or
die("Cannot prepare statement:", $dbh->errstr(),"\n");
my $rc = $sth->execute() or
die("Cannot execute statement:", $sth->errstr(), "\n");
my @array;
while (@array = $sth->fetchrow_array()) {
write();
}
warn($DBI::errstr) if $DBI::err;
$dbh->disconnect();
$sth->finish();
format STDOUT =
@<<<<<<@<<<<<<<<<@<<<<<<<<<<@<<<<<@<<<<<<<<<@<<<<<<<<<<<<<<
$array[0],$array[1],$array[2],$array[3],$array[4], $array[5]
