VB.Net链接Access的方法

来源：互联网发布：文怀沙知乎编辑：程序博客网时间：2024/04/28 21:36
'------------------VB.Net链接Access方法---------------------------------------- 
                    Dim objConn As New OleDbConnection()
                    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" + Application.StartupPath() + "/PDDAWEB.mdb"
                    objConn.Open()
                    Dim objCmd As New OleDbDataAdapter("select * from pddawebtest", objConn.ConnectionString)
                    Dim ds As New DataSet()
                    objCmd.Fill(ds, "pddaweb")
                    objConn.Close()
                    Dim myTable As DataTable = ds.Tables("pddaweb")
                    myTable.Rows(0)("name") = "gantian"
                    Dim myRow As DataRow = myTable.NewRow()
                    myRow("name") = "yitahutu"
                    myRow("age") = "30"
                    myTable.Rows.Add(myRow)
                    Dim objCB As OleDbCommandBuilder = New OleDbCommandBuilder(objCmd)
                    objCmd.Update(ds, "pddaweb")
                    Console.WriteLine("that is ok.")
                    Console.ReadLine()
'Application.StartupPath()是指当前程序的目录，这个是System.Windows.Form里有的一个变量。 
'/PDDAWEB.mdb是具体的Access文件名称，还有前面需要一个"/" 
'select * from pddawebtestSQL语句，这里用的是导出表信息。 
'pddaweb指的是填充用的表名， 
'蓝色部分起到的作用是回滚，只有回滚了，数据表才能更新。