|
转载自:http://blog.csdn.net/machong8183/article/details/5488191
一直想写下数据库操作方面的，只是没什么时间（好像是借口，应该是懒或者没心情吧，呵呵）。最近发现CSDN上
还是每天有人要问这些内容，我有的时候就懒的回答，呵呵，主要不断的去找代码给他们累啊。所以还是听高人的，来
个一劳永逸，自己重新温习下，也好给其他人一些帮助。
这个数据库操作我会写个系列性的吧， 先写ACCESS。不知道这个一篇能写多长，不行我要分级篇了。
其实ACCESS的操作基本都其他数据库一个样，只是长的不一样，大家有种畏惧还是陌生？其实是纸老虎啦。
好了，先说连接方面：
[vb]
view plain
copy
print
?
- PublicFunctionDB_CnStr()AsString
- Return"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Application.StartupPath&"./FlashCard.mdb"
- EndFunction
上面的代码就是一个公用函数，因为多处要用到，懒得每次都写，直接调用下就OK了。中间部分就是一个数据库连接字串，
Data Source=" & Application.StartupPath & "./FlashCard.mdb"这里就是设置你的数据库地址，具体代码不用我解释了吧？
如果有密码就需要再加一个账号密码了.
User ID=myUsername;Password=myPassword
这个资料太多了，也基本差不多，随便抓抓就来咯。
那下面是不是要说说如何操作了？对，操作数据库嘛，无非就是查询，增加，删除，修改这几种。代码方面基本也差不多了，只是SQL上要换名字。废话不说了，直接上代码好了。
[vb]
view plain
copy
print
?
- ‘这里就是“查询”部分咯，具体怎么查是写SQL的问题了，先不讨论
- ’先连接
- DBConnection.ConnectionString=DB_CnStr()
- DBConnection.Open()
- DimsqlAsNewSystem.Text.StringBuilder
- sql.Append("SELECT*FROMWORDINFO")
- sql.Append("WHERECLASS='").Append(Classstring).Append("'")
- DimcmdAsNewOleDb.OleDbCommand(sql.ToString,DBConnection)
- DimRSAsOleDb.OleDbDataAdapter=NewOleDb.OleDbDataAdapter(cmd)
- DT=NewDataTable
- RS.Fill(DT)
- DBConnection.Close()
- Rowcount=DT.Rows.Count
- IfRowcount=0Then
- MsgBox("NoRecord",BoxStyle.Critical,"Error")
- Me.Close()
- else
- endif
- ‘开始演示“增加”功能吧，我这里只是演示这个执行的功能，怕有人看不懂，所以在源代码上修改了下
- str=NewSystem.Text.StringBuilder
- str.Append("INSERTINTOWORDINFO([PICTURE],[ENGLISHNAME],[CHINESENAME],[VOICE],[Class])")
- str.Append("VALUES(PICTURE,ENGLISHNAME,CHINESENAME,VOICE,Class)")
- ‘上面就是一般的SQL而已，下面这句很关键，是执行语句。
- cmd.ExecuteNonQuery()
- ’下面是“修改”了。
- DBConnection.ConnectionString=DB_CnStr()
- DBConnection.Open()
- DimstrAsNewSystem.Text.StringBuilder
- str.Append("UPDATEUSERINFO")
- str.Append("SET[PASSWORD]='").Append(Password).Append("'")
- str.Append("WHERE[USERNAME]='").Append(Username).Append("'")
- Debug.WriteLine("")
- Debug.WriteLine(str.ToString)
- DimcmdAsNewOleDb.OleDbCommand(str.ToString,DBConnection)
- cmd.ExecuteNonQuery()
- MsgBox("UpdateOK",MsgBoxStyle.Information)
- ‘好了，最后一个“删除”
- DimstrAsNewSystem.Text.StringBuilder
- str.Append("DELETEFROMUSERINFO")
- str.Append("WHERE")
- str.Append("[USERNAME]='").Append(username).Append("'")
- Debug.WriteLine("")
- Debug.WriteLine(str.ToString)
- cmd=NewOleDb.OleDbCommand(str.ToString,DBConnection)
- cmd.ExecuteNonQuery()
- MsgBox("删除完成",MsgBoxStyle.Information)
不知道大家有没有看清楚， 这里就是一个ACCESS操作的基本内容了。我想你这些明白了，数据库操作也该明白一大半了。
这里我要考下看官了，你有没有注意到查询和新增、插入等有什么区别没？注意看哦，栏位的名称在查询中没有加括号，而
在其他的地方有，为什么呢？我也不知道，哈哈！但是一定要加哦，不加ACCESS就不认识，不能成功。记得！！
还有的一些问题，比如存储图片啊，声音啊之类的文件，如何读取然后显示或者播放啊，这又一个技术问题了，呵呵，卖弄下。
别急，我在下一篇ACCESS中来详细说明。
后续转载教程:
vb.net操作数据库之ACCESS（2） - 菜鸟路漫漫 - 博客频道 - CSDN.NET
http://www.52php.cn/article/p-wqoqayxl-bgv.html
vb.net操作数据库之ACCESS（3） - 菜鸟路漫漫 - 博客频道 - CSDN.NET
http://www.52php.cn/article/p-kwowkndc-bgv.html （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
