[brutalis]

при добовлении записи в таблицу выдает ошибку

[lmikle]

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

при добовлении записи в таблицу выдает ошибку

При формировании запроса в строку попало Edit1, а не значение из поля.
Вообще-то, в сообщении все написано. В отладчике посмотри что у тебя получается в запросе.

[brutalis]

кто нибудь ,что нибудь еще подскажет

[Klyaksa]

В

Код:

 procedure TForm1.FormCreate(Sender: TObject);

попробуй вставить перед try

Код:

IBDatabase1:=TIBDatabase.Create(nil);

должно получиться так

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
FIniFile: TIniFile;
begin
IBDatabase1:=TIBDatabase.Create(form1);
try///
  FIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');
  try ///
  IBDatabase1.DatabaseName:= FIniFile.ReadString('base', 'path', '') ;
  Finally///
  FIniFile.Free;
  end;
  IBDatabase1.Connected:=true;
  with IBQuery1 do     //отрисовка таблицы при старте
  begin
  sql.Text:= 'select * from it order by data, equipment, invnum,sealnum, os,ss,domen';
  open;
  end;
  except///
  on E:Exception do
  begin
  Application.MessageBox(PChar(e.Message), 'ошибка!!!!!', MB_ICONERROR)   ;
  Halt;
  end;
  end;
end;

Но у меня при этом вылетает другая ошибка что не найдена dll-ка так как не устанпвлена Interbase.

[brutalis]

спасибо. но так совсем неработает

[brutalis]

создал новую табл. теперь выдается такая ошибка.

подскажите где у меня ошибка. и как с ней бороться. а то я уже не знаю куда ткунться. и подскажите какую лучше книжку почитать

[brutalis]

продолжаю ковырять БД. и возникли следующие вопросы.
1. как занисти данные типа memo(dbmemo) в компонент мемо(для каждой таблиц. т.к. для одной сделано, а как сделать так чтобы это работало для всех незнаю)
2. как изменить заголовок поля таблицы на читаемый и понятный (например заголовок 'ZAG_lAWS' на понятное 'Заголовок')
3. как лучше сделать чтобы по клико по кнопке выводились требуемые поля выбранной таблицы. и при выборе следуещей они убирались и отрисовывались новые
4. если есть какие нибудь замечания и/или предложуния то охотно их выслушаю

зы всем заранее спасибо

[brutalis]

для вывода данных типа memo(dbmemo) из БД использую

Код:

  procedure TForm1.IBQuery1AfterScroll(DataSet: TDataSet);  //çàïèñü ñîäåðæèìîãî ïîëÿ äáìåìî â ìåìî
begin
Memo1.Lines.Text := (IBQuery1.FieldByName('TEXT_LAWS') as TBlobField).Value;
end;

  procedure TForm1.IBQuery2AfterScroll(DataSet: TDataSet);   //çàïèñü ñîäåðæèìîãî ïîëÿ äáìåìî â ìåìî
begin
Memo1.Lines.Text := (IBQuery2.FieldByName('TEXT_LAWS') as TBlobField).Value;
end;

имеется несколько таблиц. данный кусок кода работает только для одной. подскажите как сделать так чтобы в поле memo отображались данные выбранной таблицы