VS2010连接ACCESS2016

2024年2月3日发(作者：)

VS2010与ACCESS2016连接一．使用向导创建1.创建工程项目（如图1所示）图12.由于VS2010的工具栏中将OleDbDataAdapte、OleDbConnection、DataGrid组件是隐藏的，所以先安装图2将这些组件设置为显示

图23设置OleDbDataAdapter组件在工具栏中，选中OleDbDataAdapter组件，拖放到窗体中，然后系统会自动打开数据适配器配置向导，如图3-1。点击新建连接，在添加连接窗口中点击数据库文件名下面的浏览选择需要导入的数据库文件，然后在添加连接窗口中点击左下角的测试连接按钮，要是测试成功，则表示添加数据库文件成功，否则重新设置，如图3-1。然后关闭添加连接窗口，一直点击下一步，直到出现图3-2所示的窗口，点击查询生成器，在查询生成器中进行设置。最后可以得到如图3-3所示的结果。（可以看到系统自动将OleDbConnection组件也添加到了项目中）图3-1

图3-2图3-34.然后单击菜单栏：数据-生成数据集，添加数据，选择默认即可，然后单击OK，即可把TeacherData1组件添加到项目中，如图4

图45.双击窗体，添加一下代码,注意的是括号中添加的是前面生成的那个类组件(TeacherDataSet11)6.向窗口添加一个DataGrid控件，以便查看TeacherDataSet11中的数据。其中最重要的属性设置是DataSource和DataMember两个属性。7.运行代码，得到图5结果图5二．使用进行数据库编程类简介onnection类

