DBGrid问题(在线等) 请问如何将DBGrid的内容导出Access文件,以及Access文件的导入问题??谢谢!!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 use DBGridEhImpExp;SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,Eh_Wting,'d:\aaa.xls',true); 才二十分!帮助别人,是我的快乐。Delphi中操作Access文件的:使用Adotable,或者Adoconnection或者AdoQuery均可1、对于Adotable组件找到Connectionstring,点击进入编辑,选择Microsoft.Jet.OLEDB.4.0;2、进入连接页面,选择数据库文件,点击测试连接,连接成功即可。3、添加DBGrid组件和DataSource组件,把DataSource的DatasEt设置为Adotable1,把DbGrid组件的Datasource设置为Datasource1即可4、让Adotable的AcTive设置为trure;这样Access数据库连接成功对Adotalbe的操作,即可倒入导出,看看书吧,很简单 ironwill2004(铁手) 非常感谢你的答复! 这个和数据库的连接我知道! 可能是我没表诉清楚. 我想把DBGrid里的内容保存在一个其他的文件,把另一个文件里的数据存入到数据库!谢谢 ironwill2004(铁手) 非常感谢你的答复! 这个和数据库的连接我知道! 可能是我没表诉清楚. 我想把DBGrid里的内容保存在一个其他的文件,把另一个文件里的数据存入到数据库!谢谢 直接用数据集操作Access就可以 DBGrid上的数据是保存在本地数据集里面 例如:Tadoquery直接操作数据集 就可以了 http://community.csdn.net/Expert/topic/3723/3723113.xml?temp=.5934717求助:从access表中取数据导到其他表中问题 用adotable建连接到你所需要的数据库文件里。然后用再ADO表连接adotable连接值。exesql "create table BB名" 并连接打开whith abdotable dobegin if .redcorcount >=0 then .first else exit ado表.insert; ado表.fieldsbyname("XX").value:= .fieldsbyname("XX").value; ..... ado表.post; .next; end; 急!如何双击pas文件,不要重新打开一个delphi实例 如何在出生日期里查询生日!!!!!! 关于动态创建treeview该怎么做? Delphi7中如何在cxgrid中只对当前行处理,其它行不可选 对BPL文件有兴趣的进来,分不够再加! DELPHI+ACCESS实现插入 如何在delphi中实现TDBComboBox从一个编码表中读数据!!!!! 哪里有好书下载? 窗体启动的时候关闭 该怎么写啊, 我的form为什么隐藏不了 小弟剛學不久,不知道哪裡有資料下載 需要几个组件一时找不到,希望谁能给我发个!
SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,Eh_Wting,'d:\aaa.xls',true);
帮助别人,是我的快乐。
Delphi中操作Access文件的:
使用Adotable,或者Adoconnection或者AdoQuery均可
1、对于Adotable组件找到Connectionstring,点击进入编辑,选择Microsoft.Jet.OLEDB.4.0;
2、进入连接页面,选择数据库文件,点击测试连接,连接成功即可。
3、添加DBGrid组件和DataSource组件,把DataSource的DatasEt设置为Adotable1,把DbGrid组件的Datasource设置为Datasource1即可
4、让Adotable的AcTive设置为trure;
这样Access数据库连接成功
对Adotalbe的操作,即可倒入导出,看看书吧,很简单
非常感谢你的答复!
这个和数据库的连接我知道!
可能是我没表诉清楚.
我想把DBGrid里的内容保存在一个其他的文件,把另一个文件里的数据存入到数据库!
谢谢
非常感谢你的答复!
这个和数据库的连接我知道!
可能是我没表诉清楚.
我想把DBGrid里的内容保存在一个其他的文件,把另一个文件里的数据存入到数据库!
谢谢
求助:从access表中取数据导到其他表中问题
然后用再ADO表连接adotable连接值。
exesql "create table BB名" 并连接打开whith abdotable do
begin
if .redcorcount >=0 then .first else exit
ado表.insert;
ado表.fieldsbyname("XX").value:= .fieldsbyname("XX").value;
.....
ado表.post;
.next;
end;