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,如需转载请自行联系原作者

你可能感兴趣的:(word无所不能之word连接数据库)