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)
更多推荐
【日常小结】VB.NET下操作Access数据库
发布评论