ADO、ACCESS、TDBGRID7问题

zhengcan 2001-08-27 05:52:03
我在一个FORM内放两个TDBGRID(都是连ADODC连ACCESS2000),一个基础数据GD1,一个统计数据GD2(只是有基础数据各数据SUM得来的)。我想在GD1 UPDATE 后马上UPDATE GD2,于是在GD1.AfterUpdate中执行一个函数:
cnP.Execute "delete * from t1 where YY=" + CStr(nYY)

cnP.Execute "INSERT INTO T2 SELECT SUM(A1)。。。"
GD2.Refresh

其中cnP是一早开了的ADODB.Connection
可是运行时总算不对,如字段A1有数3,3,3,当我该其中一个变成3,4,3,算出的结果是9(只是没改前的和数),再改3,4,5,算出的结果是10,气死人。是不是在INSERT前ADODC更新到数据库还没完成?但我用ADODC的RecordChangeComplete又已经更新了!
不知哪位高手有解决办法?
...全文
112 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhengcan 2001-08-29
  • 打赏
  • 举报
回复
to zfcheng(紫风) 
我前面说了这种方法不可靠,你不知道到底要拖延多长时间,不同机子都可能不同,甚至同一台机子也不完全相同(我试过了2秒,但有时可以有时不行),除非设很长(至少5秒),但这样要用户等就不太好了,所以我想问问有哪位高手可以提出更好的解决方法!谢谢
dave75 2001-08-28
  • 打赏
  • 举报
回复
gz
zhengcan 2001-08-28
  • 打赏
  • 举报
回复
up
mmzxg 2001-08-28
  • 打赏
  • 举报
回复
gz
zhengcan 2001-08-28
  • 打赏
  • 举报
回复
to:小草
我不明白你的意思!
我的GRID要刷新?不用啊,现在不是GRID的问题,数据都更新到数据库了!
我觉得是我的问题是:GRID到ADODC的更新和ADODC到实际数据库的更新指令已经完成(甚至已返回成功更新的标志),但实际数据库真正数据的更新还没完成前执行了“INSERT”语句。我只要在“INSERT”语句前拖延一下时间就可以了(我已试过),但这种方法不可靠,所以我想问问有哪位高手可以提出更好的解决方法!谢谢
zfcheng 2001-08-28
  • 打赏
  • 举报
回复
做完第一个动作后延时一会再就第二个动作不会出现你那种情况,但如果像你那样做的话会出现你那种情况,
songyangk 2001-08-27
  • 打赏
  • 举报
回复
只因为你建的游标是静态的,所以需要有个刷新过程。
zhengcan 2001-08-27
  • 打赏
  • 举报
回复
没关系的啊!
这跟GRID没关系的!Connection没REFRESH
lanren_me 2001-08-27
  • 打赏
  • 举报
回复
cnP.Execute "delete * from t1 where YY=" + CStr(nYY)

