转载自:http://blog.csdn.net/machong8183/article/details/5488191
一直想写下数据库操作方面的,只是没什么时间(好像是借口,应该是懒或者没心情吧,呵呵)。最近发现CSDN上
还是每天有人要问这些内容,我有的时候就懒的回答,呵呵,主要不断的去找代码给他们累啊。所以还是听高人的,来
个一劳永逸,自己重新温习下,也好给其他人一些帮助。
这个数据库操作我会写个系列性的吧, 先写ACCESS。不知道这个一篇能写多长,不行我要分级篇了。
其实ACCESS的操作基本都其他数据库一个样,只是长的不一样,大家有种畏惧还是陌生?其实是纸老虎啦。
好了,先说连接方面:
- Public Function DB_CnStr() As String
- Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "./FlashCard.mdb"
- End Function
上面的代码就是一个公用函数,因为多处要用到,懒得每次都写,直接调用下就OK了。中间部分就是一个数据库连接字串,
Data Source=" & Application.StartupPath & "./FlashCard.mdb"这里就是设置你的数据库地址,具体代码不用我解释了吧?
如果有密码就需要再加一个账号密码了.
User ID=myUsername;Password=myPassword
这个资料太多了,也基本差不多,随便抓抓就来咯。
那下面是不是要说说如何操作了?对,操作数据库嘛,无非就是查询,增加,删除,修改这几种。代码方面基本也差不多了,只是SQL上要换名字。废话不说了,直接上代码好了。
- ‘这里就是“查询”部分咯,具体怎么查是写SQL的问题了,先不讨论
- ’先连接
- DBConnection.ConnectionString = DB_CnStr()
- DBConnection.Open()
- '开始查询
- Dim sql As New System.Text.StringBuilder
- sql.Append(" SELECT * FROM WORDINFO")
- sql.Append(" WHERE CLASS='").Append(Classstring).Append("'")
- Dim cmd As New OleDb.OleDbCommand(sql.ToString, DBConnection)
- Dim RS As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(cmd)
- DT = New DataTable
- RS.Fill(DT)
- DBConnection.Close()
- '有查到则显示出来
- Rowcount = DT.Rows.Count
- If Rowcount = 0 Then
- MsgBox("No Record ",BoxStyle.Critical, "Error")
- Me.Close()
- else
- '这里写显示数据或者应用数据,自己看吧
- end if
- ‘开始演示“增加”功能吧,我这里只是演示这个执行的功能,怕有人看不懂,所以在源代码上修改了下
- str = New System.Text.StringBuilder
- str.Append(" INSERT INTO WORDINFO ([PICTURE],[ENGLISHNAME],[CHINESENAME],[VOICE],[Class]) ")
- str.Append(" VALUES(PICTURE,ENGLISHNAME,CHINESENAME,VOICE,Class)")
- ‘上面就是一般的SQL而已,下面这句很关键,是执行语句。
- cmd.ExecuteNonQuery()
- ’下面是“修改”了。
- DBConnection.ConnectionString = DB_CnStr()
- DBConnection.Open()
- Dim str As New System.Text.StringBuilder
- str.Append(" UPDATE USERINFO ")
- str.Append(" SET [PASSWORD]='").Append(Password).Append("'")
- str.Append(" WHERE [USERNAME]= '").Append(Username).Append("'")
- Debug.WriteLine("")
- Debug.WriteLine(str.ToString)
- Dim cmd As New OleDb.OleDbCommand(str.ToString, DBConnection)
- cmd.ExecuteNonQuery()
- MsgBox("Update OK", MsgBoxStyle.Information)
- ‘好了,最后一个“删除”
- Dim str As New System.Text.StringBuilder
- str.Append(" DELETE FROM USERINFO ")
- str.Append(" WHERE ")
- str.Append(" [USERNAME]= '").Append(username).Append("'")
- Debug.WriteLine("")
- Debug.WriteLine(str.ToString)
- cmd = New OleDb.OleDbCommand(str.ToString, DBConnection)
- cmd.ExecuteNonQuery()
- MsgBox("删除完成", MsgBoxStyle.Information)
不知道大家有没有看清楚, 这里就是一个ACCESS操作的基本内容了。我想你这些明白了,数据库操作也该明白一大半了。
这里我要考下看官了,你有没有注意到查询和新增、插入等有什么区别没?注意看哦,栏位的名称在查询中没有加括号,而
在其他的地方有,为什么呢?我也不知道,哈哈!但是一定要加哦,不加ACCESS就不认识,不能成功。记得!!
还有的一些问题,比如存储图片啊,声音啊之类的文件,如何读取然后显示或者播放啊,这又一个技术问题了,呵呵,卖弄下。
别急,我在下一篇ACCESS中来详细说明。
后续转载教程:
vb.net操作数据库之ACCESS(2) - 菜鸟路漫漫 - 博客频道 - CSDN.NET
http://blog.csdn.net/machong8183/article/details/5488300
vb.net操作数据库之ACCESS(3) - 菜鸟路漫漫 - 博客频道 - CSDN.NET
http://blog.csdn.net/machong8183/article/details/5488678