在WORD中访问数据库信息.docVIP

在WORD中访问数据库信息 数据库名称：AccessTest.mdb（与本WORD文档在一个目录下）表名称：Tab1字段名称：xm、xb、nl、whcd、zzmm（全部都是字符型）测试数据：用Access打开AccessTest.mdb，自行输入若干条记录 ???? myTestAccess宏的内容： ? Sub myTestAccess()??? Dim Conn1 As New ADODB.Connection??? Dim Rs1 As New ADODB.Recordset??? Dim curPath As String??? Dim dbPath As String??? Dim newdoc As Document?????? curPath = ActiveDocument.Path??? dbPath = curPath??? Conn1.Open Driver={Microsoft Access Driver (*.mdb)};DBQ=AccessTest.mdb;DefaultDir= dbPath??? Set Rs1 = Conn1.Execute(select * from tab1)?????? Set newdoc = Documents.Add?????? With newdoc??? Selection.TypeText Text:=姓? 名 性别 年龄文化程度政治面貌??? While Not Rs1.EOF??????? Selection.TypeParagraph??????? Selection.TypeText Text:=Rs1(xm).Value??????? Selection.TypeText Text:=? ??????? Selection.TypeText Text:=Rs1(xb).Value??????? Selection.TypeText Text:=? ??????? Selection.TypeText Text:=Rs1(nl).Value牋牋牋?Selection.TypeText Text:=?牋牋牋?Selection.TypeText Text:=Rs1(whcd).Value牋牋牋?Selection.TypeText Text:=?牋牋牋?Selection.TypeText Text:=Rs1(zzmm).Value牋牋牋?Rs1.MoveNext牋?Wend牋?Selection.TypeParagraph牋?Selection.TypeParagraph牋?牋?Rs1.MoveFirst牋牋?牋?ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=5牋?Selection.Font.Name = 黑体??? Selection.Font.Size = 16??? Selection.TypeText Text:=姓名??? Selection.MoveRight Unit:=wdCell??? Selection.Font.Name = 黑体??? Selection.Font.Size = 16??? Selection.TypeText Text:=性别??? Selection.MoveRight Unit:=wdCell??? Selection.Font.Name = 黑体??? Selection.Font.Size = 16??? Selection.TypeText Text:=年龄??? Selection.MoveRight Unit:=wdCell??? Selection.Font.Name = 黑体??? Selection.Font.Size = 16??? Selection.TypeText Text:=文化程度??? Selection.MoveRight Unit:=wdCell??? Selection.Font.Name = 黑体??? Selection.Font.Size = 16??? Selection.TypeText Text:=政治面貌?????? While Not Rs1.EOF?????? Selection.MoveRight Unit:=wdCell?????? Selection.Font.Name = 宋体?????? Selection.Font.Size = 12????