社区
数据库及相关技术
帖子详情
关于在VISTA系统下的adoquery->open报错问题!
aiker666
2010-02-25 10:10:49
我的软件本来是在XP下面开发的,开发工具BCB6.0。主要作用是连接DB2数据库进行数据的相关处理。在XP系统下程序一切正常。可是整个工程移植到VISTA系统下后,代码里面做adoquery->open后就出现“未找到提供程序,程序可能未正确安装”的错误。我试了下adoquery控件的功能是正常的,BCB也是正常安装好的。请问这个大概是什么问题呢?
...全文
118
9
打赏
收藏
关于在VISTA系统下的adoquery->open报错问题!
我的软件本来是在XP下面开发的,开发工具BCB6.0。主要作用是连接DB2数据库进行数据的相关处理。在XP系统下程序一切正常。可是整个工程移植到VISTA系统下后,代码里面做adoquery->open后就出现“未找到提供程序,程序可能未正确安装”的错误。我试了下adoquery控件的功能是正常的,BCB也是正常安装好的。请问这个大概是什么问题呢?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
aiker666
2010-03-03
打赏
举报
回复
引用 7 楼 masm32v9 的回复:
确认连接字符串没有写错?
没有错。我查了可能是这样的原因,我看了下DB2的指南,VISTA下面的DB2驱动必须是9.0SP2版本。可能是我机器上的DB2驱动版本稍微早了些,所以导致不兼容造成的!
sczyq
2010-03-03
打赏
举报
回复
LZ 应将连接串贴出来讨论一下
伊吹萃香
2010-03-02
打赏
举报
回复
确认连接字符串没有写错?
aiker666
2010-03-02
打赏
举报
回复
还是不行,ODBC里面已经显示有DB2数据库驱动。说明客户端驱动已经装好了。还是adoquery->open得时候报错!!静等!
伊吹萃香
2010-03-01
打赏
举报
回复
我看是缺少数据驱动程序吧,比如说,我连接个Access,都还要系统有个Jet数据引擎才行。
柯本
2010-02-25
打赏
举报
回复
如果是客户端已安装,可能是vista的兼容问题,vista是M$兼容最差的系统,最好不用
我不懂电脑
2010-02-25
打赏
举报
回复
未找到提供程序
可能程序没安装,也可能是对它没有访问权限。
aiker666
2010-02-25
打赏
举报
回复
引用 1 楼 keiy 的回复:
db2可能要装客户端的吧.因为缺省情况下,ADO是没有直接对DB2支持的
客户端装好了。以前在XP系统装过的,所以应该没有什么问题。是不是VISTA系统和ado控件有什么不兼容的地方啊?
柯本
2010-02-25
打赏
举报
回复
db2可能要装客户端的吧.因为缺省情况下,ADO是没有直接对DB2支持的
人事管理
系统
实验报告书
附录:源程序 //-------------------主窗体 查询与浏览--------------------------------------- #include #pragma hdrstop #include "Unit1.h" #include "Unit2.h" #include "Unit3.h" #include "Unit4.h" #include "Unit5.h" #include "Unit6.h" #pragma package(smart_init) #pragma resource "*.dfm" TFmain *Fmain; bool onshow=false; __fastcall TFmain::TFmain(TComponent* Owner) : TForm(Owner) { } void __fastcall TFmain::N5Click(TObject *Sender) { Close();//退出程序 } void __fastcall TFmain::SpeedButton3Click(TObject *Sender) { DataModule3->
ADO
Query
1->First() ; StatusBar1->Panels->Items[0]->Text="数据指向第一个"; } void __fastcall TFmain::SpeedButton1Click(TObject *Sender) { DataModule3->
ADO
Query
1->Prior() ; StatusBar1->Panels->Items[0]->Text="数据指向上一个"; } void __fastcall TFmain::SpeedButton2Click(TObject *Sender) { DataModule3->
ADO
Query
1->Next() ; StatusBar1->Panels->Items[0]->Text="数据指向下一个"; } void __fastcall TFmain::SpeedButton4Click(TObject *Sender) { DataModule3->
ADO
Query
1->Last() ; StatusBar1->Panels->Items[0]->Text="数据指向最后"; } void __fastcall TFmain::Button2Click(TObject *Sender) { //添加新的数据 Fadd->Caption="添加数据"; DataModule3->
ADO
Query
1->Append() ; Fadd->ShowModal() ; } void __fastcall TFmain::FormClose(TObject *Sender, TCloseAction &Action) { //对退出程序做确认处理 if(MessageBox(this->Handle,"确定要退出吗?","提示",MB_YESNO+MB_ICONQUESTION) == IDNO) Action=caNone; } void __fastcall TFmain::N10Click(TObject *Sender) { AboutBox->ShowModal() ; //显示关于对话框 } void __fastcall TFmain::Button4Click(TObject *Sender) { //以下为查找语句 AnsiString sql; if(Edit1->Text=="")return; if( ComboBox1->Text =="精确")sql=" ='"+Edit1->Text+"';"; else sql=" like '%"+Edit1->Text+"%';"; sql="select * from renshi where "+ComboBox2->Text+sql; StatusBar1->Panels->Items[0]->Text=sql; DataModule3->
ADO
Query
1->Active =false; DataModule3->
ADO
Query
1->SQL->Clear(); DataModule3->
ADO
Query
1->SQL->Add(sql); DataModule3->
ADO
Query
1->Active =true; if(DataModule3->
ADO
Query
1->RecordCount==0) StatusBar1->Panels->Items[1]->Text="无符合条件数据"; else StatusBar1->Panels->Items[1]->Text="符合条件数据个数为:"+IntToStr(DataModule3->
ADO
Query
1->RecordCount); } void __fastcall TFmain::Button6Click(TObject *Sender) { //以下为显示所有数据 AnsiString sql; sql="select * from renshi;"; StatusBar1->Panels->Items[0]->Text="显示全部数据"; DataModule3->
ADO
Query
1->Active =false; DataModule3->
ADO
Query
1->SQL->Clear(); DataModule3->
ADO
Query
1->SQL->Add(sql); DataModule3->
ADO
Query
1->Active =true; if(DataModule3->
ADO
Query
1->RecordCount==0) StatusBar1->Panels->Items[1]->Text="无符合条件数据"; else StatusBar1->Panels->Items[1]->Text="数据总量为:"+IntToStr(DataModule3->
ADO
Query
1->RecordCount); } void __fastcall TFmain::Button1Click(TObject *Sender) { //刷新显示 DataModule3->
ADO
Query
1->Active =false; DataModule3->
ADO
Query
1->Active =true; } void __fastcall TFmain::N9Click(TObject *Sender) { //帮助内容 ShowMessage("\ 大家好,虽然只是一个简单的程序但是也要写帮助。\n\ 简单的操作如下:\n\ 一、打开程序。\n\ 二、可以进行数据的添加、删除、浏览、查找\n\ 三、关闭。\n\ 谢谢使用!\n\ "); } void __fastcall TFmain::Button3Click(TObject *Sender) { //数据删除操作 AnsiString printstr="确定删除编号为"+DataModule3->
ADO
Query
1->FieldByName("编号")->AsString+"的数据吗?"; if(MessageDlg(printstr,mtWarning,TMsgDlgButtons() << mbOK <
ADO
Query
1->Delete() ; StatusBar1->Panels->Items[0]->Text="数据已经删除"; } } void __fastcall TFmain::N3Click(TObject *Sender) { //更改显示字体 if(FontDialog1->Execute())Fmain->Font=FontDialog1->Font; } void __fastcall TFmain::N12Click(TObject *Sender) { //更改窗体颜色 if(ColorDialog1->Execute()) { Fmain->Color=ColorDialog1->Color;//主窗体 Fadd->Color=ColorDialog1->Color; //添加、修改窗体 } } void __fastcall TFmain::N13Click(TObject *Sender) { //更改数据域颜色 if(ColorDialog1->Execute()) DBGrid1->Color=ColorDialog1->Color; } void __fastcall TFmain::N11Click(TObject *Sender) { Fshow->QuickRep1->Preview();//打印数据 } void __fastcall TFmain::Button5Click(TObject *Sender) { Fadd->Caption="修改数据"; Fadd->ShowModal() ; //修改数据 } void __fastcall TFmain::FormShow(TObject *Sender) { if(onshow==false) { Fwelcome->ShowModal() ; onshow=true; return; } } //-------------------------------------------------------------------------- //------------
系统
封面------------------------------------------------------ #include #pragma hdrstop #include "Unit2.h" #include "Unit1.h" #pragma package(smart_init) #pragma resource "*.dfm" TFwelcome *Fwelcome; int logintime=15; //进入
系统
等待时间X秒 __fastcall TFwelcome::TFwelcome(TComponent* Owner) : TForm(Owner) { } void __fastcall TFwelcome::Timer1Timer(TObject *Sender) { if(logintime==0){ Timer1->Enabled=false; Close(); } logintime--; SpeedButton1->Caption ="进入("+IntToStr(logintime)+")"; } void __fastcall TFwelcome::SpeedButton2Click(TObject *Sender) { Application->Terminate() ; } void __fastcall TFwelcome::SpeedButton1Click(TObject *Sender) { logintime=15; Timer1->Enabled=false; Close(); } //-------------------------------------------------------------------------- //---------------------数据修改窗体----------------------------------------- #include #pragma hdrstop #include "Unit4.h" #include "Unit3.h" #pragma package(smart_init) #pragma resource "*.dfm" TFadd *Fadd; __fastcall TFadd::TFadd(TComponent* Owner) : TForm(Owner) { } void __fastcall TFadd::Button1Click(TObject *Sender) { if(DBEdit1->Text =="")return; DataModule3->
ADO
Query
1->Refresh() ; Close(); } void __fastcall TFadd::Button2Click(TObject *Sender) { DataModule3->
ADO
Query
1->Cancel() ; Close(); } void __fastcall TFadd::FormClose(TObject *Sender, TCloseAction &Action) { DataModule3->
ADO
Query
1->Cancel() ; } //--------------------------------------------------------------------------
Delphi将
ADO
QUERY
的Parameters存储到流中的演示.rar
在Delphi环境下,将
ADO
QUERY
的Parameters存储到流中可能不太实用,但在基于TCP/IP 套接字模式开发的类三层架构中,如虫虫的远程数据对象,若能采用此法,必将大幅度提高此类对象的使用范围及查询效率。 本演示程序核心单元Web
Ado
Stream的流读写部分改编自New Midas VCL Library(1.00)的JxStream.pas,为方便与
Ado
Query
的接口,笔者专门编写了
Ado
Query
SaveTostream(将
ADO
Query
的查询语句及Parameters保存到流中)、
Ado
Query
LoadFromstream(从流中恢复
ADO
Query
的查询语句及Parameters)2个过程。
ADO
Query
一个
ADO
查询分析器,使用了一些可能会常用的技术。请在创建
ADO
联接字符串时选中“保存密码”。
用DbgridEh制作下拉列表.doc
怎么用DbgridEh制作下拉列表框1, 设置好
Ado
query
的LookUp字段 关联的主键和返回字段 2, 设置DBGRIDEH相应字段的的alwaysShowEditButton = true 3, 设置好DbgridEh相应字段的LookUpdisplayFields 但就是运行后点击按钮不能出现下拉列表框呀! 3: ButtonStyle--cbsDropDown->PickList->在keylist中增加对应的关键值
DBGrid
ADO
Query
分页查询
DBGrid
ADO
Query
分页查询,自己写的,不够完善,仅供交流。 DBGrid
ADO
Query
分页查询,自己写的,不够完善,仅供交流。
数据库及相关技术
1,178
社区成员
18,939
社区内容
发帖
与我相关
我的任务
数据库及相关技术
C++ Builder 数据库及相关技术
复制链接
扫一扫
分享
社区描述
C++ Builder 数据库及相关技术
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章