perl一个简单mysql操作的小程序
#!/usr/bin/perl
use Mysql;
print "Content-type:
text/html \n\n";
# MySQL
配置变量
$host = "localhost";
$database
= "testdb";
$tablename = "testtable";
$user = "username";
$pw =
"password";
# PERL MYSQL CONNECT()
$connect = Mysql->connect($host,
$database, $user, $pw);
# SELECT
DB
$connect->selectdb($database);
# 定义MySQL查询
$myquery = "INSERT
INTO
$tablename (id, product, quantity)
VALUES
(DEFAULT,'pineapples','15')";
# 执行查询
$execute =
$connect->query($myquery);
# 影响行
$affectedrows =
$execute->affectedrows($myquery);
# 最后一个Insert的ID
$lastid =
$execute->insertid($myquery);
print $affectedrows."<br
/>";
print $lastid."<br />";
相关文档：
MSSQL:select Right(sys.fn_VarBinToHexStr(hashbytes('MD5', '123456')),32)
MSSQL16位:select Right(sys.fn_VarBinToHexStr(hashbytes('MD5', '123456')),16)
MySQL:select md5('123456')
.NET:string 结果字符串=System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFil ......
一、设置数据库编码
安装mysql时可选择编码，如果已经安装过，可以更改文件my.ini(此文件在mysql的安装目录下)中的配制以达到目的；打开文件找到两处：
[client]
port=3306
[mysql]
default-character-set=gb2312
# The default character set that will be used when a new
schema or table is
# created and
n ......
一、建表
DROP TABLE IF EXISTS `user`;
CREATE TABLE `user` (
`ID` int(11) NOT NULL auto_increment,
`NAME` varchar(16) NOT NULL default '',
`REMARK` varchar(16) NOT NULL default '',
PRIMARY KEY (`ID`)
) ENGINE=InnoDB AUTO_INCREMENT=24 DEFAULT CHARSET=utf8;
&nb ......
几个月前，受一位老师的委托，要帮他做一个关系数据库模式信息提取的小项目，主要的功能实现就是将关系数据库的表结构和字段的信息通过表格的形式展示出来。我通过从网上搜集资料以及翻书查找，先实现了一个mysql的数据提取器。先给大家分享一下。稍后的几天内会把另一个mysql� ......
