VB及各数据库的几种连接方式.docVIP

下载本文档

3
0
约8.57千字
约 6页
2017-06-13 发布于福建
举报
版权申诉

VB及各数据库的几种连接方式.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

－、用DAO控件连接数据库 1.与Access2000数据库连接 Private Sub Command1_Click() 也可直接在控件属性中设置以下各项但在控件属性中不能写入密码只有在数据数没有密码的情况下可以省略 Data1.Refresh Data1.Connect = Access 2000; Data1.DatabaseName = App. Path + \chncmadb.mdb 数据库没有密码此句可省 Data1.Connect = ;pwd=123456 Data1.RecordSource = 耕地资源管理单元属性数据表2004　 Data1.RecordSource = select * from 耕地资源管理单元属性数据表2004 Data1.Refresh ’move后才能正确显示记录个数 End Sub 2.与没有密码的DBF文件数据库连接 Private Sub Command2_Click() Data1.Connect = dBASE III; Data1.DatabaseName = App. Path Data1.RecordSource =DBF Data1.RecordSource = select * from dbf Data1.Refresh ’move后才能正确显示记录个数 End Sub 3.与没有密码的Excel文件数据库连接 Private Sub Command3_Click() Data1.Connect = Excel 8.0; Data1.DatabaseName = App.Path \EXcel.xls Data1.RecordSource = select * from [EXcel.xls] Data1.Refresh ’move后才能正确显示记录个 End Sub 二、用DAO代码连接数据库在使用DAO对象前应选定Visual Basic菜单下的[工程]中的引用了菜单中的[Microsoft DAO 3.6 Object Library]选项，或其它版本 1.DAO代码与Access数据库连接 Private Sub Command1_Click() Dim Db As Database Dim Rs As Recordset 以共享、读写方式打开如果无密码最后一个参数可以不要 Set　Db= OpenDatabase(App.Path \chncmadb.mdb, False, False, ;pwd=123456) 不需要move来更新记录个数 Set Rs = Db.OpenRecordset(耕地资源管理单元属性数据表2004) 需要move来更新记录个数 Set Rs = Db.OpenRecordset(select * from [耕地资源管理单元属性数据表2004]) If Rs.RecordCount 0 Then Rs.MoveLast Rs.MoveFirst End If End Sub 2.DAO代码与没有密码的DBF文件数据库连接 Private Sub Command2_Click() Dim Db As Database Dim Rs As Recordset 以共享、读写方式打开 Set Db = OpenDatabase(App.Path, False, False, dbase III;) 不需要move来更新记录个数 Set Rs = Db.OpenRecordset(DBF) ’需要move来更新记录个数 Set Rs = Db.OpenRecordset(select * from [DBF]) If Rs.RecordCount 0 Then Rs.MoveLast Rs.MoveFirst End If End sub 3. DAO代码与没有密码的Excel文件数据库连接 Private Sub Command3_Click() Dim Db As Database Dim Rs As Recordset 以共享、读写方式打开如果无密码最后一个参数可以不要 Set Db = OpenDatabase(App.Path \EXcel.xls, False, False, Excel 8.0;) 不需要move来更新记录个数 Set Rs = Db.OpenRecordset(EXcel.xls) 表格中的工作目录sheet 需要move来更新记录个数 Set Rs = Db.OpenRecordset(select * from [EXcel.xls]) 表格中的工作目录sheet If Rs.Re