【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了vb开发数据库应用程序的基本步骤(access数据库) - 大学课件相关资料，希望对各位网友有所帮助!

利用 vb 开发数据库应用程序的基本步骤第一节 数据库系统的增删改1．新建工程 选择 文件 新建工程 一个窗体有很多属性，我们常用的属性有 Caption 和 Name例 如 在 caption 中 输 入 学 生 基 本 信 息 录 入 ， 在 Name 中 输 入student_fr_in2．保存工程 （1）保存窗体 （2）保存工程 对于文件命名应该是见名思意3. 使用 ADO 数据控件 在使用 ADO 数据控件前，必须先通过“工程/部件”菜单命令选择“Microsoft ADO Data Control 6.0OLE DB”选项，将 ADO 数据控件添加到工具箱。

    ADO 数据控件与 Visual Basic的内部数据控件很相似，它允许使用 ADO 数据控件的基本属性快速地创建与数据库的连接。

    在部件属性对话框中选择 Microsoft ADOData Control 6.0 同时再选上 Microsoft DataGrid A Control 6.0 。

    在工具箱中多了两个控件，同时我们将 Adodc 控件拉倒窗体上，该控件是用与和数据库连接的。

     选种 Adodc1，按右键选“ADODC 属性” 进入属性页，这时可以建立和数据库，我们有三种选择：使用 Data Link FileODBS 和 使用连接字符串。

    一般使用连接字符串。

     现在我们手工建立它，点击生成按钮—弹出数据连接属性对话框。

     提供程序允许你指定连接的数据库——这里选择 MicrosoftJet 4.0 OLE DB Provider。

    连接 Access 数据库点击（下一个）按钮将引导我们进入第二页：连接点击 选择需要连接的数据库，点击打开按钮 注意：我们看到所选的数据库有路径，如果数据库文件在当前的工程下，可以去掉路径 可以点击测试连接按钮检验是否可以成功连接—应该是成功的。

    最后，点击确定关闭数据连接属性对话框。

    连接字符串已如下所示：“ProviderMicrosoft.Jet.OLEDB.4.0DataSourceStudent.mdbPersist Security InfoFalse” 在 Adodc1 属性页点击“记录源页” 、 在命令源下拉列表中可以选择“表”“文本”“存储过程”等假如选择表，可以看到4.选择 student 表5. 添加 DataGrid 控件，设置 DataSource 属性为 Adodc16. 运行工程。

    当数据库中有数据时我们可以看见数据。

    7．数据库的增删改 在工具箱中拉控件 Label、Text 和 Commandbutton，修改 Label和 Commandbutton 的 caption 属性 （例如学号、姓名、新增、删除等等） 1连接数据库的字段 选种 Text1 在属性中选择“DataSource” 再在“Datafield”中选择“sno” 依次类推可以连接姓名，性别等字段。

     2 利用编程来对数据库进行增删改新增按钮程序Private Sub Cmd_insert_Click Cmd_insert.Enabled True Cmd_delete.Enabled False Cmd_update.Enabled False Cmd_cancel.Enabled True Cmd_save.Enabled True Cmd_find.Enabled False Cmd_Refresh.Enabled False Adodc1.Recordset.AddNew Text1.SetFocusEnd Sub删除按钮程序Private Sub Cmd_delete_ClickAdodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd Sub修改按钮程序Private Sub Cmd_update_Click Cmd_insert.Enabled True Cmd_delete.Enabled False Cmd_update.Enabled False Cmd_cancel.Enabled True Cmd_save.Enabled True Cmd_find.Enabled False Cmd_Refresh.Enabled False Text1.SetFocusEnd Sub放弃按钮程序Private Sub Cmd_cancel_Click Cmd_insert.Enabled True Cmd_delete.Enabled True Cmd_update.Enabled True Cmd_cancel.Enabled False Cmd_save.Enabled False Cmd_find.Enabled True Cmd_Refresh.Enabled True Adodc1.Recordset.Cancel Adodc1.RefreshEnd Sub保存按钮程序Private Sub Cmd_save_Click Adodc1.Recordset.Update Cmd_insert.Enabled True Cmd_delete.Enabled True Cmd_update.Enabled True Cmd_cancel.Enabled False Cmd_save.Enabled False Cmd_find.Enabled True Cmd_Refresh.Enabled TrueEnd Sub查找按钮程序Private Sub Cmd_find_Click mno InputBox请输入学号 查找窗 mno sno like mno Adodc1.Recordset.Filter mno If Adodc1.Recordset.RecordCount 0 Then MsgBox 无 此 学号 提示End Sub刷新按钮程序Private Sub Cmd_Refresh_ClickAdodc1.RefreshEnd Sub 你可以用同样的方法做出其他数据库中表的增删改界面第二节 数据库查询1．建立新窗体 选种工程按右键选择添加再选添加窗体2.保存窗体 修改窗体的名称及 Caption 并保存3.运行窗体的改变工程工程属性从启动对象的下拉式列表选择要运行的窗体4. 在窗体中添加 Adodc 控件，按前面讲的设置 Adodc 的属性。

     这里要注意的是我们这里是查询，要动态的 sql 语句，所以记录源选择“文本”。

    5. 添加 DataGrid 控件，设置 DataSource 属性为 Adodc1。

    6. 添加 CommaneButton Label Edit 控件Command1 改变 Caption 属性 为查询Command2 改变 Caption 属性 为退出Label1 改变 Caption 属性 为学号Label2 改变 Caption 属性 为专业Text1 改变 Text 属性 为空；name 属性为 txt_snoText2 改变 Text 属性 为空；name 属性为 txt_zy查询按钮程序：Private Sub Command1_ClickDim sql As StringDim sql_where As Stringsql_where If Trimtxt_sno.Text Then sql_where sno Trimtxt_sno.Text End IfIf Trimtxt_zy.Text Then If sql_where Then sql_where Speciality Trimtxt_zy.Text Else sql_where sql_where and Speciality Trimtxt_zy.Text End If End IfIf sql_where Then sql Select sno as 学 号 sname as 姓 名 sex as 性别Speciality as 专业BIRDAY as 生日 from student Else sql Select sno as 学 号 sname as 姓 名 sex as 性别Speciality as 专业BIRDAY as 生日 from student where sql_where End If Adodc1.CommandType adCmdText Adodc1.RecordSource sql Adodc1.RefreshEnd Sub7.运行测试当数据库中有数据时我们可以看见数据。

    同样可以做更复杂的查询第三节 连接所有窗体 1．建立新窗体选种工程按右键选择添加再选添加窗体2.保存窗体 修改窗体的名称及 Caption 并保存2．保存窗体 输入文件名 main_form3. 工具／菜单编辑器CTRLE 窗体上快显菜单／菜单编器常用属性： 标题Caption 热键：前面加 名称Name文本框 分隔符也应有名称。

     快捷键Shortcut 菜单名没有快捷键4.菜单程序Private Sub chaxun_ClickForm_cx.Showmain_form.HideEnd Sub