跟着社会的发展,东说念主们的生涯节拍也变得愈发快速。关于大部分的在校学生来说,不仅要应付笨重的学习任务【TCD-176】ニューハーフ逆アナル天国 日本VS海外8...
11月12日快播av,“话题#张艺谋说对电影诠释短视频很痛楚#”冲上热搜。张艺谋直言算作电影导演看到此类短视频很酸心,并敕令不雅众走进电影院,而非仅通过手机快速...
天士力公告,公司控股推进天士力产业集团正在筹谋股份转让事宜,该事项可能导致公司截至权变更。公司股票自8月1日(星期四)上昼开市起停牌【TCD-176】ニューハー...
2023年1月11日在四川省第十四届东谈主民代表大会第一次会议上色小姐 四川省发展和更变委员会 诸君代表: 受省东谈主民政府交付,现将2022年国民经济和社会发...
婴儿消毒柜哪个牌子好?婴儿肠胃系统十分脆弱,如果构兵到带有病毒、细菌的物品,感染疾病的几率是很高的。是以好多外行父母,都到手种草婴儿消毒柜。只不外产物品牌盛大,...
骨子摘要91porn y WPS诱导Access数据库 Access数据库引擎:Access Database Engine 2010人人好91porn y,我是冷水沏茶。前段时期,咱们共享过一个案例【采购明细汇总:WPS数据库诱导字符串】,那是在给客户优化一个进销存运用中际遇的问题。客户需要使用WPS,而我其时莫得筹商到这样档子事,胜利在Excel中遴选ADO数据库诱导来操作数据,哪知说念在WPS下无法运转!于是在网上搜索惩处决策,恶果说WPS只相沿低版块(2003及过去)的数据库诱导: strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbs & ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';"但问题是咱们莫得方针把柄Office的版块号来判断,因为现在WPS的版块号是12,也即是Office 2007版,诱导字符串是这样的: strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbs & ";Extended Properties='Excel 12.0;HDR=Yes;IMEX=2';"是以,其后遴选了一个容错语句,在WPS中凑合运转。前两天, 客户罕见向要把这个进销存从头筹整齐下。他蓝本的运用即是一个Excel文献,所少见据王人存在这一个文献内部,在录入数据的经过中,还常常时地报错,数据安全性存在很大的隐患。基本决策很浅近,把操作端与数据端分开,咱们共享过许多Access的案例王人是这种模式。可是,我没敢贸然接活,主要原因是他们要使用WPS,而关于WPS能否诱导Access数据库,我还莫得真确的把抓,已经先试一下再说吧。今天,我试着用WPS VBA诱导Access数据库,不出不测地莫得得手: 图片 黑皮猪搞了半天,也不知啥原因。抱着碰侥幸的口头,到网上搜“WPS VBA诱导Access数据库”,在ExcelHome论坛上找到一个帖子: https://club.excelhome.net/thread-1572190-2-1.html有东说念主说要下载一个32位的Access数据库引擎:accessdatabaseengine,于是迅速又搜了一下,看到一个官网下载连合,可是没下得手,它给我来一个: We're sorry, this download is no longer available.于是,在“系统之家”下载站找到一个: https://www.xitongzhijia.net/soft/243207.html下载,装配32位版块的,再测试,得手了,诱导Excel、Access王人莫得问题!我写了一个缔造诱导字符串的自界说函数,分辩Excel文献与Access文献缔造不同的诱导字符串: Function GetStrCnn(ByVal DbFile As String, Optional ByVal Psw As String = "")'赢得数据库诱导字符串Dim fileType As StringfileType = GetExtn(DbFile)If InStr(fileType, "accdb") ThenGetStrCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password=" & Psw & ";Data Source=" & DbFileElseIf InStr(fileType, "xl") ThenGetStrCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & DbFileEnd IfEnd Function Function GetExtn(fileName)'赢得文献后缀名GetExtn = Right(fileName, Len(fileName) - InStrRev(fileName, ".") + 1)End Function本来我是很少筹商与WPS的兼容性问题的,因为我我方一直在用Office,可是,有些付费筹划的客户在用WPS,这也莫得方针,只须尽量快活。 归来:在WPS下使用数据库诱导处理数据,不错参考以下容貌: 1、要是是诱导刻下责任簿中的责任表,要是莫得装配Access Database Engine,不错试试Microsoft.Jet.OLEDB.4.0数据库引擎,要是需要与Excel同期使用,不错参考【采购明细汇总:WPS数据库诱导字符串】中的设施,使用容错语句来惩处;要是装配了Access Database Engine,那么应该不错跟Excel兼容,胜利使用Microsoft.ACE.OLEDB.12.0数据库引擎(这点莫得测试)。2、要是要诱导Access数据库无意其他Excel文献,咱们就需要装配Access Database Engine,然后就不错使用Microsoft.ACE.OLEDB.12.0数据库引擎来诱导数据库了。 好,今天就到这,咱们下期相遇。~~~~~~End~~~~~~ 本站仅提供存储管事,总计骨子均由用户发布,如发现存害或侵权骨子,请点击举报。 |