信息发布软件,b2b软件,广告发布软件

标题: VB.NET Access数据库连接的实例教程 [打印本页]

作者: 信息发布软件 时间: 2017-1-10 14:38
标题: VB.NET Access数据库连接的实例教程

先来一个简单的实例。

VB.NET 2012

SQl server 2012

Access文件：http://download.csdn.Net/detail/dzweather/5042992

（两个版本，2003,2012,任选一个）

根据前面ADO.net入门的介绍，我们知道了连接的过程。

AccessFile文件，针对的是Oledb，所以首先应引用。

然后，定义三个对象，在实例中再进行创建（这样可以节约点资源）

特别注意的是，里面没有了cmd过程，我感觉这样的入门适合我学习。

这个例子，就一个窗体，一个datagridview（不绑定，用代码绑定），然后就是几句代码，很简单。

[vb] view plain copy
print?

Imports System.Data.OleDb
Public Class Form1
Dim cn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim cnStr As String = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdbersist Security Info=False"
cn = New OleDbConnection(cnStr)
Dim sql As String = "select * from grade"
da = New OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "grade")
DataGridView1.DataSource = ds.Tables(0)
End Sub
End Class

VB.NET Access数据库连接的实例教程 b2b软件

==========================================================================================================

上面的有点简单，但流程清晰。与我们实际应用有很大距离。

下面再跨一步，接近实际应用，即变得较为灵活点：

[vb] view plain copy
print?

Imports System.Data.OleDb
Public Class Form1
Dim cn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim cnStr As String = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdbersist Security Info=False"
cn = New OleDbConnection(cnStr)
Dim sql As String = "select * from grade"
da = New OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "grade")
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub btnQuery_Click(sender As Object, e As EventArgs) Handles btnQuery.Click
Dim cnStr As String = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdbersist Security Info=False"
cn = New OleDbConnection(cnStr)
Dim sql As String = TextBox1.Text
da = New OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "grade")
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub btnQueyName_Click(sender As Object, e As EventArgs) Handles btnQueyName.Click
Dim cnStr As String = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdbersist Security Info=False"
cn = New OleDbConnection(cnStr)
Dim sql As String = "select * from grade where 姓名 like " & "'%" & TextBox2.Text & "%'"
da = New OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "grade")
DataGridView1.DataSource = ds.Tables(0)
End Sub
End Class

代码活没用try catch，反正只是入门。

结果如下：

VB.NET Access数据库连接的实例教程 b2b软件

这样就可以有两个查询方式，一是SQL语句灵活用，二是姓名。

这样一个简单的查询就出来了。这只是一个“查询”，但我们有时还要修改、删除等工作。

在修改，删除时，不但要执行SQL，最终我们还要把结果反馈给用户看。于是就有了第个简单实例。

========================================================================================================

DataGrideView控件，很多选项都是边框、单元颜色、数据格式、选择方式。太多了。画个图加深印象：

VB.NET Access数据库连接的实例教程 b2b软件

作者: 信息发布软件 时间: 2017-1-10 14:40

在向大家详细介绍VB.NET Access数据库连接之前，首先让大家了解下VB.NET的简介，然后全面介绍VB.NET Access数据库连接。

　　Visual Basic.NET 是从 Visual Basic 语言演变而来的，是一种为高效地生成类型安全和面向对象的应用程序而设计的语言。Visual Basic 允许开发人员开发面向 Windows、Web 和移动设备的程序。与所有面向 Microsoft .NET Framework 的语言一样，使用 Visual Basic 编写的程序都具有安全性和语言互操作性方面的优点。这一代 Visual Basic 延续了为您提供一种简单快捷的方法来创建基于 .NET Framework 的应用程序的传统。

　　VB.NET的简介

　　VB.NET是微软最新平台技术，是.netframeworkSDK的一种语言。VB.NET和VC#.NET在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即程序集。VB.net的版本号是VB7.0，它的运行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虚拟器上的。其实，它的机制和Java差不多。

　　VB.NET Access数据库连接

　　采用OleDbConnection对象

Private Function getAccessConnection() As OleDbConnection
Dim dbConnectionString As String = "rovider=Microsoft.Jet.OLEDB.4.0;
Data Source=|DataDirectory|\Resources\mag.mdbersist Security Info=true"
Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)
Try
dbConnection.Open()
Catch Ex As Exception
’MsgBox(Err.Description)
End Try
Return dbConnection
End Function

private Sub fillDataGridView()

