VB数据库实例，本次我们以excel文件作数据库，VB通过连接xls文件进行数据的查询操作。闲话少说，马上开始：

1、首先我们得准备数据文件。文件保存在D盘，文件名是data.xls，文件内容类似下图所示：

图片

注意图片中两个红圈，分别是文件名和表格名，在编程中要用到的。

2、新建工程，添加一个标签控件和四个命令按钮控件，见图：

图片

3、编写代码：

'VB操作数据库实例，excel文件作数据库，文件名data.xls，保存在D盘。

'首先要在菜单的“工程”->“引用”中勾选“Microsoft ActiveX Data Objects 2.8 Library”

'定义两个重要变量 cn 和 rs

Public cn As New ADODB.Connection

Public rs As New ADODB.Recordset

'连接数据库

Private Sub Command1_Click()

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=D:\data.xls;Extended Properties='Excel 8.0;HDR=Yes'"

Label1.Caption = cn.State

End Sub

'关闭数据库

Private Sub Command2_Click()

If cn.State = 1 Then

    cn.Close

End If

End Sub

'打开工作簿中的sheet1表格

Private Sub Command3_Click()

If cn.State = 1 Then

    rs.Open "Select * from [sheet1\(]", cn, adOpenDynamic, adLockUnspecified, 1

Else

    MsgBox "数据库未连接"

End If

End Sub

'显示sheet1表格的第一行的姓名

Private Sub Command4_Click()

If rs.State = 1 Then

    Label1.Caption = rs!姓名

Else

    MsgBox "数据表未连接"

End If

End Sub

'在关闭程序前确保关闭数据库连接

Private Sub Form_Unload(Cancel As Integer)

If cn.State = 1 Then

    cn.Close

End If

End Sub

以上就是所有代码

见图：

图片

4、总结：VB写数据库也是很简单的，初学者要注意的是引用、变量定义的用法：As New、数据库操作字串sql，如例子中的“Select * from [sheet1\)]”，这个句子中的select * 表示查询所有数据，from [sheet1$]表示从sheet1表格中查询数据，合起来就是查询sheet1表格中的所有数据。