1.1连接字符串参数DimObjConnectionasOleDbConnection=NewOleDbConnection(Provider=.4.0;Data“Source=|DataDirectory|02教学管理.mdb;PersistSecurityInfo=True”)1.2打开和关闭连接()’用以打开数据库连接()’用以关闭数据库连接ommand类2.1初始化DimobjCommandasOleDbCommand=newOleDbCommand()2.2设置属性Connection属性：tion=objConnectionCommandText属性：用于指定要执行的SQL语句或存储过程。如：dText=”INSERTINTO教师”&“（老师编号,名字,性别,工作时间,政治面目,学历,职称,电话号码,系别）”&“VALUES(25689,”刘大成”,”男”,’#2017-2-24#,”党员”,”博士”)”Parameters集合属性：用以编程时，暂时代替更新内容参数dText=”INSERTINTO教师”&“（老师编号,名字,性别,工作时间,政治面目,学历,职称,电话号码,系别）”&“VALUES(@老师编号,@名字,@性别,@工作时间,@政治面目,@学历,@职称,@电话号码,@系别)”下面还可以使用Add方法向这些参数赋值：(“@老师编号”,)(“@名字”,)(“@性别”,)ExecuteNonQuery方法：()eNonQuery()()ataAdapter类SelectCommand：用于将数据库中的数据填充到DataSet中，其有着自己的属性：tion：设置用来访问数据存储的OleDbConnection对象dText：设置用来选取数据的SQL语句或存储过程名称例如一下代码：DimobjDataAdapterasNewOleDbDataAdapter()Command=newOleDbCommand()tion=dText=”SELECT老师编号,名字,性别FROM教师”&”ORDERBY老师编号”C.使用命令生成器创建其他命令(下面这条命令可以让用户所做的修改返回到数据库)DimobjCommandBuilderAsOleDbCommandBuilder=newOleDbCommandBuilder(objDataAdapter)D.设置数据适配器的执行数据处理的方式：SQL语句（默认），读取存储过程

dType=(默认)dType=方法：在DataSet对象中填充由OleDbAdapter对象使用其SelectCommand从数据库存储中检索到的数据。DimobjDataSetasDataSet=NewDataSet()(objDataSet,,”教师”)t类DataSet类是用来存储从数据存储中检索的数据，并保存到客户机的内存中。ew类一般用于从DataSet中排序、过滤、编辑和导航数据。DimobjDataViewasDataView=newDataView((“教师”))属性对数据进行排序=”教师编号”’默认为升序排列=”教师编号DESC”’添加DESC关键字，使得其为降序排列ter属性对数据的行进行过滤ter=”教师=“张乐””方法寻找特定数据源=”教师编号”inPosition=(“96023”)’如果找到一个匹配的，Find方法将返回该记录在DataView中的位置，否则将返回-1，表示没有找到任何匹配数据；使用Find方法还有一个特点是，当DataView中的匹配的数据不止一个时，Find方法在找到第一个后将停止查找；Find方法不区分大小写，还可以对多个列同时进行匹配寻找，如一下代码：DiminPositonAsIntegerDimarrValues(1)=”教师编号,姓名”arrValues(0)=”96023”arrValues(1)=”刘常”inPositon=(arrValues)编程实例例一（以02教学管理.mdb为数据源）：'导入命名空间ublicClassForm1DimobjConnectionAsOleDbConnection=NewOleDbConnection("Provider=.4.0;DataSource=D:02教学管理.mdb;PersistSecurityInfo=False")'添加数据连接对象

DimobjDataAdapterAsNewOleDbDataAdapter'添加数据适配器对象DimobjDataSetAsNewDataSet'添加数据存储对象，作为数据存储容器PrivateSubForm1_Load(,rgs)Command=NewOleDbCommand()'初始化一个OleDbCommand类的一个实例，并赋予其SlectCommand属性tion=objConnection'将Connection属性设置为连接对象dText="select*from教师"'要执行的SQL语句dType='设置执行的方式，这里选择默认的SQL语句，此条语句可以省去()'打开数据连接(objDataSet,"教师")'将数据填充到数据存储容器中()'关闭数据连接urce=objDataSet'设置DataGrid对象的数据来源mber="教师"'清理内存，释放空间objDataAdapter=NothingobjConnection=NothingEndSubEndClass运行结果：例二（以02教学管理.mdb为数据源）'导入命名控件

ublicClassForm1DimcnAsOleDbConnectionDimdaAsOleDbDataAdapterDimdsAsDataSetPrivateSubForm1_Load(ByValsenderAsObject,ByValeAsEventArgs)mcnStrAsString="Provider=.4.0;DataSource=E:软件学习Acesssucai02教学管理.mdb;PersistSecurityInfo=False"cn=NewOleDbConnection(cnStr)'DimsqlAsString="select*from教师where性别="&"'"&"女"&"'"DimsqlAsString="select*from教师"da=NewOleDbDataAdapter(sql,cn)ds=(ds,"教师")urce=mber="教师"'urce=(0)da=Nothingcn=NothingEndSubEndClass运行结果：例三（优化DataGrid属性）'下面为对DataGrid属性进行优化的代码DimobjDataGridTableStyleAsNewDataGridTableStyle()'声明允许访问的DataGrid表样式的对象DimobjTextColAsNewDataGridTextBoxColumn()'声明允许自定义DataGrid表列的对象

atingBackColor=Red'改变表的背景色gName="教师"'将背景色映射到指定的表上'设置第一列gName="老师编号"'指定映射的列Text="编号"'设置指定列的标题=40'设置列的宽度(objTextCol)'将改变的列属性添加到DataGridTableStyle中'设置第二列objTextCol=NewDataGridTextBoxColumn()gName="名字"Text="姓名"=(objTextCol)'设置第三列objTextCol=NewDataGridTextBoxColumn()gName="性别"Text="性别"=ent='将列文本对齐方式设置为居中对齐(objTextCol)'设置第四列objTextCol=NewDataGridTextBoxColumn()gName="工作时间"Text="入职时间"=(objTextCol)'设置第五列objTextCol=NewDataGridTextBoxColumn()gName="政治面目"Text="政治面目"(objTextCol)(objDataGridTableStyle)'将表的样式改变添加到DataGrid控件上运行结果：

例四数据绑定（不具备排序功能）ublicClassForm1'mInfo=true")DimobjDataAdapterAsOleDbDataAdapter=NewOleDbDataAdapter("select*fromobjConnection)DimobjDataSetAsDataSetDimobjDataviewAsDataView'创建数据导航对象DimobjCurrencyMangerAsCurrencyManager'创建数据绑定控件和数据源同步'从数据库中获得最新的数据并填充DataView对象PublicSubFillDataSetAndView()objDataSet=NewDataSet()'初始化一个DataSet实例(objDataSet,"教师")'使用数据适配器向存储器objDataSet中存储数据objDataview=NewDataView(("教师"))'指定DataView对象查看DataSet对象上的教师表格数据objCurrencyManger=CType(gContext(objDataview),CurrencyManager)'CType需要两个教师",objConnectionAsOleDbConnection=NewOleDbConnection("Provider=.4.0;DataSource=D:02教学管理.mdb;PersistSecurity

参数：要转换的表达式和转换的类型EndSub'将窗体控件绑定到DataView对象上PublicSubBindfields()'清除绑定()()()()'将绑定设置回到原来数据源("text",objDataview,"名字")("text",objDataview,"老师编号")("text",objDataview,"政治面目")("text",objDataview,"工作时间")'设置状态栏="******准备就绪******"EndSub'记录位置PublicSubShowPosition()=""="***不清楚***"=""="不清楚"="第"&on+1&"项"&""&"共"_&()&"项"EndSubPrivateSubForm1_Load(,rgs)Handles

("姓名")("编号")("政治面目")("入职时间")edIndex=0FillDataSetAndView()'使用FillDataSetAndView过程来填充DataView对象Bindfields()'将窗体控件绑定到DataView对象上ShowPosition()'显示当前记录的位置和DataView对象中包含的所有记录的数目'清理内存objDataAdapter=NothingobjConnection=NothingEndSub'后退到第一个项目PrivateSubButton7_Click(,rgs)on=("******已经处于项目的第一项******")ShowPosition()on=0ShowPosition()EndIfEndSub'后退一个项目PrivateSubButton8_Click(,rgs)on=("******已经处于项目的第一项******")ShowPosition()on-=1ShowPosition()EndIfEndSub'前进一个项目PrivateSubButton9_Click(,rgs)Handles

on=("*****已经处于项目的最后一项******")ShowPosition()on+=1ShowPosition()EndIfEndSub'前进到最后一个项目PrivateSubButton10_Click(,rgs)on=("******已经处于项目的最后一项******")ShowPosition()on=-1ShowPosition()EndIfEndSubEndClass结果：例五数据绑定（具备排序功能）

添加一下代码：'增加排序功能PrivateSubButton1_Click(,rgs)="名字"'默认排序为升序，添加关键字DESC则变为降序="老师编号"="政治面目"="工作时间"EndSelect'使得记录处于第一条上on=0ShowPosition()'使用下面这种方式也可以使得记录在第一条上'Button7_Click(Nothing,Nothing)="******已经完成排序******"&"排序目录："&edItemEndSub结果：

例六数据绑定（查找功能）'查找功能PrivateSubButton2_Click(,rgs)="名字"="老师编号"="政治面目"="工作时间"edIndex<3ThenintPosition=()ElseintPosition=(CType(,Date))EndIfIfintPosition=-="******没有查到对应项目******"="******成功查找******"on=intPositionEndIfShowPosition()EndSub结果：

（待更新）