数据库常用连接

在操作ACCESS数据库连接时，经常会用到下面部分代码

Dim con As New OleDb.OleDbConnection

        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mdbPath;Persist Security Info=False"

        Dim cmb As New OleDb.OleDbCommand
        cmb.Connection = con
        Dim adp As New OleDb.OleDbDataAdapter
        adp.SelectCommand = cmb

con.Open()
        Dim TableNametab As New DataTable

        TableNametab = con.GetSchema("Tables")

con.close()

其中con.GetSchema("Tables")是获取该数据库中所有表名，并存与一个新的表中，表名位于第三列(TableNametab.Rows(0).items(2))，创建时间位于第八列

对于数据的打开及关闭con.open()和con.close()，需要用到数据库时才用con.open(),查询后要用con.close()关闭连接，以防后面出现连接问题。adp.fill()可以自动打开数据库，相当于有了con.open()的功能。