vb連接access數據庫實例及查詢實例

大家好,我是架構君,一個會寫代碼吟詩的架構師。今天說一說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 print ?

 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 print ?

 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架構師必看祝您升職加薪,年年好運。