本站首页    管理页面    写新日志    退出


«August 2025»
日一二三四五六
12
3456789
10111213141516
17181920212223
24252627282930
31


公告
暂无公告...

我的分类（专题）

日志更新

最新评论

留言板

链接


Blog信息
blog名称:VFP及Sql Server拙笔
日志总数:46
评论数量:107
留言数量:0
访问次数:431116
建立时间:2005年5月12日




[VFP与SQL]如何在 Visual FoxPro 中使用 DataGrid ActiveX 控件
文章收藏,  网上资源,  读书笔记,  心得体会,  日后处理,  软件技术

老瓷 发表于 2005/11/28 8:41:05

概述Microsoft DataGrid 控件 (Msdatgrd.ocx) 不能直接用 Microsoft Visual FoxPro 表作为数据源. 但是 DataGrid 控件可以绑定到一个 ActiveX Data Objects (ADO) 记录集. 本文说明如何从一个 Visual FoxPro 应用程序中绑定 DataGrid ActiveX 控件到一个 ADO 记录集. 为了实现这些代码的功能你必须安装了 Visual Studio Service Pack 3. 更多信息注意: Microsoft DataGrid 尚未在 Microsoft Visual FoxPro 中测试并不被 Microsoft Visual FoxPro 支持. 为了绑定一个 DataGrid ActiveX 控件到一个 ADO 记录集, 一个记录集可以是 bookmarked 或一个客户端 ADO 记录集必须首先建立. 在该 ADO 记录集创建后, DataGrid.DataSource 属性可用于绑定控件到 ADO 记录集, 如下所示: THISFORM.DataGrid1.DATASOURCE=myADORecordSet 用以下代码创建一个名为 Datagrid.prg 的程序文件: PUBLIC OXOX=CREATEOBJECT('MYFORM')OX.SHOWREAD EVENTS DEFINE CLASS myform AS FORM   CAPTION = "DataGrid Form"   HEIGHT = 250   LEFT = 0   TOP = 0   WIDTH = 375   NAME = "myform"    ADD OBJECT DataGrid1 AS OLECONTROL WITH ;      OLECLASS="MSDataGridLib.DataGrid.1",;      TOP = 25, ;      LEFT = 25, ;      HEIGHT = 190, ;      WIDTH = 325, ;      NAME = "DataGrid1"    ADD OBJECT commandbutton1 AS COMMANDBUTTON WITH ;      TOP=225, ;      LEFT=275, ;      HEIGHT=25, ;      CAPTION="关闭(\<C)", ;      NAME="commandbutton1"    PROCEDURE INIT      PUBLIC myconn, myrs      *!* 创建一个 ADO 连接      myconn=CREATEOBJECT('ADODB.CONNECTION')      *!* 使用一个客户端标因此使用 bookmarkable 游标.      myconn.cursorlocation=3 && adUseClient      *!* 设置连接串到 VFP 示例数据库      lcConnectString="DRIVER=Microsoft Visual FoxPro Driver;" + ;         "SourceType=DBC;SourceDB="+HOME(2)+"DATA\TESTDATA.DBC;" + ;         "Exclusive=NO;BackGroundFetch=NO;NULL=NO;Collate=MACHINE"      *!* 打开连接      myconn.OPEN(lcConnectString)      *!* 创建一个 ADO 记录集      myrs=CREATEOBJECT('ADODB.RECORDSET')      *!* 设置记录集的 activeconnection 属性      myrs.activeconnection=myconn      *!* 记录集继承了连接的 cursorlocation.      *!* 使用开放式锁      myrs.locktype=3 && adLockOptimistic      *!* 打开记录集      myrs.OPEN("SELECT * FROM CUSTOMER",,,,1)      *!* 绑定控件到 ADO 记录集      THISFORM.DataGrid1.DATASOURCE=myrs   ENDPROC    PROCEDURE commandbutton1.CLICK      myrs.CLOSE      myconn.CLOSE      RELEASE myrs      RELEASE myconn      RELEASE THISFORM   ENDPROC    PROCEDURE UNLOAD      CLEAR EVENTS   ENDPROC ENDDEFINE 保存并运行 DATAGRID.PRG 如果你修改了 DataGrid 控件中的字段, 你会看到以下错误信息: 多步操作产生了错误. 检查各状态值. 在 DataGrid 中的字段显示为空格. 你可能需要在输入新内容前按下 DELETE 键来删除空格功删除整个字段中的内容.


阅读全文(3966) | 回复(0) | 编辑 | 精华
 



发表评论：
昵称：
密码：
主页：
标题：
验证码：  (不区分大小写,请仔细填写,输错需重写评论内容！)



站点首页 | 联系我们 | 博客注册 | 博客登陆

Sponsored By W3CHINA
W3CHINA Blog 0.8 Processed in 0.189 second(s), page refreshed 144781639 times.
《全国人大常委会关于维护互联网安全的决定》  《计算机信息网络国际联网安全保护管理办法》
苏ICP备05006046号