Dim sqlStr As String = "select * from Table"
Dim DataAdapter As New OleDbDataAdapter
Dim dataSet As New DataSet
Dim DataGridView As New DataGridView
Dim dbConnection As OleDbConnection = getAccessConnection()

If dbConnection.State.ToString = "Closed" Then
MsgBox(Chr(13) & " access 数据库连接失败 " & Chr(13), , "警告")
Exit Sub
End If

DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection)

Try
DataAdapter.Fill(dataSet,"Table")
DataGridView.DataSource = dataSet.Tables("Table").DefaultView
Catch Ex As Exception
MsgBox(Err.Description)

Finally
dataSet.Dispose
DataAdapter.Dispose
dbConnection.Close
dbConnection.Dispose
End Try

End Sub

　　VB.NET Access数据库文件，可以通过 My Project -> 资源 -> 添加资源 -> 添加现有文件这样的方式来添加调试状态下，每次运行项目，Resources下面的数据库将会覆盖Debug下的数据库。

作者: 信息发布软件 时间: 2017-1-10 14:40

在VB中，连接ACCESS数据库的方法主要有下面三种

使用ADO对象，通过编写代码访问数据库

Connection 对象 ODBC数据源

使用ADO Data 控件快速创建数据库连接

有三种连接方法 Data Link文件 使用ODBC数据源名称 使用连接字符串

使用数据环境设计器创建数据库连接

首先添加环境引用。 然后找到数据源进行连接

无论是哪一种连接，都是先有一个路径，通向要连接的数据源，和数据源建立关系，在连接。就好比从北京到上海，可以做汽车，可以做火车，还可以做飞机，汽车走高速，火车走铁路，飞机走航线，过程不一样，但结果是一样的，都是到达上海目的地。

在操作这三种连接方式的时候，会发现有重复的操作。

Data 控件连接中，ODBC数据源的连接和使用字符串的连接与直接使用ODBC数据源连接中，不同是，直接使用ODBC数据源设置好路径后，再用connection对象连接即可；Data控件则不用Connection 对象，有控件，设置好路径了，就直接连到啦。

数据环境设计器和ADO 对象，都用到了connection连接。不同的是，数据环境设计器中，connection连接途径是和data控件中字符串的连接步骤一致。

总结不同：ADO对象连接需要编写代码，其他的不用编写代码。

下面详细介绍每一种连接方法的详细步骤：

1，使用ADO connection对象

首先，要建立ADO引用，定义connection这个类，然后实例化对象。

代码完成如下：

[vb] view plain copy
print?

<span style="font-size:18px;">Dim objCn As New Connection, objRs As New Recordset
objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\实例01.mdb"
objCn.Open
n>

2，使用ODBC数据源

首先，打开电脑上的ODBC数据源，建立关系。

步骤如下：

1），打开电脑上的ODBC数据源

如下图所示：

2）点击添加

3）命名

4）和数据库源建立关系

5）用代码实现连接

[vb] view plain copy
print?

<span style="font-size:18px;"> dim objCn As Connection
Set objCn = New Connection
objCn.Open "DSN=实例2DSN"
</span>

3，ADO Data 控件创建连接

1）右击data控件，选择ADODC属性

2）从三种连接资源中选择一种。

使用data Link 文件：直接点击浏览，找到包含连接字符串的.udl文件即可

使用ODBC数据源连接，单击新建

选择用户数据库，之后的操作跟2中步骤一样。

使用连接字符串：单击生成

测试连接

4，使用数据环境设计器创建数据库连接

添加引用

右击创建连接，在右击想要连接的属性，之后的操作跟data控件中使用字符串中的操作一致。

作者: yiyi2014 时间: 2017-1-11 00:25
评价的，功能很容易上手，人性化。卖家的服务赞个。下次还光顾

作者: anleeycn 时间: 2017-1-11 05:30
是比较划算的，自己比较轻松

作者: shenyeben 时间: 2017-1-11 09:23
人，解决问题超负责的！点32个赞

作者: niyaoz1 时间: 2017-1-11 15:58
沙发！沙发!

作者: niubt 时间: 2017-1-11 22:54
建站，方便快捷，有专人指导，还是很不错的！

作者: z2340868 时间: 2017-1-12 04:17
说，谢谢店主！...希望下次在合作！

作者: xiaoyaoyao001 时间: 2017-1-12 11:14
。服务非常好。

作者: a001hao 时间: 2017-1-12 16:26
根本不按我的意思来修改了一遍又一遍

作者: jskf10 时间: 2017-1-13 07:58
力很强，必须好评！

