{ **** UBPFD *********** by delphibase.endimus.com ****
>> Очень быстрая интеграция RecordSet-а в глобальную-временную
или постоянную таблицу для MSSQL2000
Практически любой формализм в подходах при разработке приложений для БД,
требует унификации операций записи/модификации информации.
Наиболее популярное решение в этом вопросе - использование ХП для
выполнения задач бизнес-логики. Однако зачастую, простая передача
параметров бывает не эффективна. Для повышения производительности,
рекомендуются помещать блок данных во временную таблицу, а затем,
передавать название временной таблицы бизнес-процедуре в качестве
параметра. Таким образом можно многократно ускорить
выполнение логических транзакций.
Зависимости: ADODB, ADOInt, ComObj, Variants
Автор: Delirium, Master_BRAIN@beep.ru, ICQ:118395746, Москва
Copyright: Delirium (Master BRAIN)
Дата: 15 февраля 2003 г.
***************************************************** }procedure NewTableFromRecordSet(Connection: TADOConnection; ARecordSet:
_RecordSet; TableName: string);
var
Query: TADOQuery;
adoStream: OleVariant;
begin
adoStream := CreateOLEObject('ADODB.Stream');
Variant(ARecordSet).Save(adoStream, adPersistXML);
// XML -> SQL
Query := TADOQuery.Create(nil);
Query.Connection := Connection;
Query.SQL.Text := 'exec ap_NewTableFromXML :XMLDATA, :TABLENAME';
Query.Parameters.ParamByName('XMLDATA').DataType := ftWideString;
Query.Parameters.ParamByName('XMLDATA').Value :=
adoStream.ReadText(adoStream.Size);
Query.Parameters.ParamByName('TABLENAME').DataType := ftString;
Query.Parameters.ParamByName('TABLENAME').Value := TableName;
Query.ExecSQL;
// Чистить память
Query.Close;
Query.Free;
adoStream := Unassigned;
end;
// Ниже приведён скрипт ap_NewTableFromXML,
// особая благодарность АМС (alexis@cashmere.ru)
// Реализация для MSSQL2000
(*
create procedure dbo.ap_NewTableFromXML(
@XMLText ntext,
@TableName sysname )
as
set nocount on
if object_id('tempdb..'+@TableName) is not null exec('drop table '+@TableName)
if object_id(@TableName) is not null exec('drop table '+@TableName)
DECLARE @XMLHandler int
EXEC sp_xml_preparedocument @XMLHandler OUTPUT, @xmltext,
''
-- Третий параметр описывает пространство имён, используемых в документе. Без него нельзя
-- применить OpenXML, т.к. он не понимает тэгов вида rs:data
-- Получить описание полей
select * into #t
from openxml(@XMLHandler, '//s:ElementType/s:AttributeType/s:datatype', 3)
with (colnum int '../@rs:number',
intname nvarchar(50) '../@name',
bascolmn nvarchar(50) '../@rs:basecolumn',
coltype nvarchar(50) '@dt:type',
dbtype nvarchar(50) '@rs:dbtype',
maxlen nvarchar(50) '@dt:maxLength',
fixlen nvarchar(50) '@rs:fixedlength',
prec nvarchar(50) '@rs:precision',
scale nvarchar(50) '@rs:scale' )
-- Формируем select для выборки информации
declare @mainsel nvarchar(4000),
@capsel nvarchar(4000),
@headsel nvarchar(4000),
@tailsel nvarchar(4000)
set @headsel='declare @HDOC int set @HDOC='+cast(@XMLHandler as varchar(20)) + CHAR(10)
-- Этот изврат нужен для того, чтобы передать хэндл в @HDOC
set @headsel=@headsel + 'SELECT '
set @tailsel=' FROM OpenXML(@HDOC,''//rs:data/z:row'', 0) WITH ('
set @capsel=''
declare CT cursor for select intname, bascolmn, coltype, maxlen, scale, prec from #t
declare @INN nvarchar(50),
@BSC nvarchar(50),
@CTYP nvarchar(50),
@MXL nvarchar(50),
@SCL nvarchar(50),
@PRE nvarchar(50),
@tail nvarchar(4000),
@cap nvarchar(4000)
open CT
-- Приведение к основным типам MSSQL Server
while 1=1
begin
fetch from CT into @INN, @BSC, @CTYP, @MXL, @SCL, @PRE
if @@fetch_status=-1 break
if @@fetch_status=-2 continue
set @tail=''
set @cap =' '+@INN+' as '+@BSC+','
if @CTYP='i8'
begin
set @tail=' '+@INN + ' bigint,'
goto OK
end
if @CTYP='bin.hex'
begin
if Convert(bigint, @MXL)=2147483647
begin
set @tail=' '+@INN+' image,'
goto OK
end
if Convert(bigint, @MXL)=8
begin
set @tail=' '+@INN+' timestamp,'
goto OK
end
set @tail=' '+@INN+' varbinary('+@MXL+'),'
goto OK
end
if @CTYP='boolean'
begin
set @tail=' '+@INN+' varchar(5),'
set @cap=' Convert(bit, case '+@INN+' when ''True'' then 1 else 0 end) as '+@BSC+','
goto OK
end
if @CTYP='string'
begin
if Convert(bigint, @MXL)=2147483647
begin
set @tail=' '+@INN+' text,'
goto OK
end
if Convert(bigint, @MXL)=1073741823
begin
set @tail=' '+@INN+' ntext,'
goto OK
end
if @MXL is Null
begin
set @tail=' '+@INN+' sql_variant,'
goto OK
end
set @tail=' '+@INN+' varchar('+@MXL+'),'
goto OK
end
if @CTYP='dateTime'
begin
set @tail=' '+@INN+' varchar(23),'
set @cap=' convert(datetime,'+ @INN + ',126) as ' + @BSC + ','
goto OK
end
if @CTYP='number'
begin
set @tail=' '+@INN+' numeric('+@PRE+', '+isNull(@SCL, 4)+'),'
goto OK
end
if @CTYP='float'
begin
set @tail=' '+@INN+' float,'
goto OK
end
if @CTYP='int'
begin
set @tail=' '+@INN+' int,'
goto OK
end
if @CTYP='r4'
begin
set @tail=' '+@INN+' real,'
goto OK
end
if @CTYP='i2'
begin
set @tail=' '+@INN+' smallint,'
goto OK
end
if @CTYP='ui1'
begin
set @tail=' '+@INN+' tinyint,'
goto OK
end
if @CTYP='uuid'
set @tail=' '+@INN+' uniqueidentifier,'
OK: -- С типом - определился
set @tailsel=@tailsel+isNull(@tail, '')+CHAR(10)
set @capsel =@capsel +isNull(@cap, '') +CHAR(10)
end
deallocate CT
set @capsel=left(@capsel,len(@capsel)-2)+' '+CHAR(10)
set @tailsel=left(@tailsel,len(@tailsel)-2)+')'+CHAR(10)
set @mainsel=@headsel+@capsel+' into '+@TableName+@tailsel
exec (@mainsel)
EXEC sp_xml_removedocument @XMLHandler
*)
Пример использования:
// Помещаю выборку в таблицу ##Test
NewTableFromRecordSet(ADOConnection1, ADOQuery1.RecordSet, '##Test');
Статья Очень быстрая интеграция RecordSet-а в глобальную-временную или постоянную таблицу для MSSQL2000 раздела Базы данных MSSQL может быть полезна для разработчиков на delphi & pascal.
