说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何设置对VB数据库连接的动态路径

HTML文档下载 WORD文档下载 PDF文档下载
VB如何设置对VB数据库连接的动态路径
作者:张振兴

笔者的解决方法是利用app.path 来解决这个问题。
一、用data控件进行数据库链接,可以这样:
在form_load()过程中放入:
private form_load()
Dim str As String '定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
data1.databasename=str & "\数据库名"
data1.recordsource="数据表名"
data1.refresh
sub end
这几句话的意为,打开当前程序运行的目录下的数据库。
你只要保证你的数据库在你程序所在的目录之下就行了。

二、利用adodc(ADO Data Control)进行数据库链接:
private form_load ()
Dim str As String '定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & "\tsl.mdb"
Adodc1.ConnectionString = str
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from table3"
Adodc1.Refresh
end sub

三、利用DataEnvironment进行数据库链接
可在过程中放入:
On Error Resume Next
If DataEnvironment1.rsCommand1.State <> adStateClosed Then
DataEnvironment1.rsCommand1.Close '如果打开,则关闭
End If
'i = InputBox("请输入友人编号:", "输入")
'If i = "" Then Exit Sub
DataEnvironment1.Connection1.Open App.Path & "\userdatabase\tsl.mdb"
DataEnvironment1.rsCommand1.Open "select * from table3 where 编号='" & i & "'"
'Set DataReport2.DataSource = DataEnvironment1
'DataReport2.DataMember = "command1"
'DataReport2.show
end sub

四、利用ADO(ActiveX Data Objects)进行编程:
建立连接:
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim str
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & "\tsl.mdb"
conn.open str
rs.cursorlocation=aduseclient
rs.open "数据表名",conn,adopenkeyset.adlockpessimistic
用完之后关闭数据库:
conn.close
set conn=nothing

以上代码在VB6,win98上运行通过,如有问题请发邮件给我:
作者:张振兴
E_mail:xingyun0615@sina.com

