TADOConnection *myADOConnection=new TADOConnection(NULL);
TADOQuery *myADOQuery=new TADOQuery(NULL);
TDataSetProvider *mDataSetProvider=new TDataSetProvider(NULL);
TClientDataSet *mClientDataSet=new TClientDataSet(NULL);
myADOQuery->Connection=myADOConnection;
mDataSetProvider->DataSet=myADOQuery;
mClientDataSet->ProviderName="mDataSetProvider";
mClientDataSet->SetProvider(mDataSetProvider);
myADOConnection->ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户名;Password=密码;Initial Catalog=数据库;Data Source=服务器";
myADOConnection->LoginPrompt=false;
myADOConnection->Open();
myADOQuery->SQL->Clear();
myADOQuery->SQL->Add("select * from tablename");
myADOQuery->Active=true;
mClientDataSet->Active=true;
String resultstr=mClientDataSet->XMLData;
myADOQuery->Active=false;
mClientDataSet->Active=false;
c++ TADOConnection TADOQuery TDataSetProvider TClientDataSet 动态创建
最新推荐文章于 2025-06-09 09:22:08 发布
本文介绍使用 Delphi 进行 ADO 数据库连接配置及 SQL 查询执行过程,并演示如何将查询结果导出为 XML 格式。
1081

被折叠的 条评论
为什么被折叠?



