如何将SQL服务器上数据导出到客户端本地(200分)
如题 问题点数：0、回复次数：5Top
1 楼MartinWang（小磋磋）回复于 2003-12-04 08:09:12 得分 0
是导出到客户端的sql服务器上，还是导成.txt,.xls...
说清楚点：）Top
2 楼52vc（方旭）回复于 2003-12-04 08:48:27 得分 0
//---导入excel---
CGauge1->MaxValue=FindsetResult->FindQuery->RecordCount;
Variant ex,newxls;
CGauge1->Progress=1;
int i,j=1;
try
{
ex=CreateOleObject("Excel.Application"); //启动Excel
}
catch(...)
{
ShowMessage("Microsoft Excel 2000 没有安装或文件已经被破坏！");
}
//ex.OlePropertySet("Visible",(Variant)false); //使Excel启动后可见
newxls=ex.OlePropertyGet("workbooks").OleFunction("Add");
//FindsetResult->FindQuery->Open();
FindsetResult->FindQuery->First();
AnsiString temp;
for(i=0;i<FindsetResult->FindQuery->FieldCount;i++)
{
temp=AnsiString(FindsetResult->DBGrid1->Columns->Items[i]->Title->Caption);
ex.OlePropertyGet("Cells",(Variant)1,(Variant)(i+1)).OlePropertySet("Value",temp);
}
while(!FindsetResult->FindQuery->Eof)
//将数据库中的记录依次写到工作薄中
{
CGauge1->Progress++;
if(FindsetResult->FindQuery->RecNo%50==1)
{
Toex->Refresh();
FindsetResult->Refresh();
}
j=j+1;
for(i=0;i<FindsetResult->FindQuery->FieldCount;i++)
{
temp=AnsiString(FindsetResult->FindQuery->Fields->Fields[i]->AsString);
ex.OlePropertyGet("Cells",(Variant)j,(Variant)(i+1)).OlePropertySet("Value",temp);
}
FindsetResult->FindQuery->Next();
}
ex.OlePropertySet("Visible",(Variant)true);
Close();Top
3 楼lihongxing2002（潇洒）回复于 2003-12-09 12:18:17 得分 0
企业管理器有导入导出向导Top
4 楼lihongxing2002（潇洒）回复于 2003-12-09 12:18:48 得分 0
DTSTop
5 楼matq2008（叶子.net）回复于 2003-12-09 12:52:30 得分 0
看你导出到哪儿?
本身支持导入导出Top
相关问题
- 请教:怎么样导出服务器上的数据库啊???
- 求救: 怎么样导出服务器上的数据库!
- 如何Sql数据库服务器中一个SQL查询导出到客户端的一个本地Excel文件里???急!!!!在线!
- zjcxc(邹建)，ywuwgij(於剑) 请进，如何将SQL中的表导出EXCEL到其他机器上，而不是再数据库服务器上？谢谢
- 服务器只剩下硬盘了，mysql数据库该如何导出？
- 怎样把服务器中数据库里的数据和硬盘中的数据给导出来?(等!)
- 从sql server服务器追加数据到oracle服务器错误
- 两个sql数据服务器数据同步问题
- 如何将服务器上的数据库中的表结构和数据导出为db文件?
- 怎样导出服务器端数据库内容到本地数据库,急,急,急,马上结贴
