access操作mysql数据库实例_VB实例教程之操作Access数据库

数日心血，无私奉献！

1.解决了很多网友修改后datagridview1之后无法保存数据到数据库的问题！

先导入三个类，使后文写代码时简单，就是省去了包的路径，可直接用类名

Imports System.Data.SqlClient

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Dim odCnn As OleDbConnection'定义一个连接，用于打开数据库，以便事先取出表名

Dim odApter As OleDbDataAdapter'定义一个桥接器，介于内存中DataSet表和数据库之间，任何改变都在内存中进行，先不做实质性动作，直到需要确定了，才回发给数据库做实质性改动。

Dim dataPath As String'数据库的路径，含文件名

Dim passWord As String’数据库密码

Dim cnnStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data source="‘用于连接的字符串　引擎

Dim selectTabel As String'选定的要打开的表，确定后才能打开

Dim sqlStr As String’查询

Dim dataSet As DataSet‘内存中的虚拟的数据表，表的集合，有架构

Dim dataTable As DataTable’表，用于填充网格组件

Dim openFileDlg As OpenFileDialog‘代码创建的通用打开对话框

Dim dataGridView As DataGridView’用代码创建的网格

Dim CB As OleDbCommandBuilder‘能自动生成保存信息的工具，就是它在后台默默无闻地工作，才能够在确定之后自动完成保存任务：就是网友大为困惑的无法将DataGridView1中修改的内容保存数据库的问题。

Function dlg(ByVal index As Integer) As String’自定义函数，生成并调用打开对话框，获取数据库的路径

openFileDlg = New OpenFileDialog‘创建实例　它是隐式的，不用加载到窗体上

With openFileDlg’对一个对象进行格式化操作，用With方面，