PB中连接Access数据库的三种方法_火龙_新浪博客 加载中… 火龙的帝国 http://blog.sina.com.cn/huo1ong [订阅][手机订阅] 首页 博文目录 图片 关于我 个人资料 火龙 Qing 微博 加好友 发纸条 写留言 加关注 博客等级： 博客积分：113 博客访问：4,484 关注人气：0 天天美食 精彩图文 相关博文 更多>> 推荐博文 反思计生国策——由张艺谋遭罚巨 魅力制高点 风青杨：陈光标的名片为何吓坏了 风青杨V 中日进入战争倒计时？ 丁咚2010 张艺谋的748万社会抚养费会流 丁金坤 为什么警察不能对“抢桔子”用枪 大连康振宇律师 人情乌纱 给我一年 习近平将把我们的精神引向哪里 公方彬 王学进：颁布官员禁读E&nbs 王学进 “过度医疗”扭曲了一代人的医疗 纸上建筑_ 月份别称中的气象元素 宋英杰 查看更多>> 谁看过这篇博文 加载中… 正文 字体大小：大 中 小 PB中连接Access数据库的三种方法 (2006-07-30 20:46:03)转载▼ 分类： 数据库[PowerBuilder] PB中连接Access数据库的三种方法 方式一： SQLCA.DBMS = "ODBC" SQLCA.AutoCommit = False SQLCA.DBParm = "ConnectString='driver=Microsoft Access Driver (*.mdb);DBQ=c:\foodmart.mdb'" CONNECT; IF SQLCA.SQLCode <> 0 THEN MessageBox("数据库连接失败","请与管理员联系。错误号:" + String(SQLCA.SQLCode) + "~r~n错误原因:" + SQLCA.SQLErrText) RETURN else MessageBox("数据库连接成功","现在进入系统... ...") end if 方式二： SQLCA.DBMS = "OLE DB" SQLCA.AutoCommit = False SQLCA.DBParm = "PROVIDER='Microsoft.Jet.OLEDB.4.0',DATASOURCE='C:\foodmart.mdb'" CONNECT; 方式三： 建立DSN，通过ODBC连接。这个就不用多说了。 例如: // Profile my_ass SQLCA.DBMS = "ODBC" SQLCA.AutoCommit = False SQLCA.DBParm = "ConnectString='DSN=my_ass'" catalog tables could not be created and are not available for use 问题解决方法: 这种情况多见于从SQL server 转到 Access 数据库,用ODBC连接的情况 把sqlserver数据库里的五个‘pb’字母开头的数据表导入到access数据库里去，再连接就不提示了 关于动态注册ODBC数据源 关于动态注册Access数据源 //*********************************************** // 函数名: gf_setodbc_access // 功能: 完成access数据源的注册功能 // 输入参数: // as_database 数据库名 // (即Access数据库文件名字，不含扩展名) // as_path 数据库文件所在的目录 // 返回值: // true 表示自动配置成功 // false 表示自动配置失败 // 设计者: Adamswater // 完成时间: 2005年6月 //*************************************************** boolean lb_rtn string ls_root,ls_root_dsn,ls_root_Jet,ls_root_Engines integer li_rtn string ls_dsnname,ls_dbfullname,ls_driver,temp,ls_version string ls_syspath environment env integer rtn ls_syspath = Space( 40 ) //获得*作系统的目录 GetSystemDirectoryA(ls_syspath,60) ls_driver = ls_syspath + "\odbcjt32.dll" lb_rtn = true ls_root = "HKEY_LOCAL_MACHINE\software\odbc\odbc.ini" //数据源名字为：文件名字+“_DT” ls_dsnname = as_database + "_DT" ls_root_dsn = ls_root + "\" + ls_dsnname ls_root_Engines = ls_root_dsn + "\" + "Engines" ls_root_Jet = ls_root_Engines + "\" + "Jet" ls_dbfullname = as_path + "\" + as_database + ".mdb" //注册数据源的名字 li_rtn = registryset(ls_root,ls_dsnname,regstring!,"") if li_rtn= - 1 then return false end if //注册数据库名字 li_rtn = registryset(ls_root_dsn,"DBQ",regstring!,ls_dbfullname) if li_rtn= - 1 then return false end if //注册数据库驱动程序 li_rtn = registryset(ls_root_dsn,"Driver",regstring!,ls_driver) if li_rtn= - 1 then return false 分享： 喜欢 阅读┊ 评论 ┊ 收藏 ┊转载 ┊ 喜欢▼ ┊打印┊举报 加载中，请稍候...... 前一篇：Win32 API函数与PB编程 后一篇：Shell命令一览表(供大家参考) 评论 重要提示：警惕虚假中奖信息 | [发评论] 评论加载中，请稍候... 发评论 | 登录名： 密码： 找回密码 注册 记住登录状态昵 称： 分享到微博 评论并转载此博文验证码： 请点击后输入验证码 收听验证码 匿名评论 发评论 以上网友发言只代表其个人观点，不代表新浪网的观点或立场。 < 前一篇Win32 API函数与PB编程 后一篇 >Shell命令一览表(供大家参考) 新浪BLOG意见反馈留言板 不良信息反馈 电话：4006900000 提示音后按1键（按当地市话标准计费） 欢迎批评指正 新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑 Copyright © 1996 - 2014 SINA Corporation, All Rights Reserved 新浪公司 版权所有