vb.net数据库编程(02):再来一个非查询的简单例子

这次是一个留言薄程序，就是把客人的留言“放入”数据库中。

首先我们要建立一个一个留言薄的Access文件，文件名：lyb.mdb (2012版为lyb.accdb) 其中表名为lyb

勤劳的人就自己建立一个吧，图下图（里面没有数据，只有一表结构，因为我们只是设计）

注意的是，日期用默认值，这样可以获得留言时的时间（这个不用我们来考虑，Access加入记录时自动会写上当前准确时间）

如果你是懒人就用这个下载吧：http://download.csdn.net/detail/dzweather/5043544

这个简单程序有两块，一块是插入到数据库（Access）中，二块是显示数据库的内容。

Imports System.Data.OleDbPublic 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 SubEnd Class

===================================================================================================

细节：

一、在执行Fill方法时，只是针对Select查询。

        在执行查询结果集时，如果前面连接没有打开，由自动根据参数打开连接，获得结果集后，再关闭连接。

                                                如果前面连接已经打开，获得结果集后，仍保持连接打开。

                                                即，执行后，仍保持原来的连接状态，是关则关，是开仍开。

二，但对于非查询语句，比修改、删除等，须要用command来执行。

         在执行修改等结果集时，如果前面连接没有打开，则提出错误。

                                                     因此，修改等必须连接是打开的。