BCB中ADO数据库的TADOConnection连接
2021/11/21 19:41:11
本文主要是介绍BCB中ADO数据库的TADOConnection连接,对大家解决编程问题具有一定的参考价值,需要的程序猿们随着小编来一起学习吧!
//->->H
#ifndef Unit_GlobalH
#define Unit_GlobalH
//-------------------------------------------------------------------------------------------------------------------------------------------------------------
#endif
#include "vcl.h"
#include
#include
#include "inifiles.hpp"class TGlobal
{
public:
TGlobal();
~TGlobal();
public:
TADOQuery * adoQuery;
TADOConnection * adoCon;
void InitDatabaseConnect () ;
int PerformSQL(AnsiString strSQL ,int exMode);
void AQEdit(AnsiString strSQL);
} ;
//->->CPP//-------------------------------------------------------------------------------------------------------------------------------------------------------------
#pragma hdrstop
#include "Unit_Global.h"
//-------------------------------------------------------------------------------------------------------------------------------------------------------------
#pragma package(smart_init)
TGlobal::TGlobal()
{
adoQuery = new TADOQuery (NULL);
adoCon = new TADOConnection(NULL);
InitDatabaseConnect();
}
TGlobal::~TGlobal()
{
if(adoQuery)
delete adoQuery;
if(adoCon)
delete adoCon;
}
void TGlobal::InitDatabaseConnect ()
{
AnsiString database,user,password,catalog; // ,cathlabid
TIniFile *ini;
AnsiString siniFile = ExtractFilePath (Application->ExeName) + "config.ini";
if(FileExists(siniFile))
{
ini = new TIniFile(siniFile);
database =ini->ReadString( "setting", "database","");
user= user=ini->ReadString( "setting", "user","");
password=ini->ReadString( "setting", "password","");
catalog=ini->ReadString( "setting", "catalog","");adoCon->LoginPrompt=false;
AnsiString DMSQL = "Provider=SQLOLEDB.1;Password=""+password+"";Persist Security Info=True;User ID="+user+";Initial Catalog="+catalog+";Use Procedure for Prepare=1;Auto Translate=True;PadoConket Size=4096;Data Source="+database+";";
adoCon->ConnectionString = DMSQL;
adoCon->ConnectionTimeout=1000;
adoCon->Connected = true;
if(!adoCon->Connected)
{
Application->MessageBox("Database:Reason:InitDatabaseConnect","Error",MB_OK+MB_ICONERROR);
Application->Terminate();
}adoQuery->Connection = adoCon;
delete ini;
}}
int TGlobal::PerformSQL(AnsiString strSQL ,int exMode)
{
int nReturnValue = ->1;
TADOQuery * tempQuery = new TADOQuery(NULL);
tempQuery->Close();
tempQuery->Connection = adoCon;
tempQuery->SQL->Text = strSQL;
if(exMode==0)//查找 select
{
tempQuery->Open();
nReturnValue = tempQuery->RecordCount;
}
if(exMode==1)//插入,更新 insert update
{
tempQuery->ExecSQL();
}
delete tempQuery;
tempQuery = NULL;
return nReturnValue;
}
这篇关于BCB中ADO数据库的TADOConnection连接的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!
- 2024-10-04el-table 开启定时器下,表格的选中状态会消失是什么原因-icode9专业技术文章分享
- 2024-10-03如何安装和初始化飞牛私有云 fnOS?-icode9专业技术文章分享
- 2024-10-03如何安装 App 并连接到飞牛 NAS?-icode9专业技术文章分享
- 2024-10-03如何安装飞牛 TV 并连接到影视服务器?-icode9专业技术文章分享
- 2024-10-03如何在PVE和ESXI上安装飞牛私有云 fnOS?-icode9专业技术文章分享
- 2024-10-03fnOS国产最强NAS安装系统异常情况处理-icode9专业技术文章分享
- 2024-10-03飞牛NAS如何创建存储空间?-icode9专业技术文章分享
- 2024-10-03fnOS国产最强NAS硬盘会自动休眠吗?-icode9专业技术文章分享
- 2024-10-03fnOS国产最强NAS如何安装飞牛影视和创建媒体库?-icode9专业技术文章分享
- 2024-10-03fnOS国产最强NAS如何为家人朋友开通影视账号?-icode9专业技术文章分享