从98年到现在，VB6使用了20多年，真的舍不得扔掉，但是随着新计算机预装操作系统的版本越来越高，做好的安装包在安装时遇到的问题越来越多，无奈之下只能转向使用了。安装了VS来学习,这个家伙不错，个头不是特大，在xp上跑的很顺畅，哈哈。
今天学习在上操作ACCESS数据库，为防止将来忘记，记录于此。
一、清空某张表中的全部数据
Dim cn As OleDbConnection
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
cn.Open() '打开当前文件夹下comm.mdb文件
Dim cmd As New OleDbCommand()
cmd.Connection = cn
mandText = "delete * from tbTest" '清空表tbTest
cmd.ExecuteNonQuery()
cmd.Dispose()'释放资源
cn.Close()
cn.Dispose()'释放资源 感觉很像VB6里的 set xx=nothing
MessageBox.Show("全部删除完成")
二 向某张表插入数据
Dim cn As OleDbConnection
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
cn.Open() '打开当前文件夹下comm.mdb文件
Dim cmd As New OleDbCommand()
cmd.Connection = cn
Dim id As Long
Dim sex As String
Dim address As String
id = 1
sex = "男"
address = "松山区"
mandText = "insert into tbtest (id,sex,address) values(" & id & "," & Chr(39) & sex & Chr(39) & "," & Chr(39) & address & Chr(39) & ")"
cmd.ExecuteNonQuery()
id = 2
sex = "男"
address = "红山区"
mandText = "insert into tbtest (id,sex,address) values(" & id & "," & Chr(39) & sex & Chr(39) & "," & Chr(39) & address & Chr(39) & ")"
cmd.ExecuteNonQuery()
id = 3
sex = "女"
address = "元宝山区"
mandText = "insert into tbtest (id,sex,address) values(" & id & "," & Chr(39) & sex & Chr(39) & "," & Chr(39) & address & Chr(39) & ")"
cmd.ExecuteNonQuery()
cmd.Dispose()
cn.Close()
cn.Dispose()
MessageBox.Show("插入3行测试完成")
三 修改
Dim cn As OleDbConnection
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
cn.Open() '打开当前文件夹下comm.mdb文件
Dim cmd As New OleDbCommand()
cmd.Connection = cn
Dim strNewAddress As String
strNewAddress = "平庄"
Dim strCondition As String
strCondition = "元宝山区"
mandText = "update tbtest set address=" & Chr(39) & strNewAddress & Chr(39) & " where address=" & Chr(39) & strCondition & Chr(39)
cmd.ExecuteNonQuery()
cmd.Dispose()
cn.Close()
cn.Dispose()
MessageBox.Show("修改测试完成")
四 删除
Dim cn As OleDbConnection
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
cn.Open() '打开当前文件夹下comm.mdb文件
Dim cmd As New OleDbCommand()
cmd.Connection = cn
Dim strCondition As String
strCondition = "平庄"
mandText = "delete from tbtest where address=" & Chr(39) & strCondition & Chr(39)
cmd.ExecuteNonQuery()
cmd.Dispose()
cn.Close()
cn.Dispose()
MessageBox.Show("删除测试完成")
五 查询
Dim cn As OleDbConnection
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Comm.mdb")
cn.Open() '打开当前文件夹下comm.mdb文件
Dim lngIDCondition As Long
lngIDCondition = 2
Dim strSexCondition As String
strSexCondition = "男"
Dim cmd As New OleDbCommand()
cmd.Connection = cn
mandText = "select * from tbTest where id=" & lngIDCondition & " and sex=" & Chr(39) & strSexCondition & Chr(39)
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader()
If dr.HasRows() = True Then
Do While dr.Read() = True '如果有记录，就循环打印符合条件的记录的address字段中内容
Debug.Print(dr.Item("id") & " " & dr.Item("sex") & " " & dr.Item("Address"))
Loop
Else
MessageBox.Show("搜索失败")
End If
dr.Close()
'结果为
'2 男 红山区
'查询全部
mandText = "select * from tbTest order by id"
dr = cmd.ExecuteReader()
If dr.HasRows() = True Then
Do While dr.Read() = True '如果有记录，就循环打印符合条件的记录的address字段中内容
Debug.Print(dr.Item("id") & " " & dr.Item("sex") & " " & dr.Item("Address"))
Loop
End If
'结果为
'1 男 松山区
'2 男 红山区
dr.Close()
cmd.Dispose()
cn.Close()
cn.Dispose()
六 总结
练习后发现，除了查询，操作ACCESS数据库的方法与VB6使用差不多，仅仅变量类型不一样。
但是查询要麻烦些。
