社区
茶馆
帖子详情
请问在BCB中如何将ADO查询出的DBF记录集保存为新的DBF文件
goos9005mlgk
2008-01-19 05:32:43
请问老妖大侠
如何在BCB中如何保存用ADO查询出的记录集保存为新的DBF文件,还有如何将A记录集的记录追加到B记录集中,如记录存在则更新,如不存在则追加,非常急,谢谢大侠了
...全文
300
20
打赏
收藏
请问在BCB中如何将ADO查询出的DBF记录集保存为新的DBF文件
请问老妖大侠 如何在BCB中如何保存用ADO查询出的记录集保存为新的DBF文件,还有如何将A记录集的记录追加到B记录集中,如记录存在则更新,如不存在则追加,非常急,谢谢大侠了
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
20 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
liudutian
2012-04-10
打赏
举报
回复
Tdbf是控件吗,哪里下,如何用
CACACACACA
2008-04-05
打赏
举报
回复
有BatchMove控件, 在BDE页上。
fbmsyu
2008-04-05
打赏
举报
回复
我用Tdbf,挺好用的。
goos9005mlgk
2008-01-27
打赏
举报
回复
我顶顶,继续求答案
goos9005mlgk
2008-01-26
打赏
举报
回复
继续顶
僵哥
2008-01-25
打赏
举报
回复
实在不行,估计得更新驱动到VFP8/VFP9
goos9005mlgk
2008-01-25
打赏
举报
回复
MyModule->ADOConnection1->Close();
MyModule->ADOConnection1->ConnectionString = "Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=" + DataPath + ";Exclusive=No";
MyModule->ADOConnection1->Open();
MyModule->ADOQuery1->Close();
MyModule->ADOQuery1->Connection = MyModule->ADOConnection1;
MyModule->ADOQuery1->SQL->Clear();
MyModule->ADOQuery1->SQL->Add("select * from mydb.dbf into dbf newdb.dbf")
MyModule->ADOQuery1->ExecSQL();
MyModule->ADOQuery1->Close();
MyModule->ADOConnection1->Close();
不报错,但没任何结果
僵哥
2008-01-25
打赏
举报
回复
我已经说过了,首先确定你的驱动对不对。
goos9005mlgk
2008-01-25
打赏
举报
回复
回楼上的大侠,用 select * from mydb.dbf into dbf newdb.dbf在BCB里面不报错,但什么也没有做
goos9005mlgk
2008-01-25
打赏
举报
回复
谢谢楼上诸位大侠的热心回复,继续顶
Leighf
2008-01-24
打赏
举报
回复
一段代码仅供参考:
if (DM->qryLog->RecordCount <= 0)
{
Application->MessageBoxA("表里没有数据!","提示",MB_OK);
return;
}
AnsiString filter = svdlg->Filter,FileDir,filename,tablename;
svdlg->Filter = "DBF 文件(*.Dbf)|*.Dbf";
if(svdlg->Execute() == IDOK)
{
filename = ChangeFileExt(svdlg->FileName,".Dbf");
if (FileExists(filename))
{
if (MessageBox(NULL,"是否覆盖该文件?","消息",MB_YESNO) == IDNO)
return;
else
DeleteFile(filename);
}
filename = ExtractFileName(filename);
AnsiString ffile = ExtractFilePath(Application->ExeName ) + "_Part.dbf";
if (!CopyFile(ffile.c_str(),filename.c_str(),false))
{
Application->MessageBoxA("创建文件失败!","警告",MB_OK);
return;
}
FileDir = ExtractFileDir(svdlg->FileName);
try
{
DM->tblVideo->Close();
DM->tblVideo->DatabaseName = FileDir;
DM->tblVideo->TableName = filename;
DM->tblVideo->Open();
DM->qryLog->First();
for(int i = 0;i < DM->qryLog->RecordCount; i++)
{
DM->tblVideo->Append();
for(int j = 0;j < 12; j++)
//for(int j = 0;j < DM->qryLog->Fields->Count; j++)
{
DM->tblVideo->FieldValues[DM->tblVideo->Fields->Fields[j]->FieldName]
= DM->qryLog->FieldValues[DM->qryLog->Fields->Fields[j]->FieldName];
Application->ProcessMessages();
}
DM->tblVideo->Post();
DM->qryLog->Next();
}
Application->MessageBoxA("导出DBF成功!","提示",MB_OK);
}
catch(...)
{
Application->MessageBoxA("数据库连接错误!", "错误", MB_OK);
}
}
DM->tblVideo->Close();
svdlg->Filter = filter;
Leighf
2008-01-24
打赏
举报
回复
http://www.ccrun.com/view.asp?id=204
Leighf
2008-01-24
打赏
举报
回复
可以到这里看看
http://www.ccrun.com/view.asp?id=204
僵哥
2008-01-24
打赏
举报
回复
DBF?如果是使用VFP的驱动,可以直接select .... into NewTable.
goos9005mlgk
2008-01-23
打赏
举报
回复
有解决过类似问题的大侠没,急啊,分不够可以再加
ydlchina
2008-01-22
打赏
举报
回复
顶分
goos9005mlgk
2008-01-22
打赏
举报
回复
顶顶
将不同类型的
ADO
数据源导
出
到Excel(解决方案)
主 题: 将不同类型的
ADO
数据源导
出
到Excel(解决方案) 作 者: sas_razor (散步的水)
IT文档 10
在VB5
中
生成统计图形在VB6
中
实现Kodak控件编程在VB6
中
实现图像的变换在VB6
中
用Select语句检索记录在VB
中
使用API关闭窗口在VB
中
使用DirectShow播放AU
文件
在VB
中
使用文字朗读引擎(TTS)技术在VB
中
利用Word宏命令开发ASP组件在VB
中
制作单独程序封面的两种方法在VB
中
压缩ACCESS 数据库在VB
中
存取数据库
中
的图片在VB
中
实现
文件
上载在VB
中
实现窗体的动态效果
delphi数据库开发
Delphi企业版的Borland数据库引擎(BDE)可以高性能地连接SQL服务器,比如InterBase、Microsoft SQL Server、Oracle、InformixDynamic Server、Sybase Adaptive Server和DB2。 数据集的每一列被称为一个字段,每一行被称为一个记录。·数据集:是一个分立的数据记录的集合。数据集由VCL的TDataSet表示。·表...
SQL与ORACLE的对比
function StorePage(){d=document;t=d.selection?(d.selection.type!=None?d.selection.createRange().text:):(d.getSelection?d.getSelection():);void(keyit=window.open(http://www.365key.com/storeit.as
茶馆
551
社区成员
20,048
社区内容
发帖
与我相关
我的任务
茶馆
C++ Builder 茶馆
复制链接
扫一扫
分享
社区描述
C++ Builder 茶馆
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章