ADOQuery如何将Excel数据导入Access数据库?

如何将Excel数据导入Access数据库?
表名:crk

---

---

End_rbody_60447848//-->
该回复于2009-10-19 10:44:48被管理员删除



对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP








zhoutler
(一代程序巨浆--用浆糊粘贴代码)

等　级：



#2楼 得分：0回复于：2009-10-16 22:47:40


方法1：通过三方控件如XLSReadWrite等读Excel的Sheet内容，然后连接到Access数据，写入表。不要说怎么操作Access数据库进行表的Insert都不清楚哈。

方法2：用Jet引擎打开Excel的文件，这样如同操作Access一样，Select出来，然后Insert数据到Access里面去.

方法3：用Com接口读Excel内容，Insert到Access表。

---

这里还发一个贴啊？

---

procedure TExInput.Excel1Click(Sender: TObject); //实现Excel导入SQL
var
  sTableName, ErrInfo: string;
var
TableName,CBMonth ,sqlStr:String;
begin
TableName :='BCTZ'+ComboBoxYear.Text+ComboBoxMonth.Text;
  sqlStr:='create table BCTZ'+ComboBoxYear.Text+ComboBoxMonth.Text+'( BmNo char(20),RsNo char(20),TzRq char(20), BcNo char(20), Name char(20), BmMc char(20))';
ADOQuery1.sql.clear;
ADOQuery1.sql.add(sqlStr);
ADOQuery1.execsql;
  try
    ADOConn.Connected := False;
    ADOConn.ConnectionString := Format(context, [Trim(edtPasswd.Text), Trim(edtUser.Text), Trim(edtServerName.Text), Trim(edtServerIP.Text)]);
  &n