作者: 89260881 时间: 2017-1-14 00:06
工作人员态度特别好最关键的是用起来功能太强大了

作者: 小痞子 时间: 2017-1-14 04:34
谢谢，共同发展

作者: 261741908 时间: 2017-1-14 12:04
用，和卖家介绍的一样，操作简单，一学就会，满意。

作者: mmgg 时间: 2017-1-14 19:46
。服务非常好。

作者: xiaoyaoyao001 时间: 2017-1-15 13:59
宜不用到处找资料了

作者: niubt 时间: 2017-1-15 20:19
售后服务人员和技术人员都很好，有问必答。微信平台还在不断完善中

作者: q117971371 时间: 2017-1-16 00:02
值得好评，赞一个！！！

作者: jskf10 时间: 2017-1-16 02:29
情，设计的非常棒，很负责任，挺满意，下次装修在来你们家哦

作者: iiiiik 时间: 2017-1-16 14:46
好很喜欢

作者: pxynmi018 时间: 2017-1-16 23:23
事情好垃圾的

作者: 大宝罗滴滴 时间: 2017-1-17 03:06
计的很满意客服态度也很好可以好评

作者: ye112219 时间: 2017-1-17 04:47
就按要求完成了！力荐！！

作者: 大宝罗滴滴 时间: 2017-1-17 15:31
号、6号、2号小笨蛋的贴心服务！

作者: 261741908 时间: 2017-1-18 02:03
，清晰度也很合适。太划算啦

作者: 枯干枯干 时间: 2017-1-18 11:51
这么细心的店主，耐心，负责，产品也物美价廉，真是太值得了！

作者: ye112219 时间: 2017-1-18 17:49
有耐心的客服，技术也很棒

作者: anleey 时间: 2017-1-18 19:01
，上手简单。

作者: a5206662 时间: 2017-1-18 19:10
有所值，速度也很快。感谢卖家的安装。

作者: meilifc001 时间: 2017-1-18 20:55
使用了，界面清爽，功能齐全，是想要的效果。

作者: 1124789174 时间: 2017-1-20 13:39
前，很耐心解说，付款后效率很快，第二天就做好了！打开微信后确认效果不错，嗮图了

作者: 1124789174 时间: 2017-1-21 03:32
模板操作简单方便，店家讲解详细，有详细的安装程序，卖家服务好，有问必答，而且都是第一时间给予协助，解决了很多问题，大家有需要就买这家就对了，很值得信任的卖家!合作非常愉快，下次还来

作者: dfgdgdfgdf 时间: 2017-1-21 05:22
很强大，操作性也不错，客服响应比较快。基本上一天时间就比较熟悉了。

作者: mm5216299 时间: 2017-1-21 06:29
家！好评

作者: huangge 时间: 2017-1-21 12:56
服务很好

作者: mm5216299 时间: 2017-1-21 16:36
及时做出评价,系统默认好评!

作者: wangliuh11 时间: 2017-1-21 19:51
效，沟通愉快！不错的店家！！！

作者: z2340868 时间: 2017-1-21 23:57
信誉，值得好评!

作者: yangjiang1 时间: 2017-1-22 11:37
懂的问客服都会一一解答，挺好用的，还在熟悉中

作者: nble002 时间: 2017-1-22 23:10
，整体满意，好评

作者: a5206662 时间: 2017-1-23 16:14
的很满意，装修完后跟文案沟通，态度非常好，积极帮我做修改，很满意

作者: java12005 时间: 2017-1-24 03:15
及时做出评价,系统默认好评!

作者: mmgg520 时间: 2017-1-24 15:28
很好，热情有耐心！

作者: 我爱苏苏 时间: 2017-1-24 17:24
常好，帮了我很大的忙，希望今后老板的生意越来越好，老板加油

作者: lalajie 时间: 2017-1-24 20:41
感谢店家的细心指导！！好评！

作者: ebxly 时间: 2017-1-25 15:56
卖家！不厌其烦的解释，非常愉快的交易经历！

作者: q1598188 时间: 2017-1-26 02:50
耐心技术也很牛逼好评

作者: w8899 时间: 2017-1-27 20:30
欢。。卖家很负责的解答我很多问题。给五星

作者: feiyang2006 时间: 2017-1-30 02:30
意，技术和客服服务很不错，很认真，大家有需要找工号07和077，真心不错

作者: 紫逸风 时间: 2017-1-30 19:49
搞了，雏形出来了，看起来真不错，还有多谢工作人员耐心指导。

