Delphi 如何使用firedac arrayDML复制ftBlob
我使用德尔福柏林 我正在尝试使用ArrayDML创建一个函数/过程，将数据从一个FireDac查询（连接到数据库）复制到另一个FireDac查询（连接到另一个数据库）。第一个数据库是firebird，另一个是first care中的MSSQL，但在另一种情况下，两个数据库都是firebird 到目前为止，一切都很好，除了ftBlob之外，几乎所有的数据类型都正常工作 以下是函数的主体：Delphi 如何使用firedac arrayDML复制ftBlob,delphi,firedac,Delphi,Firedac,我使用德尔福柏林 我正在尝试使用ArrayDML创建一个函数/过程，将数据从一个FireDac查询（连接到数据库）复制到另一个FireDac查询（连接到另一个数据库）。第一个数据库是firebird，另一个是first care中的MSSQL，但在另一种情况下，两个数据库都是firebird 到目前为止，一切都很好，除了ftBlob之外，几乎所有的数据类型都正常工作 以下是函数的主体： while not querySource.Eof do begin paramPosition := -
while not querySource.Eof do begin
paramPosition := -1;
Inc(mIndex);
for i := 0 to querySource.FieldCount - 1 do begin
Inc(paramPosition);
// daca exista o valoare
if querySource.FieldByName(querySource.Fields[i].FieldName).AsVariant <> Null then begin
case querySource.Fields[i].DataType of
ftDateTime, ftDate, ftTime, ftTimeStamp : queryInsert.Params[paramPosition].AsDateTimes[mIndex] := querySource.FieldByName(querySource.Fields[i].FieldName).AsDateTime;
ftFloat, ftCurrency, ftBCD, ftFMTBcd : queryInsert.Params[paramPosition].AsFloats[mIndex] := querySource.FieldByName(querySource.Fields[i].FieldName).AsFloat;
ftSmallint, ftInteger, ftLargeint : queryInsert.Params[paramPosition].AsIntegers[mIndex] := querySource.FieldByName(querySource.Fields[i].FieldName).AsInteger;
ftString : queryInsert.Params[paramPosition].AsStrings[mIndex] := querySource.FieldByName(querySource.Fields[i].FieldName).AsString;
ftBlob, ftMemo, ftGraphic : queryInsert.Params[paramPosition].AsBlobs[mIndex] := querySource.FieldByName(querySource.Fields[i].FieldName).AsVariant;
end;
end;
end;
而不是querySource.Eof do begin
参数位置：=-1；
mIndex公司；
对于i:=0到querySource.FieldCount-1，不开始
公司（高级职位）；
//达卡埃希斯塔瓦洛雷酒店
如果querySource.FieldByName（querySource.Fields[i].FieldName）.AsVariant为空，则开始
case querySource.Fields[i]。的数据类型
ftDateTime，ftDate，ftTime，ftTimeStamp:queryInsert.Params[paramPosition].AsDateTimes[mIndex]：=querySource.FieldByName（querySource.Fields[i].FieldName）.AsDateTime；
ftFloat，ftCurrency，ftBCD，ftFMTBcd:queryInsert.Params[paramPosition].AsFloats[mIndex]：=querySource.FieldByName（querySource.Fields[i].FieldName）.AsFloat；
ftSmallint，ftInteger，ftLargeint:queryInsert.Params[paramPosition].AsIntegers[mIndex]：=querySource.FieldByName（querySource.Fields[i].FieldName）.AsInteger；
ftString:queryInsert.Params[paramPosition].AssString[mIndex]：=querySource.FieldByName（querySource.Fields[i].FieldName）.AssString；
ftBlob，ftMemo，ftGraphic:queryInsert.Params[paramPosition].asblob[mIndex]：=querySource.FieldByName（querySource.Fields[i].FieldName）.AsVariant；
结束；
结束；
结束；
在这种情况下如何使用arrayDML？有什么解决方法吗？我不会回答您的问题，但建议您使用该组件，因为您正在重新发明轮子。只是为了您想做的事情，将数据从一个数据库移动到另一个数据库（不仅仅是这样）
您只需设置as和，为两者编写SQL查询，组件就会通过匹配名称自动映射字段。如果查询没有匹配的字段名，可以通过属性对此进行微调。然后你只需打电话。我不会回答你的问题，但建议你使用该组件，因为你正在重新发明轮子。只是为了您想做的事情，将数据从一个数据库移动到另一个数据库（不仅仅是这样）
您只需设置as和，为两者编写SQL查询，组件就会通过匹配名称自动映射字段。如果查询没有匹配的字段名，可以通过属性对此进行微调。然后您只需调用。尝试使用
asansistingAsVariantAsBlobAsBlobTFDParamTFieldTFieldasblobTFDParamAssignFieldValueAsAnsiStringAsVariantAsBlobAsBlobTFDParamTFieldTFieldasblobTFDParamAssignFieldValuedmAppendUpdate