双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

请问在BCB中如何将ADO查询出的DBF记录集保存为新的DBF文件

2008-01-19 05:32:43 350 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

goos9005mlgk 墨衍会员 · AI 创作全网分发关注 + 加入社区

BCB数据库构件用法的总结 1.为了便于数据库的管理和简化sql语句，一般我们都会使用 DataModule–专门用于放置数据访问组件的框架来管理数据库组件。比如在整个程序中某些窗体可能需要查询数据库的信息，到时候只需要把一个查询组件专门用于公共查询数据的组件放在 DataModule构件中，这样就不会在多个窗口都需要添加查询组件，而且可以在DataModule构件中提前写好用于更新和查询的方法，这样就可以省去大量重复代码！... 阅读详情

请问老妖大侠
如何在BCB中如何保存用ADO查询出的记录集保存为新的DBF文件,还有如何将A记录集的记录追加到B记录集中,如记录存在则更新,如不存在则追加,非常急,谢谢大侠了

...全文

win10删除vmware12后，重新安装失败（遗留注册表问题）解决总结之前安装过一次VMware虚拟机，后来由于某些已遗忘原因把它卸载了，但是没有卸载完全，为以后安装留下了一些麻烦，现在根据我google很多内容总结后写下了自己的解决办法。一些我搜的的可以用的VM12的注册码 5A02H-AU243-TZJ49-GTC7K-3C61N ZZ510-DYX47-48ERP-D6XZG-YCKU2 YV5MU-2FX5H-M841P-LZX5X-PYHX8 阅读详情

goos9005mlgk

茶馆 551 成员 20,044 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

顶顶

✦双11狂欢大促✦

请问在BCB中如何将ADO查询出的DBF记录集保存为新的DBF文件

相关推荐

双11狂欢大促