这次是一个留言薄程序,就是把客人的留言“放入”数据库中。
首先我们要建立一个一个留言薄的Access文件,文件名:lyb.mdb (2012版为lyb.accdb) 其中表名为lyb
勤劳的人就自己建立一个吧,图下图(里面没有数据,只有一表结构,因为我们只是设计)
注意的是,日期用默认值,这样可以获得留言时的时间(这个不用我们来考虑,Access加入记录时自动会写上当前准确时间)
如果你是懒人就用这个下载吧:http://download.csdn.net/detail/dzweather/5043544
这个简单程序有两块,一块是插入到数据库(Access)中,二块是显示数据库的内容。
- @H_301_43@ImportsSystem.Data.OleDb
- @H_301_43@
- @H_301_43@PublicClassForm1
- @H_301_43@DimcnAsOleDbConnection
- @H_301_43@DimcmAsOleDbCommand
- @H_301_43@DimdaAsOleDbDataAdapter
- @H_301_43@DimdsAsDataSet
- @H_301_43@PrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.Click
- @H_301_43@TextBox1.Text=""
- @H_301_43@TextBox2.Text=""
- @H_301_43@TextBox3.Text=""
- @H_301_43@TextBox4.Text=""
- @H_301_43@EndSub
- @H_301_43@
- @H_301_43@PrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.Click
- @H_301_43@cn=NewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\lyb.mdb;PersistSecurityInfo=False")
- @H_301_43@da=NewOleDbDataAdapter("select*fromlyborderby时间desc",cn)
- @H_301_43@ds=NewDataSet()
- @H_301_43@da.Fill(ds,"lyb")
- @H_301_43@DataGridView1.DataSource=ds.Tables("lyb")
- @H_301_43@PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
- @H_301_43@DimNameAsString=TextBox1.Text
- @H_301_43@DimEmailAsString=TextBox2.Text
- @H_301_43@DimSubjectAsString=TextBox3.Text
- @H_301_43@DimMemoAsString=TextBox4.Text
- @H_301_43@IfName=""OrEmail=""OrSubject=""OrMemo=""Then
- @H_301_43@MessageBox.Show("字段有未填写,请再次填写!")
- @H_301_43@ExitSub
- @H_301_43@EndIf
- @H_301_43@'Try
- @H_301_43@cn.Open()'插入前,必须连接
- @H_301_43@DimsqlAsString="insertintolyb(姓名,Email,主题,内容)values('"&Name&"','"&Email&"','"&Subject&"','"&Memo&"')"
- @H_301_43@cm=NewOleDbCommand(sql,226); color:inherit; line-height:18px"> @H_301_43@cm.ExecuteNonQuery()
- @H_301_43@cn.Close()
- @H_301_43@MessageBox.Show("保存成功!!!") @H_531_502@'CatchexAsException
- @H_301_43@'MessageBox.Show("保存失败!") @H_531_502@'EndTry
- @H_301_43@EndSub
- @H_301_43@EndClass
===================================================================================================
细节:
在执行查询结果集时,如果前面连接没有打开,由自动根据参数打开连接,获得结果集后,再关闭连接。
如果前面连接已经打开,获得结果集后,仍保持连接打开。
即,执行后,仍保持原来的连接状态,是关则关,是开仍开。
二,但对于非查询语句,比修改、删除等,须要用command来执行。
因此,修改等必须连接是打开的。