先来一个简单的实例。
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控件，很多选项都是边框、单元颜色、数据格式、选择方式。太多了。画个图加深印象：
如果觉得《vb.net mysql 实例教程_VB.net数据库编程（01）：简单的入门实例》对你有帮助，请点赞、收藏，并留下你的观点哦！
