//创建Access数据库
import com

var conn;
if( !io.exist("/test.mdb") ){
	//创建数据库
	var cat = com.CreateObject( "ADOX.Catalog")  
	conn = cat.Create( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  +  io.fullpath("/test.mdb") )
	cat = null; 
}
else {
	conn = com.CreateObject("ADODB.Connection")
	conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + io.fullpath("/test.mdb")
	conn.open();
}
 
io.open()
io.print("创建数据库成功")
 

adCmdText = 0x0001;
adChar = 129
adVarChar = 200
adParamInput = 0x0001
adParamOutput = 0x0002

cmd = com.CreateObject("ADODB.Command") 
cmd.ActiveConnection = conn;
cmd.CommandType =adCmdText;

try { 
	cmd.CommandText = "create table homepage2 (url char(30), comment char(20))" 
	cmd.Execute() 
}
catch(e){

	tab  = com.CreateObject("ADOX.Table") 
	Cat  = com.CreateObject("ADOX.Catalog")  
	Cat.ActiveConnection=conn 
	tab.ParentCatalog=Cat 
	tab=Cat.Tables("homepage2") 
	 
	//如果表已存在，打印出所有的列
	for index,field in com.each(tab.Columns) {
		io.print(field.name)
	}  
}

cmd.CommandText = "insert into homepage2(url,comment) values(@url,?)" 
param1 = cmd.CreateParameter("url",adChar, adParamInput ,30, "crane he" )
param2 = cmd.CreateParameter("comment",adChar, adParamInput ,20, "hi!" )
 
cmd.Parameters.Append(param1);  
cmd.Parameters.Append(param2);

cmd.Execute( )
conn.close();

/**数据库连接需要用到MDAC组件，数据库连接失败时，可以使用下面的方法来修复MDAC安装：
1、用隶属“administrators”管理员组的帐户执行以下操作。
2、找到系统目录下的Mdac.inf文件(C:\windows\inf\mdac.inf)，点鼠标右键选择“安装”。
3、按提示插入XP安装盘修复安装。 **/
