vb连接数据库[编辑]

概述

vb总称Visual Basic，Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。

vb简介

Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

vb连接数据库的方式

一、连接Access数据库

1、连接Access 2003数据库

‘连接名为test.mdb的数据库，读取其中的名为myuser的表中的数据，显示在MSHFlexGrid1中。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\test.mdb"
rs.Open "myuser", cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs

2、连接Access 2007数据库

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\" & "test.accdb;Persist Security Info=False"
rs.Open "select * from myuser", cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs

3、连接设置了密码的Access 2003数据库

‘ 连接名为test.mdb的数据库，密码为111，读取其中的名为myuser的表中的数据。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.path & ”\test.mdb;Jet OLEDB:Database Password=111"

rs.Open "myuser", cn, adOpenKeyset, adLockOptimistic

Set MSHFlexGrid1.DataSource = rs

二、连接SQL Server 2000数据库

1、用ODBC DSN（ODBC数据源）连接SQL server 2000

要想使用ODBC DSN访问SQL Server 2000数据库，就要先对ODBC数据源进行配置，步骤如下：
à在SQL的企业管理器中建立好名为test的数据库，其中有一个叫myuser的表à控制面板à管理工具à数据源（ODBC）à选择“用户DSN”选项卡à点“添加”à选中“SQL Server”，点“确定”à在“数据源名称”处根据自己的想法随便给目前正在建立的这个DSN取个名字，本例取为“TEST”；在“数据源描述”处写上一些提示信息，以便以后方便自己了解该DSN的用途；在“服务器”处写上你当要使用的SQL Server服务器，本例中为“ZHANG”à勾选“使用用户输入登录ID和密码的SQL Server验证”，并在“登录ID”和“密码”处填上在你安装SQL Server2000时设置的用户名和密码，本例为“sa”和“111”à勾选“更改默认的数据库为：”，在其中选中你要连接的数据库，本例为“test”数据库à默认选项直到“完成”à点“测试数据源”，若出现“测试成功！”，那么恭喜你，DSN配置成功了。配置好了DSN以后用下面的代码去连接数据库并将读取的数据显示在MSHFlexGrid1中。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "DSN=TEST;UID=sa;PWD=111"
rs.Open "myuser", cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
注意：使用ODBC DSN连接数据库有自身的一些弊端：（1）每台电脑都必须配置DSN，并且有可能还要安装ODBC驱动；（2）一旦修改了DSN，则用户就需要为每台电脑重新配置ODBC。因此，一般还是不采用DSN连接数据库。

2、不使用ODBC DSN连接SQL server 2000

（1）、使用DAO对象进行连接

Dim db as Database
Set ws = CreateWorkspace("","admin", "")
Set db = ws.OpenDatabase("",dbDriverNoPeompt,True,“drvier={SQL Server};server=ZHANG;database=test;UID=sa;PWD=111”)

（2）、使用ADO对象进行连接

‘连接名为test的数据库，读取其中的名为myuser的表中的数据，显示在MSHFlexGrid1中。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Driver=SQL Server;Server=ZHANG;UID=sa;PWD=111;database=test"
rs.Open "myuser", cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs

3、使用OLEDB连接SQL server 2000

OLEDB是基于COM模型的数据库访问接口，是一种驱动程序级别的底层数据访问接口。它可以访问SQL Server，Access，Oracle，Excel，还可以访问文本文件、邮件服务器（Microsoft Exchange）等中的数据。OLEDB连接SQL Server2000，可以通过ADO对象（建立一个Connection对象后连接），也可以通过ADO控件（该控件即Adodc1，数据源为kfgl，在其属性窗口中或通过代码设置ConnectionString属性后连接）。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=SQLOLEDB.1;User ID=sa;Password=111;Initial Catalog=test;Data Source=."
rs.Open "myuser", cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs

三、连接Excel数据表格

1、连接Excel 2003

‘ Excel表格是test.xls，数据放在Sheet1表单中。将读取到的数据放到MSHFlexGrid1中显示。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=FALSE;data source=test.xls;extended properties=Excel 8.0"
rs.Open "select * from [Sheet1$]", cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 10

2、连接Excel 2007

‘Excel表格是test.xlsx（Excel2007的文件格式为.xlsx），数据放在Sheet1表单中。将读取到的数据放到MSHFlexGrid1中显示。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=MSDASQL.1;Persist Security Info=FALSE;data source=test.xls;extended properties="DSN=Excel Files;DBQ=" & App.path & "\test.xlsx";DriverID=1046;FIL=Excel 8.0"
rs.Open "select * from [Sheet1$]", cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 10

四、连接Oracle数据库

VB要连接Oracle数据库，首先要安装Visual Basic 6的SP6补丁，这样才能对Oracal有更好的支持。用ADO控件（即Adodc1，数据源为kfgl）进行连接，该控件的属性设置如下：CommandType设为1-adCmdText；RecordSource设为Select* from 数据库名.kf order by kf.列名；PassWord设为你想要的密码，如111；UserName设为System。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Cn.ConnectionString = “Provider=OraOLEDB.Oracle.1;Persist Security Info=False;UserID=用户名;Password=密码;DataSource=数据源”
Rs.Open “Select* from 数据库名.kf order by kf.列名”,cn

参考资料：

扩展阅读：