首先我们要建立一个一个留言薄的Access文件,文件名:lyb.mdb (2012版为lyb.accdb) 其中表名为lyb
勤劳的人就自己建立一个吧,图下图(里面没有数据,只有一表结构,因为我们只是设计)
注意的是,日期用默认值,这样可以获得留言时的时间(这个不用我们来考虑,Access加入记录时自动会写上当前准确时间)
如果你是懒人就用这个下载吧:http://download.csdn.net/detail/dzweather/5043544
这个简单程序有两块,一块是插入到数据库(Access)中,二块是显示数据库的内容。
- Imports System.Data.OleDb
- Public Class Form1
- Dim cn As OleDbConnection
- Dim cm As OleDbCommand
- Dim da As OleDbDataAdapter
- Dim ds As DataSet
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- TextBox1.Text = ""
- TextBox2.Text = ""
- TextBox3.Text = ""
- TextBox4.Text = ""
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\lyb.mdb;Persist Security Info=False")
- da = New OleDbDataAdapter("select * from lyb order by 时间 desc", cn)
- ds = New DataSet()
- da.Fill(ds, "lyb")
- DataGridView1.DataSource = ds.Tables("lyb")
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim Name As String = TextBox1.Text
- Dim Email As String = TextBox2.Text
- Dim Subject As String = TextBox3.Text
- Dim Memo As String = TextBox4.Text
- If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then
- MessageBox.Show("字段有未填写,请再次填写!")
- Exit Sub
- End If
- 'Try
- cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\lyb.mdb;Persist Security Info=False")
- cn.Open() '插入前,必须连接
- Dim sql As String = "insert into lyb (姓名,Email,主题,内容) values('" & Name & "','" & Email & "','" & Subject & "','" & Memo & "')"
- cm = New OleDbCommand(sql, cn)
- cm.ExecuteNonQuery()
- cn.Close()
- MessageBox.Show("保存成功!!!")
- 'Catch ex As Exception
- ' MessageBox.Show("保存失败!")
- 'End Try
- End Sub
- End Class
===================================================================================================
细节:
一、在执行Fill方法时,只是针对Select查询。
在执行查询结果集时,如果前面连接没有打开,由自动根据参数打开连接,获得结果集后,再关闭连接。
如果前面连接已经打开,获得结果集后,仍保持连接打开。
即,执行后,仍保持原来的连接状态,是关则关,是开仍开。
二,但对于非查询语句,比修改、删除等,须要用command来执行。
在执行修改等结果集时,如果前面连接没有打开,则提出错误。
因此,修改等必须连接是打开的。