|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
при добовлении записи в таблицу выдает ошибку
при добовлении записи в таблицу выдает ошибку
|
#2
|
|||
|
|||
Цитата:
При формировании запроса в строку попало Edit1, а не значение из поля. Вообще-то, в сообщении все написано. В отладчике посмотри что у тебя получается в запросе. |
#3
|
|||
|
|||
кто нибудь ,что нибудь еще подскажет
|
#4
|
||||
|
||||
В
Код:
procedure TForm1.FormCreate(Sender: TObject); Код:
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; |
#5
|
|||
|
|||
спасибо. но так совсем неработает
|
#6
|
|||
|
|||
создал новую табл. теперь выдается такая ошибка.
подскажите где у меня ошибка. и как с ней бороться. а то я уже не знаю куда ткунться. и подскажите какую лучше книжку почитать |
#7
|
|||
|
|||
И снова требуется выша помощь)))
продолжаю ковырять БД. и возникли следующие вопросы.
1. как занисти данные типа memo(dbmemo) в компонент мемо(для каждой таблиц. т.к. для одной сделано, а как сделать так чтобы это работало для всех незнаю) 2. как изменить заголовок поля таблицы на читаемый и понятный (например заголовок 'ZAG_lAWS' на понятное 'Заголовок') 3. как лучше сделать чтобы по клико по кнопке выводились требуемые поля выбранной таблицы. и при выборе следуещей они убирались и отрисовывались новые 4. если есть какие нибудь замечания и/или предложуния то охотно их выслушаю зы всем заранее спасибо |
#8
|
|||
|
|||
помогите разобраться
для вывода данных типа 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; |