大容量装载COM接口。如果需要将文档的实体和属性析取到关系表中,最快的方法就是使用SQL Server 2000 Extensible Markup Language 30 Service Pack 1(SQLXML 30 SP1)提供的大容量装载COM接口。大容量状态COM接口包含在SQLXML 30 SP1的免费下载中。
var tmpquery2:tadoquery;
tmpfile:string;
tmptable:tadotable;
begin
if applicationMessageBox( '导入答案将会清空以前的考生答案,确定是否继续? ', '提醒 ',MB_OKCANCEL or MB_ICONWARNING)=mrok then
begin
IF BSopenExecute then
try
try
begin
tmpfile:=bsopenFileName;
tmptable:=tadotableCreate(self);
tmpquery2:=tadoqueryCreate (self);
tmpquery2Connection :=dmconnect ;
tmptableConnection :=dmconnect ;
tmptableTableName:= 'exam_answer ';
with tmpquery2 do
begin
close;
sqlClear;
sqlAdd( 'delete from exam_answer ');
execsql;
end;
tmptableLoadFromFile(tmpfile);
tmptableFirst;
while not tmptableEof do
begin
with tmpquery2 do
begin
close;
sqlClear;
sqlAdd( 'insert into exam_answer(kh,xm,sj_id,sjts,tk_id,stbh,tx,daa,dab,dac,dad,dae,daf,tkda,df) values(:kh,:xm,:sj_id,:sjts,:tk_id,:stbh,:tx,:daa,:dab,:dac,:dad,:dae,:daf,:tkda,:df) ');
parametersParamByName( 'kh ')Value :=tmptablefieldbyname( 'kh ')AsString;
parametersParamByName( 'xm ')Value :=tmptablefieldbyname( 'xm ')AsString;
parametersParamByName( 'sj_id ')Value :=tmptablefieldbyname( 'sj_id ')AsString;
parametersParamByName( 'tx ')Value :=tmptablefieldbyname( 'tx ')AsString;
parametersParamByName( 'sjts ')Value :=tmptablefieldbyname( 'sjts ')AsString;
parametersParamByName( 'tk_id ')Value :=tmptablefieldbyname( 'tk_id ')AsString;
parametersParamByName( 'stbh ')Value :=tmptablefieldbyname( 'stbh ')AsString;
parametersParamByName( 'daa ')Value :=tmptablefieldbyname( 'daa ')AsBoolean;
parametersParamByName( 'dab ')Value :=tmptablefieldbyname( 'dab ')asboolean;
parametersParamByName( 'dac ')Value :=tmptablefieldbyname( 'dac ')AsBoolean ;
parametersParamByName( 'dad ')Value :=tmptablefieldbyname( 'dad ')AsBoolean ;
parametersParamByName( 'dae ')Value :=tmptablefieldbyname( 'dae ')AsBoolean ;
parametersParamByName( 'daf ')Value :=tmptablefieldbyname( 'daf ')AsBoolean ;
parametersParamByName( 'tkda ')Value :=tmptablefieldbyname( 'tkda ')AsString;
parametersParamByName( 'df ')Value :=tmptablefieldbyname( 'df ')AsString;
execsql;
end;
tmptablenext;
end;
showmessage( '导入完成,累死了 ')
end;
finally
tmptableFree;
tmpquery2Free;
end;
except
showmessage( '导入未完成。:( ')
end;
end;
end;
如果单纯的LOAD出来,它是不直接写到后台数据表的。分析下源码就知道它LOAD之前先CLOSE了数据表。只有一条一条增加到后台数据表了。
XML是被设计用来存储数据、携带数据和交换数据的。
通过XML,可以在不兼容的系统之间交换数据,利用XML,纯文本文件可以用来存储数据。在不使用XML时,HTML用于显示数据,数据必须存储在HTML文件之内。
XML不是为了显示数据而设计的,主要是用于交换数据,可以从HTML中分离数据,也可以用于存储数据,大量的数据可以存储到XML文件中或者数据库中,应用程序可以读写和存储数据,一般的程序可以显示数据。
通过XML可以在HTML文件之外存储数据使用,也可以充分利用数据,可以用于创建新的语言XML是WAP和WML语言的母亲。如果开发者有足够的预见性,那么将来的应用程序都应该使用XML的形式来存储数据。
XML是被设计用来存储数据、携带数据和交换数据的。
通过XML,可以在不兼容的系统之间交换数据,利用XML,纯文本文件可以用来存储数据。在不使用XML时,HTML用于显示数据,数据必须存储在HTML文件之内。
XML不是为了显示数据而设计的,主要是用于交换数据,可以从HTML中分离数据,也可以用于存储数据,大量的数据可以存储到XML文件中或者数据库中,应用程序可以读写和存储数据,一般的程序可以显示数据。
通过XML可以在HTML文件之外存储数据使用,也可以充分利用数据,可以用于创建新的语言XML是WAP和WML语言的母亲。如果开发者有足够的预见性,那么将来的应用程序都应该使用XML的形式来存储数据。
以上就是关于[Sql server]怎样将XML文件导入数据库全部的内容,包括:[Sql server]怎样将XML文件导入数据库、如何将XML文件导入到数据库中去、xml是干什么的有什么用等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)