VB与数据库开发三步走攻略，保存信息很简单！

最近有好多朋友问我，如何通过VB连接Access数据库，并且保存到数据库中的问题。

今天我专门抽出时间，编写一下。希望能给大家帮助。

VB与数据库结合开发管理系统是VB最实用的一个功能。我们都有必要掌握。

三步走战略

第一步：根据实际需求，建立相应的数据库表。

比如我们用最简单的用户信息功能来说，每位用户至少要有两个信息:用户名、密码。我们就根据这个在数据库中先定义表结构，建立字段；

表结构设计

设计好的数据库表信息

第二步：根据数据库表字段，建立相应的窗体界面。添加控件，完成数据库加载。

需要添加和引用的控件有：

文本框、标签、命令按钮这些基本控件，在此不赘述；

在部件中添加ADO数据库连接控件（也可以用Data）

在组件中引用下图选中的组件。

设计好的窗体界面

在窗体初始化事件中，写数据库驱动连接代码：

Private Sub Form_Load() '设置连接的数据库和数据表信息

    Adodc1.Visible = False

    Adodc1.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & App.Path & '\工资管理系统.mdb;Persist Security Info=False'

    Adodc1.CommandType = adCmdText

    Adodc1.RecordSource = 'select * from 用户登录'

    Adodc1.Refresh

End Sub

提示：App.Path 表示数据库文件和VB工程在同一个文件夹；

紧跟着App.Path 后面的是数据库的名字；

'select * from 用户登录'，红色部分是你要操作的数据库里表名。

添加用户信息功能实现

添加用户信息到数据库代码实现：

Private Sub Command1_Click() '添加用户信息

    Adodc1.RecordSource = 'select * from 用户登录'

    Adodc1.Refresh

    If Trim(Text1.Text) = '' Or Trim(Text1.Text) = '' Then

      MsgBox '用户姓名和密码都不能为空！', vbInformation vbOKOnly, '提示'

      Exit Sub

    Else

      With Adodc1.Recordset

        .AddNew

        .Fields(0) = Text1.Text

        .Fields(1) = Text2.Text

        .Update

      End With

      MsgBox '用户信息添加成功!', vbInformation vbOKOnly, '提示'

    End If

End Sub

实际运行图

提示成功后，数据库表中的信息同步存在

今天的内容就到这里，希望能给大家认识数据库开发带来帮助。明天的文章中，我们将讲解如何实现登录功能。