高高手请帮忙看一下吧!

Rose1234567890 2003-10-17 05:23:59
我想把EXCEL文件的内容导入到ACCESS数据库中怎么办呀?
分太少了。因为我把分都用光了。大家可怜可怜我吧?
这样的例子有吗?能否把代码贴上来呀?
或都告诉一下网址之类的。不胜感激。
...全文
22 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
nyf1220 2003-10-17
  • 打赏
  • 举报
回复
呵呵,这么麻烦~
其实读一条记录,存一条就行了
gdwyh 2003-10-17
  • 打赏
  • 举报
回复
更正
n1:=n1+' values('+'''A';
应为
n1:=n1+' values(';
gdwyh 2003-10-17
  • 打赏
  • 举报
回复
uses comobj;

procedure Texcelfrm.Button1Click(Sender: TObject);
var
oe:variant;
n,n1,n2:string;
i,j:integer;
begin
oe:=CreateOleObject('Excel.Application');
oe.workbooks.open(FileName);
j:=2; //假定标题栏在第一行
try
with TestDataModule.Querytest do
begin
n1:='insert into 表名(字段列表)';
n1:=n1+' values('+'''A';
while oe.worksheets[工作表名].cells[j,1].text<>'' do
begin
n:=n1;
for i:=1 to 字段数 do
begin
n:=n+''','''+oe.worksheets[工作表名].cells[j,i].text;
end;
n:=n+''')';
close;
sql.Clear;
sql.Add(n);
execsql;
j:=j+1;
end;
showmessage('导入完毕');
end;
except
showmessage('数据库错误或有重复编号,请检查');
end;
gdwyh 2003-10-17
  • 打赏
  • 举报
回复
最简单的办法是打开EXCEL文件和ACCESS通过剪贴板,这个方法简单快捷.

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