在EXCEL中操作ACCESS数据库.docVIP

在EXCEL中操作ACCESS数据库(发表时间: 2007-3-31 17:29:00) 【评论】 【打印】 【字体：大 中 小】 本文链接：/otot/24443.html 复制链接 分享到： 0 标签:excel?vba?access?mdb? 为了便于管理手中的一大堆联系厂家的联系方式，我建立了一个ACCESS的数据库文件（TEST.MDB（表名：telephone）），把所有的客户信息存在数据库里面。但是由于操作ACCESS数据库很不方便，我平时又习惯使用EXCEL，所以便想做一个EXCEL文件，能够与这个数据库文件连接起来，实现对数据的搜索、添加功能。于是使用VBA。 当然首先是建立一个空白的EXCEL，并在里面针对数据库的各个字段标题建立标题。如： 姓名 公司 座机 手机 传真 打开VBA编辑器，添加三个模块： 模块1：（从数据库取得全部数据，并显示到EXCEL文件中） Public Sub Getmdb()? Dim cmd As String? Dim oAss As Object? ? connstr = DBQ=D:\test.mdb;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};? Set oAss = CreateObject(ADODB.connection)? oAss.Open connstr? cmd = SELECT * FROM telephone ORDER BY id DESC? Set rs = oAss.Execute(cmd) ? btop = 4? bleft = 2? ast = A btop :Z1000? Range(ast).ClearContents? Do While Not rs.EOF? btop = btop + 1? Cells(btop, bleft + 2) = rs(姓名)? Cells(btop, bleft + 3) = rs(公司)? Cells(btop, bleft + 4) = rs(座机)? Cells(btop, bleft + 5) = rs(手机)? Cells(btop, bleft + 6) = rs(传真)? rs.movenext? Loop? rs.CloseWorksheets(1).addcomEnd Sub 模块2：（从数据库中搜索符合指定名字或者公司名字的项目） Public Sub Serchmdb(ByVal so, si, st As String)? Dim cmd As String? Dim oAss As Object? ? connstr = DBQ=D:\test.mdb;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};? Set oAss = CreateObject(ADODB.connection)? oAss.Open connstr? cmd = SELECT * FROM telephone WHERE + si + like + st + % + so + % + st? On Error GoTo 0? Set rs = oAss.Execute(cmd) ? btop = 4? bleft = 2? btop = btop + 1? ast = A btop :Z1000? Range(ast).ClearContents? ? Do While Not rs.EOF? Cells(btop, bleft + 2) = rs(姓名)? Cells(btop, bleft + 3) = rs(公司)? Cells(btop, bleft + 4) = rs(座机)? Cells(btop, bleft + 5) = rs(手机)? Cells(btop, bleft + 6) = rs(传真)? btop = btop + 1? rs.movenext? Loop? rs.Close End Sub 模块3：（网数据库中添加数据的函数） Public Sub Addmdb(ByVal atype, aname, acomp, ajob, aphone, amobil, afax, aemail As String)? Dim cmd As String? Dim oAss As Object? ? connstr = DBQ=D:\test.mdb;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb