高手来看一看。

Rose1234567890 2003-10-20 10:15:48
procedure TForm1.Button1Click(Sender: TObject);
var
oe:variant;
n:string;
j,i:integer;
begin
oe:=CreateOleObject('Excel.Application');
oe.workbooks.open('c:\book.xls');
n:='insert into a(aa,bb,cc) values(:a,:b,:c)';
try
with Query1 do

begin
DatabaseName:='sun';
SQL.Clear;
Sql.Add(n);
Prepare;
while oe.worksheets['Sheeet1'].cells[j,1].text<>'' do
begin
for i:=1 to 3 do
begin
Params[i-1].Value:=oe.worksheets['Sheet1'].cells[j,i].text;
end;
ExecSQL;
end;
showmessage('导入完毕');
end;

except
showmessage('数据库错误或有重复编号,请检查');
end;
end;


执行后提示索引无效。
光标停在while oe.worksheets['Sheeet1'].cells[j,1].text<>'' do语句
上为什么呀?怎么办呢?
我如何获取book.xls文件中有多少行呀?
高手帮忙吧?
...全文
45 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

2,495

社区成员

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

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