在PB中创建Access数据库和表[原创]

/*===============================================================

函数名：f_createdb

参数：string argdbpathandname   //数据库路径

返回：integer li_ret

调用方法：f_createdb(argdbpathandname)

创建日期：2005年9月29日

作者：mtu207(比猫大的猫)

首发贴地址：http://blog.csdn.net/mtu207

===============================================================*/

//创建access数据库
//通过ADOX对象进行访问

integer li_ret
oleobject CreateAccess

li_ret = 2

//数据库已存在,直接返回2
if fileexists(argdbpathandname) then
 return li_ret
end if 

CreateAccess = create OleObject;

li_ret = CreateAccess.connecttonewobject('ADOX.Catalog');
IF li_ret <> 0 THEN
   Messagebox("提示:","无法使用创建数据库对象!!!")
 return li_ret
END IF

//通过OLE方式创建Access97格式的数据库(该方法未测试)
//li_ret = CreateAccess.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source='" + argdbpathandname + "'");

//通过OLE方式创建Access2000格式的数据库
li_ret = CreateAccess.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" + argdbpathandname + "'");

IF li_ret <> 0 THEN
   Messagebox("提示:","创建数据库: " + argdbpathandname + "  不成功!!")
ELSE
 Messagebox("提示:","创建数据库成功!!")
END IF

destroy CreateAccess;

return li_ret

//在win2K+PB9测试通过。