【日常小结】VB.NET下操作Access数据库

VB.NET下操作Access数据库

啥也不说，直接上代码

第一步：建立数据库以及数据表 

 '创建新的空access数据库表
        Dim cat As Catalog = New Catalog()
        Dim s As String = "ProductData.mdb"
        If Not (My.Computer.FileSystem.FileExists(System.AppDomain.CurrentDomain.BaseDirectory & s)) Then
            cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= ProductData.mdb")
            'Console.WriteLine("Database Created Successfully")
            ' 以下代码创建一个名为“测试项目表”单主键新表
            Dim Cn As ADODB.Connection = New ADODB.Connection   '定义连接
            Dim objTable As ADOX.Table = New ADOX.Table         '定义新表
            Cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ProductData.mdb") '链接到数据库
            objTable.Name = "DataRecord"    '表命名

            '给表“测试项目表” 创建一个新的字段，字段名“主键”
            objTable.Columns.Append("ID", , ADOX.DataTypeEnum.adVarWChar)

            '创建并追加一个新的主键。注意：我们只是通过“PimaryKey_Field”作为主键源列。新键被追加到“测试项目表”的键集        
            objTable.Keys.Append("ID", ADOX.KeyTypeEnum.adKeyPrimary, "ID")
            objTable.Columns.Append("SN", ADOX.DataTypeEnum.adVarWChar)    '追加一个文本类型字段
            objTable.Columns.Append("datetime", ADOX.DataTypeEnum.adVarWChar)    '追加一个时间类型字段
            cat.Tables.Append(objTable) '把所有的新字段追加到表
            objTable = Nothing
            cat = Nothing
            cat = Nothing
            cat = Nothing
            cat = Nothing
            cat = Nothing
            cat = Nothing
            Cn.Close()
            Cn = Nothing
        Else
            MsgBox("数据库以及表已经存在")
        End If

 第二步：往数据表中插入数据

Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ProductData.mdb"
        Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection(conStr)
        Dim sql As New System.Text.StringBuilder
        sql.Append("insert into DataRecord([ID],[SN],[datetime])")
        sql.Append("values('" & Guid.NewGuid().ToString() & "','" & Guid.NewGuid().ToString() & "','" & Date.Now & "')")
        con.Open()
        Dim cmd As New System.Data.OleDb.OleDbCommand(sql.ToString, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("插入成功")

 第三步：查询数据库数据

 Dim dr As OleDb.OleDbDataReader
        Dim dts As DataTable = New DataTable
        Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ProductData.mdb"
        Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection(conStr)
        Dim sql As New System.Text.StringBuilder
        sql.Append("select * from  DataRecord")
        con.Open()
        Dim cmd As New System.Data.OleDb.OleDbCommand(sql.ToString, con)
        dr = cmd.ExecuteReader()
        dts.Load(dr)
        sum = dts.Rows.Count
        labbum.Text = sum.ToString()
        dr.Close()
        con.Close()
        DataGridView1.DataSource = dts
        'MsgBox("查询完成")

以上实现了建立库表，插入，查询，仅供参考；

个人V（zp2013822）