perl连接access数据库之二

时间： 2021-07-31 作者：daque

三. 这功夫，数据库仍旧不妨用了，咱们来尝试一下： #!/usr/bin/perl use win32::odbc; $dsn = "ms access 97 database"; $dbase = "access.mdb"; #贯穿数据库 if (!($db = new win32::odbc($dsn))){ print "贯穿数据库波折.n"; exit(); } else{ print "贯穿数据库胜利 (贯穿号：", $db->connection(), ")nn"; } #数据库中的表 print "数据库中的表："; @tables = $db->tablelist; print @tables; print "n"; #采用数据表 if (! $db->sql("select * from [address] where age>=20") ){ @fieldnames = $db->fieldnames(); $cols = $#fieldnames + 1; #表中字段数 print "表address字段数:$colsn"; #字段列表 for ($i = 0; $i < $cols; $i++){ print "$fieldnames[$i]t"; } print "n"; #列出年纪大于20的记载 while($db->fetchrow()) { @values = $db->data(); print @values; print "n"; } } ##### sql ######### #增添记载 $sqlinsert = "insert into address values ('euler', 'euler@21cn.com', 28, '021-345689')"; #革新记载 $sqlupdate = "update address set age = age+10 "; #简略记载 $sqldelete = "delete from address where name='jimtyan'"; $rc = $db->sql($sqlinsert); die qq(sql 波折 "$sqlinsert": ), $db->error(), qq(n) if $rc; $rc = $db->sql($sqlupdate); die qq(sql 波折 "$sqlupdate": ), $db->error(), qq(n) if $rc; $rc = $db->sql($sqldelete); die qq(sql 波折 "$sqldelete": ), $db->error(), qq(n) if $rc; #封闭链接 $db->close();

perl连接access数据库之二

相关推荐

推荐下载

热门阅览

最新排行