Вот нижеследующий код выдает ошибку "Trying to store a string of length 2 into a field that can only contain 1". Код такой:
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.
SQL_R.Close; // SQL_R is TIBSQL
SQL_R.SQL.Clear;
SQL_R.SQL.Add('select * from rdb$database where rdb$character_set_name=? ' +
'or rdb$character_set_name=?');
SQL_R.Transaction.StartTransaction;
try
SQL_R.ParamCheck := False;
SQL_R.Params.Count := 2;
SQL_R.Params.AddName('prmStr', 0);
SQL_R.Params.AddName('prmStr2', 1);
SQL_R.ParamByName('prmStr').AsString := 'bla bla';
SQL_R.ParamByName('prmStr2').AsString := '1';
SQL_R.ExecQuery;
Memo1.Lines.Add(Format('"%s" - "%s"', [SQL_R.Fields[0].AsString,
SQL_R.Fields[1].AsString]));
SQL_R.Transaction.Commit;
finally
if SQL_R.Transaction.InTransaction then
SQL_R.Transaction.Rollback;
SQL_R.Close;
end;
SQL_R.Close;
SQL_R.SQL.Clear;
SQL_R.SQL.Add('select * from rdb$database where rdb$character_set_name=?');
SQL_R.Transaction.StartTransaction;
try
SQL_R.ParamCheck := False;
SQL_R.Params.Count := 1;
SQL_R.Params.AddName('prmStr', 0);
SQL_R.ParamByName('prmStr').AsString := 'bla bla';
SQL_R.ExecQuery;
Memo1.Lines.Add(Format('"%s" - "%s"', [SQL_R.Fields[0].AsString,
SQL_R.Fields[1].AsString]));
SQL_R.Transaction.Commit;
finally
if SQL_R.Transaction.InTransaction then
SQL_R.Transaction.Rollback;
SQL_R.Close;
end;
SQL_R.Close;
SQL_R.SQL.Clear;
SQL_R.SQL.Add('select * from rdb$database where rdb$character_set_name=? ' +
'or rdb$character_set_name=?');
SQL_R.Transaction.StartTransaction;
try
SQL_R.ParamCheck := False;
SQL_R.Params.Count := 2;
SQL_R.Params.AddName('prmStr', 0);
SQL_R.Params.AddName('prmStr2', 1);
SQL_R.ParamByName('prmStr').AsString := 'bla bla';
SQL_R.ParamByName('prmStr2').AsString := '22'; // !!! ВОТ ЗДЕСЬ ВЫЛАЗИТ ОШИБКА !!!
SQL_R.ExecQuery;
Memo1.Lines.Add(Format('"%s" - "%s"', [SQL_R.Fields[0].AsString,
SQL_R.Fields[1].AsString]));
SQL_R.Transaction.Commit;
finally
if SQL_R.Transaction.InTransaction then
SQL_R.Transaction.Rollback;
SQL_R.Close;
end;
Суть такая:
1) создаю в первом запросе 2 параметра вручную, присваиваю им строковые значения;
2) создаю во втором запросе 1 параметр вручную, присваиваю ему строковое значение;
3) создаю в третьем запросе 2 параметра вручную, присваиваю им строковые значения; но во втором параметре длина значения больше, чем было указано в первом запросе.
При таких условиях вылезает ошибка. Если же п.2 нет, то без проблем, либо п.2 есть, но длина второго параметра в п.3 не более длины из п.1, то тоже все ОК. Как лечить?
