VB怎么连接访问Access数据库?

方法/步骤：

1、Access，建立数据库，数据库命名为Database1.mdb。

(注意：这里的后缀是mdb，如果Access是2007版本的，保存的时候要另存为2003版本的才行，因为，VB不直接支持07版的accdb后缀格式!)

2、数据库建立后就进入了数据表界面，可以输入数据了，输完以后Ctrl+S保存，输入表名，这里表名为test，OK，准备工作搞定。

2、打开VB，然后新建标准EXE。

3、菜单中找到工程→部件→勾选Microsoft ADO Data Control 6.0及其Microsoft Hierarchical FlexgridControl 6.0，勾选后左侧工具栏里就多了两个控件即ADODC控件和MSHFlexGrid控件。

4、选择ADODC控件和MSHFlexGrid控件，放在窗体的合适位置，如图：

5、设置ADODC控件的属性：右键窗体内ADODC1控件。

(1)ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider点击下一步→选择之前准备好的数据库→点击测试连接，显示测试成功则OK，确定。

(2)ADODC属性页→记录源→命令类型选择2-adcmdtable，表或存储过程名称选择之前建立的数据表test，点击确定，ADODC属性设置完成。

6、设置MSHFlexGrid控件的属性：VB右侧属性表里，找到datasource，选择adodc1。

7、测试效果：

(1)菜单→运行→启动(F5)，发现显示的数据排列不是我们想要的行数和列数。

修改方法：

(1)MSHFlexGrid属性→通用→设置行和列，固定行和固定列，设置见图。

(2)MSHFlexGrid属性→带区→把列标题的√取消掉，设置见图。

8、修改后的测试效果：

VB如何连接SQL Server数据库?

在VB6.0中，数据访问接口有三种：

1、ActiveX数据对象(ADO)

2、远程数据对象(RDO)

3、数据访问对象(DAO)

1.使用ADO(ActiveX Data Objec，ActiveX数据对象)连接SQL Server

1)使用ADO控件连接

使用ADO控件的ConnectionString属性就可以连接SQL Server，该属性包含一个由分号分隔的argument=value语句的字符串，用于指定建立与数据源连接的信息，语法如下：

[vb]

Provider=Drive;Password=UserPassword;PersistSecurity Info=False;User ID=UserName;Initial Catalog=Data Name;DataSource=ServerName

例：使用ADO控件连接名为student的数据库

[vb]

PrivateSub Form_Load()

Adodc1.connectionstring="Provider=SQLOLEDB.1;Password=;PersistSecurity Info=False;User ID=sa;Initial Catalog=student;Data Source=."

End Sub

2)使用ADO对象连接

ADO的数据库访问技术，不仅可以通过VB提供的控件实现，还可以通过ADO相关的对象实现。ADO对象包括了command对象、connection对象、recordset对象、Error对象、field对象、parameter对象、property对象，其中，connection对象是用来管理与数据库的连接的

例：使用connection对象的Open方法连接名为student的数据库

[vb]

Dim cnn as ADODB.Connection

Privatesub Form_Load()

set cnn=New ADODB.Connection

Cnn.open="provider=SQLOLEDB;password=;PersistSecurity Info=true;User ID=sa;Initial Catalog=student;Data Source=."

End Sub

2.使用DAO(Data Access Object，数据访问对象)连接SQL Server

使用DAO连接SQL Server可以使用VB提供的Data控件实现，使用其访问SQL Server时需要掌握connect属性用于定义所要连接数据库的类型，由于Data控件采用的是Access/Jet为数据引擎，所以访问SQL Server时需要用ODBC间接访问

connect属性访问ODBC时的字符串格式设置：

[vb]

ODBC;DataBase=DataName;UID=UserName;PWD-UserPassword;DSN=DataSourceName

例：用Data控件通过ODBC中的studentinfo数据源连接名为student的数据库

[vb]

PrivateSub Form_Load()

Data1.connect="ODBC;DataBase=student;UID=sa;PWD=123;DSN=studentinfo"

End Sub