语句如下:
close;
sql.Clear;
sql.add ('Insert into [image](StudyInstanceUID, Modality, SeriesInstanceUID, SeriesNumber, ImageTime, SamplesPerPixel,SOPInstanceUID,');
sql.add('PhotometricInterpretation, Rows, Columns, BitsAllocated, BitsStored, HighBit, PixelRepresentation, PlanarConfiguration, SOPClassUID, TransferSyntax)');
sql.Add('values(:StudyInstanceUID, :Modality, :SeriesInstanceUID, :SeriesNumber, :ImageTime, :SamplesPerPixel,:SOPInstanceUID ,');
sql.add(':PhotometricInterpretation, :Rows, :Columns, :BitsAllocated, :BitsStored, :HighBit, :PixelRepresentation, :PlanarConfiguration, :SOPClassUID, :TransferSyntax)');
Parameters.ParamByName('StudyInstanceUID').Value:=info.StudyInstanceUID;
Parameters.ParamByName('Modality').Value:=info.Modality;
Parameters.ParamByName('SeriesInstanceUID').Value:=info.SeriesInstanceUID;
Parameters.ParamByName('SeriesNumber').Value:=info.SeriesNumber;
Parameters.ParamByName('ImageTime').Value:=info.ImageTime;
Parameters.ParamByName('SamplesPerPixel').Value:=info.SamplesPerPixel;
Parameters.ParamByName('SOPInstanceUID').Value:=info.SOPInstanceUID;
Parameters.ParamByName('PhotometricInterpretation').Value:=info.PhotometricInterpretation;
Parameters.ParamByName('Rows').Value:=info.Rows;
Parameters.ParamByName('Columns').Value:=info.Columns;
Parameters.ParamByName('BitsAllocated').Value:=info.BitsAllocated;
Parameters.ParamByName('BitsStored').Value:=info.BitsStored;
Parameters.ParamByName('HighBit').Value:=info.HighBit;
Parameters.ParamByName('PixelRepresentation').Value:=info.PixelRepresentation;
Parameters.ParamByName('PlanarConfiguration').Value:=info.PlanarConfiguration;
Parameters.ParamByName('SOPClassUID').Value:=info.SOPClassUID;
Parameters.ParamByName('TransferSyntax').Value:=Info.TransferSyntax;
ExecSQL;
我其它的插入语句也是这么写的,可为什么老是这些出错呢?
close;
sql.Clear;
sql.add ('Insert into [image](StudyInstanceUID, Modality, SeriesInstanceUID, SeriesNumber, ImageTime, SamplesPerPixel,SOPInstanceUID,');
sql.add('PhotometricInterpretation, Rows, Columns, BitsAllocated, BitsStored, HighBit, PixelRepresentation, PlanarConfiguration, SOPClassUID, TransferSyntax)');
sql.Add('values(:StudyInstanceUID, :Modality, :SeriesInstanceUID, :SeriesNumber, :ImageTime, :SamplesPerPixel,:SOPInstanceUID ,');
sql.add(':PhotometricInterpretation, :Rows, :Columns, :BitsAllocated, :BitsStored, :HighBit, :PixelRepresentation, :PlanarConfiguration, :SOPClassUID, :TransferSyntax)');
Parameters.ParamByName('StudyInstanceUID').Value:=info.StudyInstanceUID;
Parameters.ParamByName('Modality').Value:=info.Modality;
Parameters.ParamByName('SeriesInstanceUID').Value:=info.SeriesInstanceUID;
Parameters.ParamByName('SeriesNumber').Value:=info.SeriesNumber;
Parameters.ParamByName('ImageTime').Value:=info.ImageTime;
Parameters.ParamByName('SamplesPerPixel').Value:=info.SamplesPerPixel;
Parameters.ParamByName('SOPInstanceUID').Value:=info.SOPInstanceUID;
Parameters.ParamByName('PhotometricInterpretation').Value:=info.PhotometricInterpretation;
Parameters.ParamByName('Rows').Value:=info.Rows;
Parameters.ParamByName('Columns').Value:=info.Columns;
Parameters.ParamByName('BitsAllocated').Value:=info.BitsAllocated;
Parameters.ParamByName('BitsStored').Value:=info.BitsStored;
Parameters.ParamByName('HighBit').Value:=info.HighBit;
Parameters.ParamByName('PixelRepresentation').Value:=info.PixelRepresentation;
Parameters.ParamByName('PlanarConfiguration').Value:=info.PlanarConfiguration;
Parameters.ParamByName('SOPClassUID').Value:=info.SOPClassUID;
Parameters.ParamByName('TransferSyntax').Value:=Info.TransferSyntax;
ExecSQL;
我其它的插入语句也是这么写的,可为什么老是这些出错呢?
这里少了空格 sql.Add(' values
sql.savetofile("c:\1.txt");
然后把这条语句复制出来单独执行不就知道原因了