wozengcong的专栏

{ 将数据集操作方面的东西全部封装成一个单独的类 TcustomAdoDataSet是TadoQuery、TadoTable、TadoDataSet、TadoCommand的公共祖先类 应尽量使用TadoDataSet和TadoCommand类}unit untOpeDataSet;interfaceuses SysUtils, db, adodb,

应用场景简介：Delphi XE4(含第三方插件DBGRIDEH和自定义消息框MsgBox)+ORACLE 11G R2环境下，登录窗口点击〖登录〗，隐藏FormLogin，弹出FormMianOperation,在主操作窗口，有3个选项卡，每个选项卡下面都有1个DBGRIDEH和各自的按钮事件，至少都有查询和更改操作，为了达到松藕效果，去掉登录的的TADOConnection，TADOQue

概述：一、说明最近在写个“数据库管理系统框架程序”，其中封装了几个连接数据库的函数，觉得挺好用，拿出来与大家分享下，希望能对大家有点用处。我以连接oracle和access为例，其余数据库连接在此基础上稍加修改，便可使用。二、连接oracle1、源码{功能：连接ORACLE数据库参数：sServerName ORACLE服务名，sUserNa

adoquery.first;while not adoquery.eof dobegin showmessage(ADOQuery.Fieldbyname('类别').asstring); showmessage(ADOQuery.Fieldbyname('分数').asstring); adoquery.next;end;

在BCB或Delphi中，使用ADOQuery进行数据库的操作，经常会遇到“在对应所需名称或序数的集合中，未找到项目”的问题。这个问题是由于ADOQuery中使用了当前表中没有的字段造成的。出错原因：1.在ADOQuery中使用了Filter属性，并且设置Filter的值。在使用同一个ADOQuery进行另一个表的操作时，此Filter的值还是存在的，系统不会自动清除，于是出现了上

由于 ' (单引号)是SQL的标准字符符号，所以在SQL语句中间遇到 ' 时要做特殊处理。1. 使用 QuotedStr 函数QuotedStr的作用是使字符串包含单引号： 在字符的前后加上( ')号，因为在DELPHI中字符赋值是需要引号的比如 CommandText   :=   CommandText   +   QuotedStr(Edit1.Text);  Sql