cnP.Execute "INSERT INTO T2 SELECT SUM(A1)。。。"
不行。
应先刷新
第1章 Delphi 7新特性 1.1 安装 1.2 新特性 1.3 IDE的改进 第2章 Delphi 7组件简介 2.1 VCL 2.2 Delphi 7组件 2.3 可视组件的通用属性和事件 第3章 常用组件 3.1 文本相关组件 3.2 按钮和复选框 3.3 分组组件 3.4 菜单组件 3.5 图形组件 3.6 文件选择组件 3.7 网格组件 第4章 Data Access组件页 4.1 TDataSource组件 4.2 TClientDataSet组件 4.3 TDataSetProvider组件 4.4 TXMLTransform组件 4.5 TXMLTransformProvider组件 4.6 TXMLTransformClient组件 4.7 XMLMapper实用程序 第5章 Data Controls组件页 5.1 共同属性 5.2 TDBGrid组件 5.3 TDBNavigator组件 5.4 TDBText组件 5.5 TDBEdit组件 5.6 TDBMemo组件 5.7 TDBImage组件 5.8 TDDBListBox组件 5.9 TDBComboBox组件 5.10 TDBCheckBox组件 5.11 TDBRadioGroup组件 5.12 TdBLookkupListBox组件 5.13 TDBLookkupComboBox组件 5.14 TDBRichEdit组件 5.15 TDBCtrlGrid组件 5.16 TDBChart组件 第6章 dbExpress组件页 6.1 TSQLConnection组件 6.2 TSQLDataSet组件 6.3 TSQLQuery组件 6.4 TSQLTable组件 6.5 TSQLStoredProc组件 6.6 TSQLMonitor组件 6.7 TSimpleDataSet组件 6.8 实例——使用dbExpress方式连接Oracle数据库 6.9 实例——建立双平台运行的应用程序 第7章 BDE组件页 7.1 TTable组件 7.2 TQuery组件 7.3 TDataBase组件 7.4 TBatchMove组件 7.5 TUpdateSQL组件 7.6 综合应用实例 第8章 ADO组件页 8.1 TADOConnection组件 8.2 TADOCommand组件 8.3 TADODataSet组件 8.4 TADOTable组件 8.5 TADOQuery组件 8.6 TADOStoredProc组件 8.7 TRDSConnection组件 8.8 实例——应用TADOConnection和TADODataSet组件 8.9 实例——应用TADOConnection和TADOTable组件 8.10 实例——应用TADOConnection和TADOQuery组件 8.11 实例——应用TADOConnection、TADODataSet和TADOCommand组件 第9章 Decision Cube组件页 9.1 TDecisionCube组件 9.2 TDecisionQuery组件 9.3 TDecisionSource组件 9.4 TDecisionPivot组件 9.5 TDecisionGrid组件 9.6 TDecisionGraph组件 9.7 实例——应用Decision Cube组件页 第10章 Dialogs组件页 10.1 TOpenDialog组件 10.2 TSaveDialog组件 10.3 TOpenPicTureDialog组件 10.4 TSavePicTureDialog组件 10.5 TFontDialog组件 10.6 TColorDialog组件 10.7 TFindDialog组件 10.8 TReplaceDialog组件 10.9 TPrintDialog组件 10.10 TPrinterSetupDialog组件 10.11 TPageSetupDialog组件 第11章 Rave组件页 11.1 TRvProject组件 11.2 TRvSystem组件 11.3 TRvNDRWriter组件 11.4 TRvCustomConnection组件 11.5 TRvDataSetConnection组件 11.6 TRvTableConnection组件 11.7 TRvQueryConnection组件 11.8 TRvRenderPrinter组件 11.9 TRvRenderPreview组件 11.10 TRvRenderPDF组件 11.11 TRvRenderHTML组件 11.12 TRvRenderRTF组件 11.13 TRvRenderText组件 11.14 实例——建立Rave报表 11.15 实例——获取报表列表和预览报表 第12章 InterBase组件页 12.1 InterBase组件页 12.2 InterBase Admin组件页 12.3 InterBase组件页应用实例 第13章 Server组件页 13.1 Word和Excel程序对象 13.2 ToleServer组件 13.3 实例——在Delphi中操作Word 13.4 实例——使用TWordDocument组件连接Word自动化服务器 13.5 实例——建立与Excel连接 13.6 实例——以OLE方式建立与Excel连接 第14章 Internet组件页 14.1 Web服务器应用程序的结构 14.2 TWebDispatcher组件 14.3 TPageProducer组件 14.4 TDataSetPageProducer组件 14.5 TQueryTableProducer组件 14.6 TDataSetTableProducer组件 14.7 TSQLQueryTableProducer组件 14.8 TTcpClient组件 14.9 TTcpServer组件 14.10 TUdpSocket组件 14.11 TXMLDocument组件 14.12 TWebBrowser组件 14.13 建立Web服务器应用程序 14.14 访问数据库 14.15 调试Web服务器应用程序 14.16 实例——实现数据库查询的Web服务器应用程序 14.17 实例——实现动态参数查询 14.18 实例——Web服务器应用程序 14.19 综合实例——使用Socket的“网上对话”程序 第15章 WebSnap组件页 15.1 WebSnap概述 15.2 WebSnap结构 15.3 WebSnap组件页中的常用组件 15.4 WebSnap组件页中的数据库组件 15.5 WebSnap组件页中的访问控制组件 第16章 WebServices组件页 16.1 HTTPRIO组件 16.2 HTTPReqResp组件 16.3 OPToSoapDomConvert组件 16.4 SoapConnection组件 16.5 HTTPSoapDispatcher组件 16.6 WSDLHTMLPublish组件 16.7 HTTPSoapPascalInvoker组件 16.8 实例——应用Web Service组件页 第17章 Indy组件集 17.1 Indy Clients组件页 17.2 Indy Servers组件页 17.3 Indy Intercepts组件页 17.4 Indy I/O Handlers组件页 17.5 Indy Misc组件页 17.6 Indy组件集应用实例 第18章 IntraWeb组件页 18.1 概述 18.2 IW Standard组件页 18.3 IW Data组件页 18.4 IW Client Side组件页 18.5 IW Control组件页 18.6 IW组件应用实例
EhLib 8.0 Build 8.0.023 Pro Edition FullSource for D7-XE8 亲测可用,含全部源码及 Demo The Library contains components and classes for Borland Delphi versions 7, 9, Developer Studio 2006, Delphi 2007, Embarcadero RAD Studio 2009-XE8, Lazarus. TABLE OF CONTENTS ----------------- Overview Installation Library Installation Help Demonstration Programs Registering and Prices Other information About author Where to start. ------------------- Read about EhLib for Lazarus in the file - Lazarus\readme.txt Start overview of the library with the main Demo project .\Demos\Bin\MainDemo.Exe. (Compiled Demo files are available in the Evaluation version of the library) Then you can read a summary of the new features and changes in the file history-eng.html. More detail about new features can be found in the file - About EhLib 8 Eng.doc To install a new version of the library in the IDE, use the installation program in .\Installer\EhLibInstaller.exe Overview -------- The Library contains several components and objects. TDBGridEh component TDBGridEh provides all functionality of TDBGrid and adds several new features as follows: Allows to select records, columns and rectangle areas. Special titles that can correspond to several/all columns. Footer that is able to show sum/count/other field values. Automatic column resizing to set grid width equal client width. Ability to change row and title height. Allows automatic broken of a single line long title and data row to a multiline. Title can act as button and, optionally show a sort marker. Automatically sortmarking. Ability to truncate long text with ellipsis. Lookup list can show several fields. Incremental search in lookup fields. Frozen columns. DateTime picker support for TDateField and TDateTimeField. Allows to show bitmaps from TImageList depending on field value. Allows to hide and track horizontal or vertical scrollbars. Allows to hide columns. Allows to show 3D fr
第1章 窗体与界面设计 1 1.1 菜单应用 2 实例001 在系统菜单中添加菜单项 2 实例002 带历史信息的菜单 3 实例003 菜单动态合并 4 实例004 像“开始”菜单一样漂亮的菜单 5 实例005 多彩的菜单 6 实例006 可以拉伸的菜单界面 8 1.2 工具栏设计 9 实例007 带背景的工具栏 9 实例008 浮动工具栏 10 1.3 状态栏设计 11 实例009 在状态栏中显示检查框 11 实例010 带进度条的状态栏 12 实例011 状态栏中加入图标 13 1.4 导航菜单界面 14 实例012 OutLook界面 14 实例013 带导航菜单的主界面 15 实例014 图形化的导航界面 16 1.5 特色程序界面 18 实例015 类QQ的程序界面 18 实例016 类似Windows XP的程序界面 20 实例017 以图形按钮显示的界面 21 实例018 以树型显示的程序界面 23 实例019 以XPManifest组件显示界面 24 实例020 动态按钮的窗体界面 25 1.6 特殊形状的窗体 26 实例021 非矩形窗体 26 实例022 建立字体形状窗体 28 1.7 多媒体光盘 29 实例023 自动启动的多媒体光盘程序 29 实例024 为触摸屏程序添加虚拟键盘 30 实例025 触摸屏系统 31 1.8 窗体效果 33 实例026 半透明渐显窗体 33 实例027 窗口颜色的渐变 34 实例028 带背景的窗体 35 实例029 为窗体增加边框 36 1.9 窗体动画 37 实例030 窗体中的滚动字幕 37 实例031 动画显示窗体 38 实例032 制作闪烁的窗体 39 实例033 直接在窗体上绘图 40 实例034 动画形式的程序界面 41 实例035 以时钟显示界面窗体 42 1.10 标题栏窗体 44 实例036 标题栏上的按钮 45 实例037 使窗体标题栏文字右对齐 47 实例038 没有标题栏但可以改变大小的窗口 48 1.11 设置窗体位置 49 实例039 不可移动的窗体 49 实例040 设置窗体在屏幕中的位置 50 实例041 始终在最上面的窗体 51 1.12 设置窗体大小 52 实例042 限制窗体大小 52 实例043 获取桌面大小 53 实例044 组件大小随窗体的改变而改变 53 实例045 在窗口间移动按钮 54 实例046 如何实现Office助手 55 1.13 窗体控制技术 56 实例047 在关闭窗口前加入确认对话框 56 实例048 程序在循环中响应界面操作 57 实例049 使用任意组件拖动窗体 58 实例050 动态创建窗体和释放窗体 59 实例051 修改提示字体及颜色 60 1.14 其他技术 61 实例052 窗口融合技术 61 实例053 给MDI窗体加背景 62 实例054 如何关闭MDI类型窗体中的子窗体 63 实例055 向提示框中添加图标 64 第2章 控件应用 67 2.1 TEdit控件应用典型实例 68 实例056 从右至左输入数据 68 实例057 为TEdit控件添加列表选择框 69 实例058 只允许输入数字的TEdit组件 70 2.2 TSpeedButton控件应用典型实例 71 实例059 在TSpeedButton按钮中显示图标 71 实例060 折行显示按钮标题 72 2.3 TMemo控件应用典型实例 73 实例061 设置TMemo组件的边界 73 实例062 TMemo组件的光标定位 74 实例063 得到TMemo中的可见行数 75 2.4 TListBox控件应用典型实例 76 实例064 在TListBox组件间交换数据 76 实例065 为TListBox添加水平滚动条 77 实例066 将数据库数据添加到组合框中 78 实例067 借助绑定控件实现数据选择录入 79 2.5 TListView控件应用典型实例 80 实例068 TListView列表拒绝添加重复信息 80 实例069 将数据库数据添加到TListView控件 82 实例070 用TListView控件制作导航界面 83 实例071 在TListView控件中对数据排序或统计 84 实例072 在TListView组件中绘制底纹 86 实例073 在列表视图中拖动视图项 87 2.6 TTreeView控件应用典型实例 88 实例074 将数据库数据显示到树视图中 88 实例075 用TTreeView控件制作导航界面 90 实例076 TTreeView组件遍历磁盘目录 91 实例077 TTreeView组件在数据库中的应用 92 2.7 TStringGrid控件应用典型实例 94 实例078 程序运行时对
EhLib 6.3 Build 6.3.176 Russian version. Full source included. ------------------------------------------------------------------- The Library contains components and classes for Borland Delphi versions 7, 8 & 9 , Borland Developer Studio 2006, CodeGear Delphi 2007, RAD Studio 2009, Embarcadero RAD Studio 2010, RAD Studio XE-XE6. TABLE OF CONTENTS ----------------- Overview Installation Library Installation Help Demonstration Programs Registering and Prices Other information About author Where to start. ------------------- Star overview of the library with the main Demo project .\Demos\Bin\MainDemo.Exe. (Compiled Demo files are available in the Evaluation version of the library) Then you can read a summary of the new features and changes in the file history-eng.html. More detail about new features can be found in the file - About EhLib 6.2 Eng.doc To install a new version of the library in the IDE, use the installation program in .\Installer\EhLibInstaller.exe Overview -------- The Library contains several components and objects. TDBGridEh component TDBGridEh provides all functionality of TDBGrid and adds several new features as follows: Allows to select records, columns and rectangle areas. Special titles that can correspond to several/all columns. Footer that is able to show sum/count/other field values. Automatic column resizing to set grid width equal client width. Ability to change row and title height. Allows automatic broken of a single line long title and data row to a multiline. Title can act as button and, optionally show a sort marker. Automatically sortmarking. Ability to truncate long text with ellipsis. Lookup list can show several fields. Incremental search in lookup fields. Frozen columns. DateTime picker support for TDateField and TDateTimeField. Allows to show bitmaps from TImageList depending on field value. Allows to hide and track horizontal or vertical scrollbars. Allows to

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