我的数据库为:dbisam
如何导出dbisam数据库里的记录存成excel文件,导出的同时字段名也要一起导出,
如何导入excel文件里的数据更新dbisam数据库里的记录,
看了以前的帖子大多数都是ADO的,还是不太懂,
请指点!
如何导出dbisam数据库里的记录存成excel文件,导出的同时字段名也要一起导出,
如何导入excel文件里的数据更新dbisam数据库里的记录,
看了以前的帖子大多数都是ADO的,还是不太懂,
请指点!
调试欢乐多
数据格式为:
004 张三 男 20 汉族 福州 07-06-1997 清白
请指点
var TextFileVar:TextFile; FileN,temp:String; i,j,StrLen,num:Integer; opendialog1:Topendialog;begin
opendialog1 :=Topendialog.create(Application); opendialog1.DefaultExt:='txt'; opendialog1.Title:='请选择打开文件'; opendialog1.Filter:='Excel文件(*.txt)|*.txt'; if opendialog1.Execute then begin FileN:=Opendialog1.FileName; if FileN='' then exit; AssignFile(TextFileVar,FileN); Reset(TextFileVar); DM.File_Table1.Open; while not SeekEof(TextFileVar) do begin Readln(TextFileVar,temp); //得到标记数 StrLen:=Length(temp); Num:=0; for i:=1 to StrLen do if Copy(temp,i,1)='' then Num:=Num+1; if pos('',temp)>0 then begin DM.File_Table1.Insert; for j:=0 to Num-1 do begin DM.File_Table1.Fields[j].AsString:=copy(Temp,1,pos('',temp)-1);//得到字段内容 temp:=copy(temp,pos('',temp)+1,length(temp)-pos('',temp));//去除上次降得到的内容 end; DM.File_Table1.Post; end; end; closeFile(TextFileVar); end;
end;
http://www.csdn.net/Develop/Read_Article.asp?Id=10675
其他方法参见:
http://expert.csdn.net/Expert/topic/1923/1923100.xml?temp=.8077967
那怎么把excel文件里的数据导入dbisam数据库里的方法吗?
请指点
那怎么把excel文件里的数据导入dbisam数据库里的方法吗?
请指点