word无所不能之word连接数据库

今天将一个用word2003连接数据库的方法

首先打开word2003,新建一个word文档,依次打开视图-工具栏-选中visual basic,VB6的工具栏出现了.如下图所示

看见了吧，就是这个，有很多基本控件。我们点击最右边的锤子样的东西然后在列表选择Miscosoft ADO,设计个页面如下

这个是运行效果图，点击按钮进行查询，代码如下

Sub CommandButton1_Click()  Sub CommandButton1_Click() 
Adodc1.ConnectionString =  "Provider=SQLOLEDB;Initial Catalog=test ;Data Source=.\sql2k5;User ID=sa ;Password=boyuanec" 
If TextBox1.Text = ""  Then 
MsgBox  "用户ID不能为空", vbOKOnly + vbInformation,  "提示" 
Else 
Adodc1.RecordSource =  "select * from TUser where UserId=" & TextBox1.Text 
Adodc1.Refresh 
Label1.Caption = Adodc1.Recordset.Fields(1) 
Label2.Caption = Adodc1.Recordset.Fields(2) 
Label3.Caption = Adodc1.Recordset.Fields(3) 
Label4.Caption = Adodc1.Recordset.Fields(4) 
Label5.Caption = Adodc1.Recordset.Fields(5) 
Image1.Picture = LoadPicture(Adodc1.Recordset.Fields(6)) 
Label6.Caption = Adodc1.Recordset.Fields(7) 
End  If 
End  Sub 

看看数据库数据

成功了吧。

本文转自 BruceAndLee 51CTO博客，原文链接：http://blog.51cto.com/leelei/308863，如需转载请自行联系原作者