先来一个简单的实例。
SQl server
Access文件:/detail/dzweather/5042992
(两个版本,,,任选一个)
根据前面入门的介绍,我们知道了连接的过程。
AccessFile文件,针对的是Oledb,所以首先应引用。
然后 ,定义三个对象,在实例中再进行创建(这样可以节约点资源)
特别注意 的是,里面没有了cmd过程,我感觉这样的入门适合我学习。
这个例子,就一个窗体,一个datagridview(不绑定,用代码绑定),然后就是几句代码,很简单。
ImportsSystem.Data.OleDb
PublicClassForm1
DimcnAsOleDbConnection
DimdaAsOleDbDataAdapter
DimdsAsDataSet
PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.Load
DimcnStrAsString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\persons.mdb;PersistSecurityInfo=False"
cn=NewOleDbConnection(cnStr)
DimsqlAsString="select*fromgrade"
da=NewOleDbDataAdapter(sql,cn)
ds=NewDataSet
da.Fill(ds,"grade")
DataGridView1.DataSource=ds.Tables(0)
EndSub
EndClass
==========================================================================================================
上面的有点简单,但流程清晰。与我们实际应用有很大距离。
下面再跨一步,接近实际应用,即变得较为灵活点:
ImportsSystem.Data.OleDb
PublicClassForm1
DimcnAsOleDbConnection
DimdaAsOleDbDataAdapter
DimdsAsDataSet
PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.Load
DimcnStrAsString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\persons.mdb;PersistSecurityInfo=False"
cn=NewOleDbConnection(cnStr)
DimsqlAsString="select*fromgrade"
da=NewOleDbDataAdapter(sql,cn)
ds=NewDataSet
da.Fill(ds,"grade")
DataGridView1.DataSource=ds.Tables(0)
EndSub
PrivateSubbtnQuery_Click(senderAsObject,eAsEventArgs)HandlesbtnQuery.Click
DimcnStrAsString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\persons.mdb;PersistSecurityInfo=False"
cn=NewOleDbConnection(cnStr)
DimsqlAsString=TextBox1.Text
da=NewOleDbDataAdapter(sql,cn)
ds=NewDataSet
da.Fill(ds,"grade")
DataGridView1.DataSource=ds.Tables(0)
EndSub
PrivateSubbtnQueyName_Click(senderAsObject,eAsEventArgs)HandlesbtnQueyName.Click
DimcnStrAsString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\persons.mdb;PersistSecurityInfo=False"
cn=NewOleDbConnection(cnStr)
DimsqlAsString="select*fromgradewhere姓名like"&"'%"&TextBox2.Text&"%'"
da=NewOleDbDataAdapter(sql,cn)
ds=NewDataSet
da.Fill(ds,"grade")
DataGridView1.DataSource=ds.Tables(0)
EndSub
EndClass
代码活没用try catch,反正只是入门。
结果如下:
这样就可以有两个查询方式,一是SQL语句灵活用,二是姓名。
这样一个简单的查询就出来了。这只是一个“查询”,但我们有时还要修改、删除等工作。
在修改,删除时,不但要执行SQL,最终我们还要把结果反馈给用户看。于是就有了第个简单实例。
========================================================================================================
DataGrideView控件,很多选项都是边框、单元颜色、数据格式、选择方式。太多了。画个图加深印象: