Delphi и InterBase -2

[Edimus]

Project Project1.exe raised exception class EIBInterBaseError with message 'violation of PRIMARY or UNIQUE KEY constraint "INTEG_2" on table "LOG"'. Process stopped. Use Step or Run to continue.

Подскажите что нужно поправить?

Вот код:

procedure TForm2.Button1Click(Sender: TObject);
var f: textfile;
    s:string;
    i,j:byte;
    q,w,n:integer;
    a:string;
  begin

   form1.IBQuery1.Open;

  assignfile(f,'C:\Documents and Settings\iadrozdov\Рабочий стол\access.log.0');
  reset(f);    // откроем файл для чтения
for w:=1 to 5 do     begin
 // while not eof(f) do begin
   readln(f,s); // считаем строку
   memo1.Lines.Append(s); // выведем строку в мемо
   n:=length(s);    // вычислим длину строки
   q:=1;
  for j:=1 to n do
    for i:=1 to n do
   BEGIN

if pos(' ',s)=i then begin //если есть пробел то...
   a:=copy(s,1,i-1);        //скопируем до пробела

   if q=1 then form1.IBQuery2.Params.ParamByName('DT').Value:=a;
   if q=2 then form1.IBQuery2.Params.ParamByName('TC').Value:=strtoint(a);
   if q=3 then form1.IBQuery2.Params.ParamByName('adrk').Value:=a;
   if q=4 then form1.IBQuery2.Params.ParamByName('rp').Value:=a;
   if q=5 then form1.IBQuery2.Params.ParamByName('razm').Value:=strtoint(a);
   if q=6 then form1.IBQuery2.Params.ParamByName('sp').Value:=a;
   if q=7 then form1.IBQuery2.Params.ParamByName('url').Value:=a;
   if q=8 then form1.IBQuery2.Params.ParamByName('login').Value:=a;
   if q=9 then form1.IBQuery2.Params.ParamByName('tipr').Value:=a;

     q:=q+1;

    delete(s,1,i);           //удалим то что скопировали
    n:=length(s);            //вычислим длину строки
while(pos(' ',s)=1)and (length(s)>0) do delete (s,1,1); end;

 end;

 a:=copy(s,1,i);      //скопируем то что осталось

 if q=10 then form1.IBQuery2.Params.ParamByName('vidr').AsString:=a;

 form1.IBQuery2.ExecSQL;
 form1.IBTransaction1.CommitRetaining;


// обновим базу
  form1.IBQuery1.Close;
  form1.IBQuery1.Open;

    END;

 closefile(f);        // закроем файл


end;

[Rik]

Опишите структуру таблицы которую вы пытаетесь редактировать и содержимое свойства SQL в IBQuery1.

Таблица должна обязательно содержать ключевое поле. Вы должны получить значение этого поля:
К примеру есть таблица MyTable.
Поля таблицы:
MYTABLE_ID: BIGINT
MYINTFIELD: INTEGER
MYSTRINGFIELD: VARCHAR(20)

В ней первое поле MyTable_ID: BIGINT - первичный ключ. Для генерации уникального значения, должен быть создан генератор (это такой счетчик или ещё называют последовтельность) GEN_MYTABLE_ID(к примеру. В IBExpert смотри раздел генераторы).

Form1.IBQuery1.SQL - содержит следующий SQL запрос:

INSERT INTO MYTABLE
(
MYTABLE_ID,
MYINTFIELD,
MYSTRINGFIELD
)
VALUES
(
:MYTABLE_ID,
:MYINTFIELD,
:MYSTRINGFIELD
)
 //генерим уникальное значение первичного ключа
Form1.IBQuery1.Params.ParamByName('MYFIELD_ID').Value := IBDatabase1.GenID('GEN_MYFIELD_ID', 1);
Form1.IBQuery1.Params.ParamByName('MYINTFIELD').AsInteger := 10;
Form1.IBQuery1.Params.ParamByName('MYSTRINGFIELD').AsString := 'sdfsf';
Form1.IBQuery1.ExecSQL;
.......................

Т.е. у вас там где заполняете параметры запроса, должна быть строка,
которая генерит уникальное значение первичного ключа(Primary key) - IBDatabase1.GenID('Имя_Генератора_д ля_таблицы', IncValue); Здесь IncValue - значение на которое нужно увеличить уникальный счетчик, обычно 1. В вашем коде нигде нет заполнения ключевого поля уникальным значением.

Второй вариант: Я не знаю содержимое вашей базы и SQL запросов, если уникальное значение первичного ключа у вас всё же генерится, например в триггере, то такая ошибка будет выпадать, если какое либо поле(не первичный ключ) имеет уникальный индекс, такой индекс не разрешит добавить в таблицу записи с одинаковыми значениями по этому полю. Проверте, нет ли в вашей таблице уникальных индексов, кроме первичного ключа...

В вашем примере совершенно ясно одно, поле INTEG_2 имеет уникальный индекс, возможно это первичный ключ, вы автор вам виднее и в это поле вы пытаетесь добавить значение, которое уже есть в в этом поле в предидущих записях....
В вашем коде INTEG_2 нигде не заполняется. Если это первичный ключ, то нужно добавить: Form1.IBQuery1.Params.ParamByName(' INTEG_2').Value := IBDatabase1.GenID('ИМЯ_ГЕНЕРАТОРА', 1); или сделать тоже самое в триггере перед вставкой(BEFORE INSERT).

[Edimus]

Project Project1.exe raised exception class EIBInterBaseError with message 'arithmetic exception, numeric overflow, or string truncation
Cannot transliterate character between character sets'. Process stopped. Use Step or Run to continue.


Данные в таблицу записывались отлично... но через некоторое время вылетело это.

[Edimus]

Сообщение от Rik

Опишите структуру таблицы которую вы пытаетесь редактировать и содержимое свойства SQL в IBQuery1.

Таблица должна обязательно содержать ключевое поле. Вы должны получить значение этого поля:
К примеру есть таблица MyTable.
Поля таблицы:
MYTABLE_ID: BIGINT
MYINTFIELD: INTEGER
MYSTRINGFIELD: VARCHAR(20)

В ней первое поле MyTable_ID: BIGINT - первичный ключ. Для генерации уникального значения, должен быть создан генератор (это такой счетчик или ещё называют последовтельность) GEN_MYTABLE_ID(к примеру. В IBExpert смотри раздел генераторы).



Form1.IBQuery1.SQL - содержит следующий SQL запрос:
INSERT INTO MYTABLE
(
MYTABLE_ID,
MYINTFIELD,
MYSTRINGFIELD
)
VALUES
(
:MYTABLE_ID,
:MYINTFIELD,
:MYSTRINGFIELD
)
//генерим уникальное значение первичного ключа
Form1.IBQuery1.Params.ParamByName(' MYFIELD_ID').Value := IBDatabase1.GenID('GEN_MYFIELD_ID', 1);
Form1.IBQuery1.Params.ParamByName(' MYINTFIELD').AsInteger := 10;
Form1.IBQuery1.Params.ParamByName(' MYSTRINGFIELD').AsString := 'sdfsf';
Form1.IBQuery1.ExecSQL;
.......................

Т.е. у вас там где заполняете параметры запроса, должна быть строка,
которая генерит уникальное значение первичного ключа(Primary key) - IBDatabase1.GenID('Имя_Генератора_д ля_таблицы', IncValue); Здесь IncValue - значение на которое нужно увеличить уникальный счетчик, обычно 1. В вашем коде нигде нет заполнения ключевого поля уникальным значением.

Второй вариант: Я не знаю содержимое вашей базы и SQL запросов, если уникальное значение первичного ключа у вас всё же генерится, например в триггере, то такая ошибка будет выпадать, если какое либо поле(не первичный ключ) имеет уникальный индекс, такой индекс не разрешит добавить в таблицу записи с одинаковыми значениями по этому полю. Проверте, нет ли в вашей таблице уникальных индексов, кроме первичного ключа...

В вашем примере совершенно ясно одно, поле INTEG_2 имеет уникальный индекс, возможно это первичный ключ, вы автор вам виднее и в это поле вы пытаетесь добавить значение, которое уже есть в в этом поле в предидущих записях....
В вашем коде INTEG_2 нигде не заполняется. Если это первичный ключ, то нужно добавить: Form1.IBQuery1.Params.ParamByName(' INTEG_2').Value := IBDatabase1.GenID('ИМЯ_ГЕНЕРАТОРА', 1); или сделать тоже самое в триггере перед вставкой(BEFORE INSERT).

Спасибо! Да после создания другого уникального ключа все пошло!

[Rik]

Сообщение от Edimus

Project Project1.exe raised exception class EIBInterBaseError with message 'arithmetic exception, numeric overflow, or string truncation
Cannot transliterate character between character sets'. Process stopped. Use Step or Run to continue.


Данные в таблицу записывались отлично... но через некоторое время вылетело это.

Вариантов может быть несколько:
1. Проверьте кодировку текстовых полей вашей таблицы, там где кодировка полей с типом CHAR, VARCHAR не указана, поставте Win1251 и коллате Win1251(или другую, если вас интересует другая напрмер UTF8) и посмотрите, указывали ли вы кодировку по умолчанию при создании базы.

2. Некорректные данные, например вы пытаетесь в поле с типом INTEGER записать не целое число и т.д.

[Edimus]

Сообщение от Rik

Вариантов может быть несколько:
1. Проверьте кодировку текстовых полей вашей таблицы, там где кодировка полей с типом CHAR, VARCHAR не указана, поставте Win1251 и коллате Win1251(или другую, если вас интересует другая напрмер UTF8) и посмотрите, указывали ли вы кодировку по умолчанию при создании базы.

2. Некорректные данные, например вы пытаетесь в поле с типом INTEGER записать не целое число и т.д.

Спасибо! Все поправил!!!