vb连接access数据库实例及查询实例(Java数据库编程) |
您所在的位置：网站首页 › vb连接access数据库代码 › vb连接access数据库实例及查询实例(Java数据库编程) |
|
大家好，我是架构君，一个会写代码吟诗的架构师。今天说一说vb连接access数据库实例及查询实例(Java数据库编程),希望能够帮助大家进步!!! 先来一个简单的实例。 VB.net 2012 SQl server 2012 Access文件：http://download.csdn.net/detail/dzweather/5042992 （两个版本，2003,2012,任选一个） 根据前面ADO.net入门的介绍，我们知道了连接的过程。 AccessFile文件，针对的是Oledb，所以首先应引用。 然后 ，定义三个对象，在实例中再进行创建（这样可以节约点资源） 特别注意 的是，里面没有了cmd过程，我感觉这样的入门适合我学习。 这个例子，就一个窗体，一个datagridview（不绑定，用代码绑定），然后就是几句代码，很简单。 vb view plain copy ? 代码语言：javascript复制 Imports System.Data.OleDb Public Class Form1 Dim cn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As DataSet Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False" cn = New OleDbConnection(cnStr) Dim sql As String = "select * from grade" da = New OleDbDataAdapter(sql, cn) ds = New DataSet da.Fill(ds, "grade") DataGridView1.DataSource = ds.Tables(0) End Sub End Class上面的有点简单，但流程清晰。与我们实际应用有很大距离。 下面再跨一步，接近实际应用，即变得较为灵活点： vb view plain copy ? 代码语言：javascript复制 Imports System.Data.OleDb Public Class Form1 Dim cn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As DataSet Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False" cn = New OleDbConnection(cnStr) Dim sql As String = "select * from grade" da = New OleDbDataAdapter(sql, cn) ds = New DataSet da.Fill(ds, "grade") DataGridView1.DataSource = ds.Tables(0) End Sub Private Sub btnQuery_Click(sender As Object, e As EventArgs) Handles btnQuery.Click Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False" cn = New OleDbConnection(cnStr) Dim sql As String = TextBox1.Text da = New OleDbDataAdapter(sql, cn) ds = New DataSet da.Fill(ds, "grade") DataGridView1.DataSource = ds.Tables(0) End Sub Private Sub btnQueyName_Click(sender As Object, e As EventArgs) Handles btnQueyName.Click Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False" cn = New OleDbConnection(cnStr) Dim sql As String = "select * from grade where 姓名 like " & "'%" & TextBox2.Text & "%'" da = New OleDbDataAdapter(sql, cn) ds = New DataSet da.Fill(ds, "grade") DataGridView1.DataSource = ds.Tables(0) End Sub End Class代码活没用try catch，反正只是入门。 这样就可以有两个查询方式，一是SQL语句灵活用，二是姓名。 这样一个简单的查询就出来了。这只是一个“查询”，但我们有时还要修改、删除等工作。 在修改，删除时，不但要执行SQL，最终我们还要把结果反馈给用户看。于是就有了第个简单实例。 DataGrideView控件，很多选项都是边框、单元颜色、数据格式、选择方式。太多了。 今天文章到此就结束了，感谢您的阅读，Java架构师必看祝您升职加薪，年年好运。 |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |