примерно набросал для старта 1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
type
TDriverType = (dtOracle, dtFireBird, dtSQLite, dtMySQL, dtADO, dtDBF, dtABS, dtMSSQL, dtAccess);
function GetTextValue(Field : TField; DriverType: TDriverType): string;
begin
result := '';
case DriverType of
dtOracle: ;
dtMSSQL: begin
if Field.IsNull then
begin
result := 'Null, ';
exit;
end;
case Field.DataType of
ftBoolean : begin
if Field.AsBoolean then
begin
result := '1, ';
end else
begin
result := '0, ';
end;
end;
ftSmallInt ,
ftLargeint ,
ftInteger ,
ftWord ,
ftAutoInc : begin
result := Field.AsString + ', ';
end;
ftBCD,
ftFloat, ftCurrency : begin
result := StringReplace(Field.AsString, ',', '.', []) + ', ';
end;
ftDate : begin
result := '{''d'' ' + FormatDateTime('yyyy-mm-dd', Field.AsDateTime) + '}, ';
end;
// íà áóäóùåå ftTime : ;
ftDateTime : begin
if Abs(MilliSecondsBetween(Field.AsDateTime, trunc(Field.AsDateTime))) < 1 then
begin
result := '{d ''' + FormatDateTime('yyyy-mm-dd', Field.AsDateTime) + '''}, ';
end else
begin
end;
result := '{ts ''' + FormatDateTime('yyyy-mm-dd hh:mm:ss', Field.AsDateTime) + '''}, ';
end;
{íà áóäóùåå
ftBlob : begin
s := s + Field.FieldName + ' BLOB SUB_TYPE 0, ' + #13#10;
end;
ftMemo : begin
s := s + Field.FieldName + ' BLOB SUB_TYPE 1, ' + #13#10;
end;
}
ftWideString : begin
result := 'N' + QuotedStr(Field.AsString) + ', ';
end;
else
begin
result := 'N' + QuotedStr(Field.AsString) + ', ';
end;
end; // case Field.DataType
end;
dtFireBird: ;
dtMySQL: ;
dtSQLite: ;
dtADO: ;
dtDBF: ;
end; // case Driver of
end;
function BuildInsertScript(DataSet: TDataSet; DriverType : TDriverType; TableName: string; FieldList: TStringList = Nil): string;
var
InsertSQL,
ValuesSql : string;
i, Index : Integer;
FieldName : string;
FieldArray : array of integer;
FieldAdd : boolean;
begin
SetLength(FieldArray, 0);
InsertSQL := '';
result := '';
for i := 0 to DataSet.Fields.Count - 1 do
begin
FieldAdd := true;
FieldName := DataSet.Fields[i].FieldName;
if FieldList <> Nil then
begin
FieldAdd := FieldList.Find(FieldName, Index);
end;
if FieldAdd then
begin
InsertSQL := InsertSQL + FieldName + ', ';
SetLength(FieldArray, Length(FieldArray) + 1);
FieldArray[Length(FieldArray)-1] := i;
end;
end;
InsertSQL := 'INSERT INTO ' + TableName + ' (' + copy(InsertSQL, 1, length(InsertSQL)-2) + ') ';
DataSet.First;
while not DataSet.Eof do
begin
ValuesSql := '';
for i := 0 to Length(FieldArray) -1 do
begin
ValuesSql := ValuesSql + GetTextValue(DataSet.Fields[i], DriverType);
end;
result := result + InsertSQL + #13 +
'VALUES (' + copy(ValuesSql, 1, length(ValuesSql)-2) + ');'#13;
DataSet.Next;
end;
DataSet.first;
end;
результат 1.
2.
3.
4.
5.
6.
INSERT INTO AUTO_TASK_DESCS (AUTO_TASK_DESC_ID, PARENT_AUTO_TASK_DESC_ID, OBJECT_TYPE_ID, NAME, DESCRIPTION,
SERVICE_ID, BURO_POST, BURO_PROG, ACTUALITY, STAT_INFO_INS, STAT_USER_INS, STAT_DATE_INS, STAT_INFO_UPD, STAT_USER_UPD, STAT_DATE_UPD, DATAN, DATAK, PR_FOLDER)
VALUES (101, Null, 6, N'Рассылка по молоку', Null, Null, Null, Null, 0, N'evgeniy/(INS', Null, {ts '2015-07-16 10:54:25'}, Null, Null, Null, Null, Null, 0);
INSERT INTO AUTO_TASK_DESCS (AUTO_TASK_DESC_ID, PARENT_AUTO_TASK_DESC_ID, OBJECT_TYPE_ID, NAME, DESCRIPTION,
SERVICE_ID, BURO_POST, BURO_PROG, ACTUALITY, STAT_INFO_INS, STAT_USER_INS, STAT_DATE_INS, STAT_INFO_UPD, STAT_USER_UPD, STAT_DATE_UPD, DATAN, DATAK, PR_FOLDER)
VALUES (122, 142, 4, N'Архивация БД', Null, Null, Null, Null, 1, N'andrey//(INS)', Null, {ts '2017-03-05 18:16:30'}, Null, Null, Null, Null, Null, 0);
|
