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
相关问答：
IsSqlDataBase = 0 '主数据库类型(1=SQL，0=AC)
'===========================================================================
SqlDatabaseName = "ads365" '主数据库名
S ......
问题如下：
用查询语句
select * from tab where fil like 'CK090902'能查找出一条记录并显示出来
改为
select * from tab where fil = 'CK090902'
就不能查找到，也显示不出来 ......
哪里出错了，输出这样的结果？？
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
我目前表的排列是上面这张图这情况：
我希望调整成：
如何做呢？
刚才试了下，点“开始”--“视图”--“设计视图”不行
PS：我用的是access 2007，上面这个表是mdb格式的
主菜单， 视图 ......
它的定义是这样的
_CRTIMP __checkReturn int __cdecl _access(__in_z const char * _Filename, __in int _AccessMode);
大哥，看个函数声明就能看出他干啥的？
从命名来看应该是判� ......