Instagram:从Redis到Cassandra 成本节省1/4 乐元素CTO凌聪访谈:游戏引擎技术选型之王道 iOS 7的新设计并非止于外表 WWDC 2013大会10大启示:正向开发者支付大量现金 云计算大会微软专场成功举办 Windows Azure公众预览版上线 IBM全球大裁员 在美国裁员已经开始 动动鼠标,决定“中国十大优秀开源项目”的归属 为改善Flickr 雅虎收购拍照应用开发商GhostBird 让你轻松学习新代码库的六个步骤 RESTful API 设计最佳实践 谷歌11亿美元豪购Waze原因:获取数据 争本地广告市场 为什么大家都要疯狂吐槽iOS 7的扁平化设计? 伟大的程序员是天生的,不是造就的 比Hive高效7倍 Facebook推新一代查询引擎Presto 未来的存储系统设计——PMC技术交流会举行 第五届中国云计算大会PPT尝鲜:十位专家分享的架构实践 “DIY”可穿戴设备:索尼开放智能手表固件 在微软的八个月里,我学到了这些 谷歌实习生每月都拿$6000,你呢? 【第五届中国云计算大会】由瓦特变比特输出,新疆要做中亚云服务中心 应用程序扩展性实现的十宗罪 图文:看谷歌实习生的惬意生活 为移动而设计:交互设计篇 小米游戏中心月度报告:极品、神庙、找你妹 中科院:常温下的液态金属电路3D打印机 细数IE10里的HTML5特性 使用Twitter Bootstrap的五大理由 Twitter重塑API战略 开启V1.1时代 Sony开放SmartWatch 支持第三方定制固件 甩啦甩啦!Apptopia帮开发者在线买卖App所有权 聚焦全球移动市场:印度,这块肥肉不太肥 我讨厌csdn首页的弹出窗口广告!!!! 这里关于前途的悲观论调的文章太多,难道程序员的抗挫折能力就那么差吗? 高分求救,有关非模式对话框隐藏的问题 襄儿妹妹,大哥给你的见面礼,请接受~~~ 求救!为什么以前做的程序,下次打开就不能运行了呢????? 为什么我显示的图象总被遮掉 上两个星期刚扫描好的最新ip地址库 进程出错,如何对系统的出错信息进行处理 谁有色带的型号和牌子的网址啊,推荐啊。。 完成端口中如何在接收状态下发送数据? 那位大哥能帮忙从sourceforge上下个工程,高分相送,分可以再加(急) (急)如何替换文本中的“+” 请问怎么看到DevC++运行后的结果啊。屏幕一闪就过去了 关于控件制作的两个问题 那位大哥能帮忙从sourceforge上下个工程,高分相送,分可以再加(急) 如何才能在Edit控件中显示大量的数据?? smoke,你好,很高兴能认识你! 大虾们给点意见:这么编写W77E58的软件看门狗是否妥当? 请问怎么用MAPI控件发送HTML格式的邮件啊 小问题,好郁闷!! 父窗口弹出一个子窗口,如果在子窗口点击鼠标,消息是怎么在父子窗口之间折腾的呢? 如何在接受到两个消息后才执行一段代码呢? 怎么定义一个三维数组 那位大哥能告诉我75,000日圆值多少人民币啊???? 安装了DirectX 9b之后Media Player 9.0总是出问题。 局域网怎么装打印机? 为什么控制面板中的“添加删除程序”不能用了?在线等待,请各位帮忙。 请问高手如何设置绘图背景为黑色,并且哪种绘制模式不影响画图的画笔颜色 《程序员》的文章错字太多!!!!!!!!!!!! 关于指纹采集识别 高分求《j2EE服务器端高级编程》这本书的源码 MAKEWORD宏从哪里找到中文解释。 为何在重载CreateParams后指定Form的Height值小于某个值后就不会再小? 开发一个基于WEB的ASP仓库管理,用什么技术比较好。 怎样让弹出对话框居中显示 我用Server.Transfer来做两个页面之间传值,我怎么让页面成为新窗口打开呀,100分 高分请教XML高手 在InterDev中,我什么说我不能连接web server 请问 怎么响应一个按钮打开一个新页面,同时关闭旧页面 各位PM进来谈谈自己的经历和经验教训。 picturebox控件问题 jdbc的奇怪限制,不能reread row data UNIX支持中文否,请推荐UNIX好书 高分求助:怎样发布sapi.dll 我发现我变笨了!!或许我本来就很笨。但是问句实在的:IT会使人变笨吗? hal.dll文件丢失!winxp修复的问题!急! pb如何连接execl 用Windows2000Internet连接共享出现的问题,请各位大侠解决一下! 关于数据库字段大小问题 ★★如何给一个Dialog加背景图片?★★ MSDN Library 2003中文版3CD下载 判断题在均衡国民收入水平上,经济社会将实现充分就业在均衡国民收入水平上,经济社会将实现充分就业凯恩斯消费函数中强调当期可支配收入对居民消费的决定作用解释一下这两句话是对 抛物线y=2(x-2)平方-5上有一点A(3,-3),则它关于此抛物线的对称轴的对称点的坐标是1、抛物线y=2(x-2)平方-5上有一点A(3,-3),则它关于此抛物线的对称轴的对称点的坐标是今天就要, 若a是,30的算数平方根(我不会打)的整数部分,b是,30的算数平方根的小数部分,那么a b是多少a等于多少B等于多少不要那么麻烦啊, 个无盖长方体铁箱,长4dm,宽和宽都是2dm,要在铁箱里外都涂一层防锈漆,涂防锈漆的部分有多大? 三人行,必有我师焉有没有下一句 给固定在地上的一个无盖的长方体铁箱喷防锈漆,要将所有漏在外面的表面都喷漆,需要喷( )个面 三人行,必有我师焉的下一句是什么? 一个长方体铁皮箱,底面是周长20分米的正方形,给这个油箱的外表涂上防锈漆,涂油漆的面积是多少?如果每升汽油重0.68千克,这个油箱最多能装多少千克汽油? 右图是反比例函数y等于x分之n加7的图像的一支,根据图像回答下列问题在这个函数图象的某一支上任取点A(a,b)和点B(a‘,b’).如果a大于a‘,那么b和b’有怎样的大小关系? 关于一句话,我想知道对错.就是说,世界上凡是有人类所发明出来的东西,都是人类可控制的,换句话说就是,未来人类所研制的一切机械,或者是其他的东西也都是在人类所控制的范围之内,从而 我想知道:678错误 全球最大海上书店抵达巴林中俄舞台艺术对话举办美最大银行被罚130亿美元“北京中轴线”展在开罗举办奥巴马称对特工可能监听默克尔电话之事壮汉翻拍性感照做广告 翘臀又嘟嘴(高窃听默克尔,奥巴马早就知情?监听亚太,美曾想“借道”日本光缆美动物园老虎“抢南瓜”迎万圣节(高清周边外交需要邻国间更深入地相互理解意大利女画家作品武汉展出 观众:口味容世道“国学公益大讲堂” 让传统智慧福州商家销售或改装电动车强光灯 每辆福州西湖菊展8日开展 将演绎《西游记迈向“商旅文综合体”,中国木雕城再提万达10亿美元并购美国DCP公司 进四川省政府发布人事任免 严卫东任四川2016中国浮空器大会东莞召开 推动上下杭采峰别墅建成百年 拟12月完成北京汇金行投资基金管理有限公司荣获 “低价游”频引纠纷 福建启动专项整治闽侯南通昨拍出两幅地块 成交总价17
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