- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我在使用 TADOQuery
组件时遇到了一个奇怪的问题。
我目前工作的地方使用在 Windows XP VM 上运行的 Borland C++Builder 应用程序。因此,我们希望迁移到 Windows 7 并将其用作终端,以便员工可以接收装有 Windows 10 的新机器,而无需在每台机器上再次创建 Win XP VM。
目前该应用程序使用 BDE 组件,并且在 XP 上运行良好。我们创建了一个 Win7 64 位虚拟机用于测试,并安装了必要的驱动程序等,但 BDE 无法运行。当我尝试通过 Borland 附带的 SQL Explorer 登录时,它只是挂起。它发送请求但从未得到响应。我花了一个多星期试图调试这个问题,但没有得到任何结果。
反正我放弃了BDE,想换ADO试试。因此,我首先简单地创建了一个 TDBGrid
并使用 ADO 组件用数据填充它。它在 XP 和 Win7 上都运行良好!所以现在我正在尝试将应用程序的 BDE 组件(TDataBase
、TQuery
等)转换为 ADO 组件。
我在尝试使用参数时遇到了一个有趣的问题。这是一个查询示例:
SELECT t1.SEC_CODE, t1.CODE, t1.CTRL_NUM, t1.CHECK_CODE,
t1.CHECK_NO, t1.CLIENT_ID, t1.AMOUNT, t1.TRANS_NO, decode(t2.prefix,null,t2.name,t2.name||', '||t2.prefix) as fullName,
t1.ENTRY_DATE, t1.DEPOSIT_DATE, t1.ACCT_COMMENT, t2.NAME, t2.PREFIX
FROM ACCOUNTING.ACCT_CHECK_IN t1, OISC.CLIENT t2
WHERE
(:BEN =1 OR (:BEN =0 AND t1.ENTRY_DATE=:DATE)
OR (:BEN =2 AND t1.DEPOSIT_DATE IS NOT NULL)
OR (:BEN =3 AND t1.DEPOSIT_DATE IS NULL)) AND
(:ALEX =1 OR (:ALEX =0 AND t1.ENTRY_DATE>=:DATE1 AND
t1.ENTRY_DATE<=:DATE2) OR (:ALEX =2 AND t1.DEPOSIT_DATE>=:DATE1
AND t1.DEPOSIT_DATE<=:DATE2))
AND T2.CLIENT_ID(+)=T1.CLIENT_ID
ORDER BY t1.SEC_CODE, t1.CHECK_CODE, fullName, t1.check_no
请不要注意参数名称,这对我来说有点好笑,但你们将无法连接。
这里的第一个问题是,即使某些参数名称相同,ADO 也将它们视为单独的参数!所以,如果我这样做:
checkload1->Parameters->ParamByName("BEN")->Value=0
ADO 不会用 0 替换每次出现的“BEN”,我最终得到一个包含 0 条记录的结果集!相反,我正在使用这个:
checkload1->Parameters->Items[0]->Value = 0; // BEN param
checkload1->Parameters->Items[1]->Value = 0;
checkload1->Parameters->Items[3]->Value = 0;
checkload1->Parameters->Items[4]->Value = 0;
基本上,根据参数索引将每个“BEN”参数替换为 0。
这给我带来了结果,但不是马上。
它是这样工作的:应用程序是一个基于树的用户界面。有一个节点显示“今天的支票”,当它展开时会显示今天的支票。太棒了,现在这在 BDE 上非常有效,我只分配一次参数值,它会在看到“BEN”等的任何地方自动替换它。
当使用 ADO 组件时,我展开“今日检查”节点,但代码运行、加载参数、激活查询组件,但我没有得到任何结果!所以节点保持折叠状态。如果我再次单击 +
符号伸展树(Splay Tree),它会加载支票!之后每次都会加载它们。
因此,在应用程序中有一个日期选项,默认为今天的日期。如果我将其更改为昨天的日期,我仍然会收到今天的支票……就像参数没有得到更新一样。如果我一开始就尝试从不同的日期开始,我不会得到任何结果!它将带来今天日期的结果,但之后它不会接受不同的日期。
我调试了代码,日期发生了变化,但出于某种原因,参数没有发生变化。这是我的代码块:
checkload1->Filter="" ;
checkload1->Filtered=false ;
switch(params)
{
case 0: checkload1->Parameters->Items[0]->Value = 1; // BEN param
checkload1->Parameters->Items[1]->Value = 1;
checkload1->Parameters->Items[3]->Value = 1;
checkload1->Parameters->Items[4]->Value = 1;
// ALEX Param
checkload1->Parameters->Items[5]->Value = 0;
checkload1->Parameters->Items[6]->Value = 0;
checkload1->Parameters->Items[9]->Value = 0;
checkload1->SQL->Strings[13] = "AND t1.CHECK_STATUS NOT IN ('Refunded', 'Posted') ";
break ;
case 1: checkload1->Parameters->Items[0]->Value = 0; // BEN param
checkload1->Parameters->Items[1]->Value = 0;
checkload1->Parameters->Items[3]->Value = 0;
checkload1->Parameters->Items[4]->Value = 0;
checkload1->Parameters->ParamByName("DATE")->Value=FormatDateTime("dd-mmm-yyyy", Date()) ;
checkload1->SQL->Strings[13] = " ";
break ;
case 2: checkload1->Parameters->Items[0]->Value = 2; // BEN param
checkload1->Parameters->Items[1]->Value = 2;
checkload1->Parameters->Items[3]->Value = 2;
checkload1->Parameters->Items[4]->Value = 2;
//ALEX param
checkload1->Parameters->Items[5]->Value = 2;
checkload1->Parameters->Items[6]->Value = 2;
checkload1->Parameters->Items[9]->Value = 2;
checkload1->SQL->Strings[13] = "AND t1.CHECK_STATUS IN ('Deposited') ";
break ;
case 3: checkload1->Parameters->Items[0]->Value = 3; // BEN param
checkload1->Parameters->Items[1]->Value = 3;
checkload1->Parameters->Items[3]->Value = 3;
checkload1->Parameters->Items[4]->Value = 3;
//ALEX param
checkload1->Parameters->Items[5]->Value = 0;
checkload1->Parameters->Items[6]->Value = 0;
checkload1->Parameters->Items[9]->Value = 0;
checkload1->SQL->Strings[13] = "AND t1.CHECK_STATUS IN ('Held') ";
break ;
}
if(!mainform->date1->Checked){
checkload1->Parameters->Items[5]->Value = 1;
checkload1->Parameters->Items[6]->Value = 1;
checkload1->Parameters->Items[9]->Value = 1;
}
checkload1->Parameters->Items[7]->Value = FormatDateTime("dd-mmm-yyyy", fromdate);
checkload1->Parameters->Items[10]->Value = FormatDateTime("dd-mmm-yyyy", fromdate);
checkload1->Parameters->Items[8]->Value = FormatDateTime("dd-mmm-yyyy", todate);
checkload1->Parameters->Items[11]->Value = FormatDateTime("dd-mmm-yyyy", todate);
if(filters != "") checkload1->SQL->Strings[12] = filters;
else checkload1->SQL->Strings[12]=" " ;
checkload1->Prepared = true;
checkload1->Active=true ;
有经验的人可以给我建议吗?
我知道这是古老的东西,但这些程序实际上是 15 到 20 年前编写的,并且它们正在转向基于 Web 的用户界面,但仍在构建中。在那之前,我需要进行必要的更改/更新,这是我工作的一部分。
最佳答案
好的,我让它工作了!!
对于在 Windows 7 64 位上使用 BDE 苦苦挣扎的任何人,这里有一个解决方案!请记住,我正在处理的数据库是使用 C++ Builder 6 构建的 Oracle 8i 和 Borland C++ 应用程序。
按照照片和箭头。我试着给每张照片加上自己的评论,但后来这个网站说我不能发布超过 2 个链接……让他们见鬼去吧,所以我把所有的都放在一张照片上。
例如,这个 TQuery 正在寻找 bnetdata 作为数据库。太好了,在下一张图片中我们添加了一个 ADOConnection 组件
单击突出显示的连接字符串。
选择使用连接字符串并点击构建。
选择突出显示的提供商,然后单击下一步。
选中使用数据源名称,然后单击箭头选择一个。请注意,稍后您将输入用户名和密码并勾选允许保存密码。
选择 BDE 组件正在使用的相同数据源。请注意,这是 ODBC 管理器中系统 DSN 下的来源之一。如果不存在,则创建一个。
这是 ODBC 管理员的截图。注意这里还是XP环境。您将需要在 Windows 7 计算机中创建相同的数据源(在我的例子中是 bnetdata)。
现在单击高级并从列表中选中读写选项。
在您单击 ADOConnection 组件上的“确定”之后,如您现在在对象检查器中看到的那样。查看突出显示的区域。现在,我们需要将 connected 属性设置为 true。当您这样做时,它会要求您登录数据库。输入用户名和密码,然后单击“确定”。连接属性现在变为真。之后,您需要将 LoginPrompt 属性设置为 false。现在单击项目上的保存。
假设您也有 BDE 数据库组件,单击它然后清除别名和驱动程序名称,然后将您的数据库名称放在 databaseName 属性下(在我的例子中是 bnetdata)。
保存项目并在XP中编译。复制应用程序并将其粘贴到 Windows 7 机器中,然后双击它即可运行!我已经成功地将所有应用程序转换为在 Windows 7 上运行。最困难的部分是安装 Borland 并让 Windows 7 在 ODBC 管理器的“驱动程序”选项卡下识别 Oracle ODBC 驱动程序。
同样,Borland 安装附带的 SQL Explorer 将无法工作。因此,我仍然需要在我的 Windows XP VM 中进行开发,但用户可以在 Windows 7 VM 中使用该应用程序作为 Windows 服务器上的终端...对我有用!!
希望这对某人有帮助!
编辑:
我还在 ADOConnection 中尝试了 Microsoft OLE DB Provider for Oracle,它也有效。没有看到对速度或性能的可衡量影响。两者似乎以相同的方式执行。我很惊讶如何添加 ADOConnection 组件允许应用程序连接到数据库并像在 XP 中一样工作!
另外,为了清楚起见,您不需要更改应用程序中的 BDE 组件。只需要添加 ADOConnection,所有其他组件保持不变(BDE 组件)。我试图转换为使用 ADO 组件,但不再需要了。
关于c++ - C++ Builder 6 和 Windows 7 64 位上的 ADOQuery,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35898736/
为什么我可以在控制台 window.window.window.window 中执行此操作并无限追加 .window 并返回 DOM 窗口? 最佳答案 因为 window 对象有一个指向它自身的 wi
Windows管理员用户和系统用户之间有什么权限区别吗? 有些时候,我必须将 cmd 窗口提升到系统权限才能删除一些文件。这可能是因为系统用户锁定了文件,或者系统用户可能具有更高的访问权限,我希望找出
按照目前的情况,这个问题不适合我们的问答形式。我们希望答案得到事实、引用或专业知识的支持,但这个问题可能会引发辩论、争论、投票或扩展讨论。如果您觉得这个问题可以改进并可能重新打开,visit the
Windows 服务和 Windows 进程之间的区别是什么? 最佳答案 服务是真正的 Windows 进程,没有区别。服务的唯一特殊之处在于它由操作系统启动并在单独的 session 中运行。一个独
我有一个 Windows 网络 (peer-2-peer) 以及 Active Directory,我需要记录向服务器发送任何类型打印的用户的名称。我想编写一个程序来记录他们的用户名和/或他们各自的
当我让一个 Windows 服务尝试安装另一个 Windows 服务时遇到问题。 具体来说,我有一个 TeamCity 代理在 Windows 2008 AWS 实例上为我运行测试。这些测试是用 Ja
我创建了一个应用程序来接收广播的 Windows 消息,效果很好。当我把它变成一个服务、安装它并启动服务时,该服务没有收到消息。 最佳答案 服务可能必须被授予访问桌面的权限。从服务属性、“登录”选项卡
我正在使用 Delphi 2010 编写应用程序。我希望在 Windows 启动时启动我的应用程序。我需要它在最新版本的 Windows XP、7.0 和最新的服务器中工作。 将其存储在以下关键工作下
我想开发一个适用于所有三个版本的 Windows XP、Vista 和 7 的应用程序。该应用程序允许人们选择要打开的文件,并允许他们在某些操作后保存文件。三个版本的 Windows 中的每一个都有不
对于\Windows\中的文件类型与\Windows\System32 中的文件类型是否有标准约定? 我正在开发一个 SDK,其中包含各种 DLL、帮助程序 exe 和 Windows 服务 exe。
要求是,必须在 WINDOWS7 机器上配置自动登录,但是这个自动登录应该等待(即延迟)直到另一个 Windows 服务发出继续自动登录的信号。 我使用了自定义凭据提供程序,它在其中等待另一个 Win
很抱歉,这不是一个大问题,而是更多的帮助人们解决这些特定问题的方法。我正在解决的问题要求使用串行I/O,但主要在Windows CE 6.0下运行。但是,最近有人问我是否也可以在Windows下运行该
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 这个问题似乎不是关于 a specific programming problem, a softwar
不幸的是 SC 命令在 W2000 上还不可用,所以我不能使用它。 我正在尝试检查服务是否在 W2000 服务器上运行,如果它没有运行,脚本应该能够启动该服务。 如何在 Windows 2000 上执
如何在登录到 Windows 之前启动 Windows 窗体应用程序?是否可以在登录到 Windows 之前启动 Windows 窗体应用程序?如果不是,我是否有机会在登录前启动 Windows 服务
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 这个问题似乎不是关于 a specific programming problem, a softwar
我想在 XML 文件中区分 Windows XP 和 Windows 7。我想我会在 XML 中为它使用一个环境变量。 但是我找不到在 Windows 中定义的任何系统环境变量来提供此信息。 我看到了
有谁知道我可以在注册表中的哪个位置检查机器上是否安装了这些应用程序: Windows 通讯录 Windows 联系人 最佳答案 来自 Microsoft:我知道它说的是 win 95,但 reg 是一
我正在尝试从我的 Windows 服务器调用放置在远程 Windows 服务器上的批处理文件。我在远程服务器上安装了 freeSSHd。我尝试使用 putty/plink 但没有结果。 我使用的命令语
( 大家好。我是 Windows 编程的新手,所以如果已经有人问过我,我提前道歉,我只是不知道要搜索什么,但这个问题一直让我发疯,我知道有人可能真的很容易回答这个问题。) 我的公司有一个在 Windo
我是一名优秀的程序员,十分优秀!