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

《VB与各数据库的几种连接方式.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VisualBasic与数据库连接－、用DAO控件连接数据库1.与Access2000数据库连接PrivateSubCommand1_Click()'也可直接在控件属性中设置以下各项但在控件属性中不能写入密码'只有在数据数没有密码的情况下可以省略Data1.RefreshData1.Connect="Access2000;"Data1.DatabaseName=App.Path+"chncmadb.mdb"'数据库没有密码此句可省Data1.Connect=";pwd=123456"'Data1.RecordSource="耕地资源管理单元属性数据表2004"　Data

2、1.RecordSource="select*from耕地资源管理单元属性数据表2004"Data1.Refresh’move后才能正确显示记录个数EndSub2.与没有密码的DBF文件数据库连接PrivateSubCommand2_Click()Data1.Connect="dBASEIII;"Data1.DatabaseName=App.Path'Data1.RecordSource="DBF"Data1.RecordSource="select*fromdbf"Data1.Refresh’move后才能正确显示记录个数EndSub3.与没有密码的Excel文件数据库

3、连接PrivateSubCommand3_Click()Data1.Connect="Excel8.0;"Data1.DatabaseName=App.Path&"EXcel.xls"Data1.RecordSource="select*from[EXcel.xls]"Data1.Refresh’move后才能正确显示记录个EndSub二、用DAO代码连接数据库'在使用DAO对象前应选定VisualBasic菜单下的[工程]中的引用了菜单中的[MicrosoftDAO3.6ObjectLibrary]选项，或其它版本1.DAO代码与Access数据库连接PrivateS

4、ubCommand1_Click()DimDbAsDatabaseDimRsAsRecordset'以共享、读写方式打开'如果无密码最后一个参数可以不要Set　Db=OpenDatabase(App.Path&"chncmadb.mdb",False,False,";pwd=123456")'不需要move来更新记录个数6VisualBasic与数据库连接'SetRs=Db.OpenRecordset("耕地资源管理单元属性数据表2004")'需要move来更新记录个数SetRs=Db.OpenRecordset("select*from[耕地资源管理单元属性数据表20

5、04]")IfRs.RecordCount>0ThenRs.MoveLastRs.MoveFirstEndIfEndSub2.DAO代码与没有密码的DBF文件数据库连接PrivateSubCommand2_Click()DimDbAsDatabaseDimRsAsRecordset'以共享、读写方式打开SetDb=OpenDatabase(App.Path,False,False,"dbaseIII;")'不需要move来更新记录个数'SetRs=Db.OpenRecordset("DBF")’需要move来更新记录个数SetRs=Db.OpenRecordset("se

6、lect*from[DBF]")IfRs.RecordCount>0ThenRs.MoveLastRs.MoveFirstEndIfEndsub3.'DAO代码与没有密码的Excel文件数据库连接PrivateSubCommand3_Click()DimDbAsDatabaseDimRsAsRecordset'以共享、读写方式打开'如果无密码最后一个参数可以不要SetDb=OpenDatabase(App.Path&"EXcel.xls",False,False,"Excel8.0;")'不需要move来更新记录个数'SetRs=Db.OpenRecordset("EX

7、cel.xls")'表格中的工作目录sheet'需要move来更新记录个数SetRs=Db.OpenRecordset("select*from[EXcel.xls]")'表格中的工作目录sheet'IfRs.RecordCount>0ThenRs.MoveLastRs.MoveFirstEndIfEndSub三、用ADO控件连接数据库'也可直接在控件属性中设置以下各项1.ADO控件与Access2000数据库连接6VisualBasic与数据库连接PrivateSubCommand1_Click()'连接有密码的Access