vb.net连接数据库(vb 连接数据库)

前沿拓展：

vb.net连接数据库

数据库与文本反另破文件返回数据的方法不同.如果把文本文件比作一个Textbox 的话,那么随吸都反更数据库更像是一个ListBox.使用文本文件时我们需要从整个Textb后,下一步我们要做的就是打开数据库了.

先看下面的代码,可以成功的打开数据库.
***.open "Provider=microsoft.***.oledb.4.0;Data Sourc取e=D:\***.mdb"
这句代码打开了D盘中的***.mdb这个数据库.
***.open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分"Provider=microsoft.***.oledb.4.0",它表示了数据库的类型.不同的数据库可能会不同.后半句"Source=d:\***.mdb"它表示了数据库所在的绝对路径.

打开数据库之后,还要打开表.假如数据库中有一个表,表名为"Users",字段有两个,一个为用户名,一个为密码.那么看以下代码.

1.想返回"Users"中,[用户名]为"去年烟花"的[密码]
***.open "Select 密码 From Users Where 用户名='去年烟花'",Connection,1,1

之后我们就可以把用户输入的密码进行比较,看是否允许登录.
If ***.eof and ***.bof then
Msgbox "用户不存在!",16
Else
If PassWord =Recordset("密码").value then
msgbox "登录成功!",64
Else
msgbox "密码错误!",32
End If
End If
***.close

2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来
***.open "Select * From Users",Connection,1,1
这时,表已经被打开,我们就用以下代码把它显示出来.
Do whlie Not ***.eof
Print "用户名: " & Recordset("用户名").value & "密码: " & Recordset("密码").value
***.moveNext
Loop
***.close

由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句.

Select [字段名] From 表名 [Where 条件]

这里的条件可以省略.且字段名也可以用"*"来代替所有字段.

需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset("密码")就没有值存在,还有可能出错.

后面的条件,可以用"="、">"、"<"等运算符.比如 "Where ID > 32".(这里假设[ID]为数字型.)

这是打开的部分.第二个很重要的部分就是查询记录.

数据库它并不是把所有记录全部放到一个变量中备用的.而是以"当前记录"的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行**/筛选.

**:
移动到下一条 ***.moveNext
移动到上一条 ***.movePrevious
移动到最后一条 ***.moveLast
移动到第一条 ***.moveFrist
移动到某一条 ***.move Number

筛选:
***.find "条件"

如:[用方法(2)打开表之后]
Private Sub Command1_Click()
***.find "用户名=" & "***.text"
If ***.eof <> True Then
Msgbox "该用户的密码是:" & Recordset("密码").value,64
Else
Msgbox "未找到该用户的资料!",16
End If
End Sub

MoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True时….
而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用.

Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录.

第三个部分就是添加/修改记录.
修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了.
比如:[(修改密码)按方法(1)打开表之后]
Recordset("密码").value = "123456"
***.updata
需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效.

而添加记录则可以用以下代码来实现:
***.addnew
Recordset("用户名").value = "Admin"
Recordset("密码").value = "Admin"
***.updata

这里,先要调用Addnew方法,增加一条新记录,第二对这个新记录中的各字段赋值,最后再调用Updata方法.

到这里就差不多了,最后说一下上面提到的几个方法.

***.open SQL语句,数据源,游标类型,打开方法

SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据
数据源就是一个打开之后的Connection对象.
去他**游标类型,填1就可以了 [偷笑ing]
打开方法对应了几个常数,具体哪几个可以从对象浏览器里看.
对应数值的意义:
1 只读 2 独占 3 可写 4 自已可写,别人可读

***.open 连接代码,服务器用户名,密码
这里的连接代码就不在多说了,服务器用户名,密码只有在连接远程数据库时才用到.

本人使用的是非常精巧的VB6sp6中文版，只有6M。可私信联系索取或者另行下载。

它有以下优点：

一、安装方便，易于携带：从win98（如果有老古董机）到win10全面适用。不挑机器，安装简单。不像有些开发工具，动辄上百M甚至要安装几十G。如果只想做些小工具，完成office开发，做些excel小工具，安装个巨无霸，也太夸张了吧。如果同学们已经有了VB6任何一个版本也可以用。我提供的这个版本并没有什么特别之处，我只是喜欢它绿色精致。

二、绿色小巧，发布简单，适用范围更广。发布就一个exe,不要安装。其他很多插件或者工具都要安装发布，自带一大堆netframework框架、VSTO支持库、可能还要安装证书，选择不同win32或者64系统，对office excel版本也有要求………

三、无缝衔接。用vb6做个工具，取代vba,升级成本最小，无论是前面学习过**作技巧、公式应用还是VBA开发，重新换VB6开发这些经验都可以用上。VB6也是非常成熟的编程软件，网上大量资源可以利用，请VB6用户或者VC用户写个dll,写个库，也很容易做到。

四、VBA做的作品，总担心源码泄露，由于excel本身防护能力弱，网上破解xls或者xl**工作簿的工具一大堆，辛苦做了个工具，分分钟就被破解。

如果普通破解被人使用也算了，可是这种破解或者叫暴破，连源码都一起暴露了。这叫人情何堪啊。即使是使用C#/VB.net这样高级的工具做的软件，也担心源码暴露。

VB6虽然小巧，破解难度也比较高，当然所有软件都存在被破解的问题。即使被破解让人**，也不担心源码泄露。这点是不是让人很放心? 如果采用更高级的加密防护机制，提高破解难度，花很大的人力成本，破解这样的工具，估计会让破解者也头疼，划不来啊。

VB是完整意义的编程软件，它可以控制office组件中excel,可以**于office存在，更可以访问系统文件、网络、数据库。。。。。。

这些事如果让VBA来做，那可太麻烦了。

所以以下VB6+excel教程,可以帮助功能**作用户、公式用户、VBA用户进阶升级，实现更多难以实现或不能实现的任务。

在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 14.0 object library”项。本人使用office2010版本。由于你的Excel版本不同，所以这个选项的版本号也是不同的。同学们随意使用哪个版本都可以。VB6对任意版本excel都可以读写，excel版本之间的差异几乎可忽略不计。

因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。

第一层：Application对象，即Excel本身；

第二层：workbooks对象集，指Excel的工作簿文件；

第三层：worksheets对象集，表示的是Excel的一个工作表；

第四层：Cells和Range对象，指向Excel工作表中的单元格。

VB6可以做更华丽的界面，远不是VBA中那个userform简陋窗体可比。

拓展知识：

vb.net连接数据库

VB.NET中有控件可以真接接点击属性进行连接配置.
SqlConnect数据连接控件.点击ConnectionString属性进行配置就可以了.
VB.NET中没有RecordSet了.取而代之的是DataSet.
在VB.net中可以先用SqlConnection对像来连接数据库再用SqlDataAdapter对像来读取数据并填充到DataSet里.第二就可以进行数据绑定了.
例:
dim
conn
as
SqlConnection
dim
da
as
SqlDataAdapter
dim
ds
as
Dataset
set
conn
=
new
SqlConnection
conn.ConnectionString="server=serverIP;database=databasename;uid=userid;pwd=password";
conn.open
da
=
new
SqlDataAdapter
(,conn)
da.fill(ds)