作者: 1124789174 时间: 2017-1-31 00:38
推荐！

作者: niubttt 时间: 2017-1-31 11:28
的很满意，都是高清图片效果非常好，虽然开始我着急闹的有点不愉快，后面他们的经理芬芬同志很好帮我解决了，还有

作者: jiandao1 时间: 2017-1-31 17:34
业，好评！

作者: meili1 时间: 2017-2-2 09:58
好非常耐心，技术员静静也很好，长期合作哦～

作者: qingling520 时间: 2017-2-2 22:14
，问了很多问题，都耐心回答，效果很好，不信自己看，名字叫宿迁德乃福，内容后期自己添加有点难，慢慢学吧，不多说了开发好不好你看看我公众号不就行了

作者: 大宝罗滴滴 时间: 2017-2-2 22:45
技术，价格合理，谢谢！

作者: 乱世扶稣 时间: 2017-2-3 07:25
谢谢，共同发展

作者: 429187535 时间: 2017-2-3 15:28
，都是比较经典的资料。

作者: 大宝罗滴滴 时间: 2017-2-3 15:31
情，设计的非常棒，很负责任，挺满意，下次装修在来你们家哦

作者: 脱颖而出 时间: 2017-2-3 17:42
，就是一个大坑！

作者: 小痞子 时间: 2017-2-3 17:48
高大上了，服务很周到，能达到我想要的效果，设计后生意越来越好了！好开心啊！

作者: 紫逸风 时间: 2017-2-3 20:11
的不错，功能比较强大，完全超过我的需求，重新改logo要收钱价太高?

作者: x201323 时间: 2017-2-4 00:17
前，很耐心解说，付款后效率很快，第二天就做好了！打开微信后确认效果不错，嗮图了

作者: 小痞子 时间: 2017-2-4 22:09
棒棒哒！先让他们设计一款宝贝详情，速度快不说，客服态度也好，本来不相信这些网上的东西，没想到还真特么的不错哈哈

作者: chenzhanhua 时间: 2017-2-5 17:28
.耐心。负责

作者: 261741908 时间: 2017-2-5 17:40
很好！售后服务也不错。希望下次可以做几个连接的小头像！！！！！！！?，短短的时间完成，ok。

作者: niubttt 时间: 2017-2-5 18:18
选到有自己中意的模板！

作者: mmgg520 时间: 2017-2-5 19:34
好好学习了确实不错

作者: 紫逸风 时间: 2017-2-6 05:50
，售前售后都有回访跟进，比较负责的！

作者: huangge 时间: 2017-2-6 08:47
，大爱，喜欢，是我想要的，不错，值得购买，

作者: qingling520 时间: 2017-2-6 15:14
老板！希望长期合作！

作者: dccmdy 时间: 2017-2-6 16:24
收到了，安装上了，特别好用，速度很快,商家的售后做的很到位，耐心的讲解，热情的招待，技术方面很专业.

作者: ggt567 时间: 2017-2-6 16:24
我们信赖，服务非常好

作者: 小痞子 时间: 2017-2-6 23:39
位，修改的速度很快。

作者: yiyi2014 时间: 2017-2-7 08:09
和5号笨蛋好评非常不错服务好技术好

作者: 枯干枯干 时间: 2017-2-7 14:47
的买家发货速度快态度超好非常有耐心还有导师教的细致，一窍不通的装修店铺，就这么轻松完成了，有装修的朋友赶快来吧保证不会后悔的

作者: c19900420 时间: 2017-2-7 15:31
好评厉害耐心的卖家

作者: wbd902 时间: 2017-2-7 17:55
使用了，很好很稳定！客服和技术人员服务耐心细致，赞一个！这个价格也特别实在，性价比很高

作者: ctbvip 时间: 2017-2-7 20:28
棒棒哒！先让他们设计一款宝贝详情，速度快不说，客服态度也好，本来不相信这些网上的东西，没想到还真特么的不错

作者: aluoting 时间: 2017-2-8 04:44
家，很有信誉，好评

作者: zxj333 时间: 2017-2-8 04:55
功能很全，也比较容易上手，有弄不明白的就问售后技术，回答的很有耐心。

作者: linshihu 时间: 2017-2-8 15:21
错，目前还没时间调，过几天再开始调试。

作者: yangjiang1 时间: 2017-2-8 17:19
富，操作简单方便，很实用，服务态度很好。满意。

欢迎光临信息发布软件,b2b软件,广告发布软件 (http://www.postbbs.com/)