【日常小結】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）