Delphi: Базы данных

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi БД Tabcontrol vs Database https://www.cyberforum.ru/ delphi-database/ thread1185335.html Доброго времени суток всем. Передо мной встала такая вот задача: есть БД в firebir, в ней есть группа таблиц, одну из которых мне нужно отобразить на форме с применением pageControl, при чем элементы pageControla вычисляются от id_, то есть if id_<10 то тогда такие поля таблицы идут в название вкладки(родители). А если нет, то их дочерние поля заносятся в чеклистбоксы(нужно дать пользователю...	Delphi БД НЕ вводяться данные во 2 таблицу( НЕ вводяться данные во 2 таблицу(( помогите.что не так
Delphi БД Запрос и ошибка синтаксиса (пропущен оператор) Вот такая штука, вылетает "ошибка синтаксиса (пропущен оператор)" в том месте, где "Дата=" В Access тот же запрос вроде как работает, или я какой-то ошибки в упор не вижу? ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT * FROM '+ComboBox3.Text+' WHERE Дата='+date3); ADOQuery1.ExecSQL; https://www.cyberforum.ru/ delphi-database/ thread1185238.html	Delphi БД Как обращаться к ячейкам в DBGrid, чтобы записать их значения в формулу? https://www.cyberforum.ru/ delphi-database/ thread1185191.html как обращаться к ячейкам в BDGrid? чтобы записать их значения в формулу
Delphi БД Не обновляется поле в Access Почему не обновляется поле в базе данных? Data.UsersTable.UpdateRecord; Data.UsersTable.FieldByName('pass').Text := '0000'; Data.UsersTable.Post;	Delphi БД печать https://www.cyberforum.ru/ delphi-database/ thread1185005.html http://www.delphiexpert.ru/load/Video/ravedb/ravedb.swf - смотрела это видео, все поняла взялась делать а у меня не все вкладки и нет вообще вкладки RAVE
Delphi БД Не выводит данные с первого раза в FastReport Вывожу данные в отчет. Всего 4 отчета. Но только в одном не выводит данные с первого раза, но в нем две таблицы, а в остальных трех данные берутся только из одной. Не понимаю в чем может быть причина, не хочет выводится с первого раза, только со второго. with FormReport do begin FrxPreview1.Visible := true; FrxPreview2.Visible := false; FrxPreview3.Visible := false; ... https://www.cyberforum.ru/ delphi-database/ thread1184998.html	Delphi БД Фильтрация по вычисляемому полю Здравствуйте!Есть вот три поля дата рождения, возраст и статус. Я вот вычислил возраст через функцию. Статус, определил по условию: if table2vozrast.AsString<'18' then table2status.AsString:='Совершенолетний' else table2status.AsString:='Несовершенолетний' Вот теперь делаю фильтрацию по статусу,но он мне выдает ошибку, что нельзя произвести фильтрацию по вычисляемому полю. if...
Delphi БД Выбор (сравнение) двух полей из DBEdit и вывод двух изображений https://www.cyberforum.ru/ delphi-database/ thread1184955.html Добрый день. Имеется БД, созданная в MS Access. В Delphi работает через ADOConnection. DBEdit содержит список товаров. Одно из полей – фото товара. Тип поля текстовый. Текст указывает путь к фото на компьютере. Необходимо реализовать следующее: пользователь выбирает через Ctrl или через Chekbox’ы в DBEditEh два товара, нажимает кнопку «Сравнить» и на экран рядом выводятся два изображения этих...	Delphi БД как перенести данные? https://www.cyberforum.ru/ delphi-database/ thread1184839.html Приветствую вас программисты, сразу скажу что в программировании я недавно, многих вещей не понимаю.Возникла необходимость создать программу "Электронная библиотека". На данный момент сделал регистрацию пользователей, сотрудников, фильтры и сортировки.Да связывал с помощью Аксесс, Адоквери, Адосоурс,Адоконнекшн. Сейчас дошел до момента выдачи книг пользователям, на первой картинке я показал...
При выборе в группы DBLookupCombobox, в отдельную таблицу вывести учеников этой группы Delphi БД Подскажите, как реализовать, чтобы при выборе в группы DBLookupCombobox, в отдельную таблицу выводились ученики этой группы?	Delphi БД Распределение доступа к данным через пользователей схемы https://www.cyberforum.ru/ delphi-database/ thread1184479.html Здравствуйте! Создал приложение на основе БД (Oracle 11g XE). Имеется схема, с которой и работаю, у схемы есть пользователи. Хочу сделать авторизацию пользователей в приложении. Не знаю, как организовать проверку логин/паролей пользователей схемы. Помогите, пожалуйста.

Antisfen

0 / 0 / 0

Регистрация: 07.12.2013

Сообщений: 77

Добавление данных в БД: Incompatible types String and TStrings - Delphi БД - Ответ 6213504

22.05.2014, 22:48. Показов 2374. Ответов 3

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Все хорошо работает. Из эдитов информация записывается в бд, но вот под биографию у меня добавлен компонент Memo. Прописал следующий код:

Delphi

procedure TfDobav.Button1Click(Sender: TObject);
begin
 if (fDobav.Edit1.Text='') or (fDobav.Edit2.Text='') or (fDobav.Edit3.Text='') or (fDobav.Edit4.Text='') or (fDobav.Edit5.Text='') or (fDobav.Memo1.Lines='') then application.MessageBox('Çàïîëíèòå âñå ïîëÿ!!!', 'Îøèáêà', MB_OK+MB_ICONQUESTION)
 else
 begin
  fDM.Tauthors1.Append;
  fDM.Tauthors1.FieldByName('Ôàìèëèÿ').AsString:=Edit1.Text;
  fDM.Tauthors1.FieldByName('Èìÿ').AsString:=Edit2.Text;
  fDM.Tauthors1.FieldByName('Îò÷åñòâî').AsString:=Edit3.Text;
  fDM.Tauthors1.FieldByName('Äàòà ðîæäåíèÿ').AsString:=Edit4.Text;
  fDM.Tauthors1.FieldByName('Äàòà ñìåðòè').AsString:=Edit5.Text;
  fDM.Tauthors1.FieldByName('Áèîãðàôèÿ').AsString:=Memo1.Lines;
  fDM.Tauthors1.Post;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Memo1.Clear;
 end;
end;

Выскакивает ошибка: incompatible types string and Tstring. Таких две ошибки. И при нажатии на них красным выделяются следующие строчки:

Delphi

 if (fDobav.Edit1.Text='') or (fDobav.Edit2.Text='') or (fDobav.Edit3.Text='') or (fDobav.Edit4.Text='') or (fDobav.Edit5.Text='') or (fDobav.Memo1.Lines='') then application.MessageBox('Çàïîëíèòå âñå ïîëÿ!!!', 'Îøèáêà', MB_OK+MB_ICONQUESTION)

Delphi

1	fDM.Tauthors1.FieldByName('Áèîãðàôèÿ').AsString:=Memo1.Lines;

Как исправить???

Вернуться к обсуждению:
Добавление данных в БД: Incompatible types String and TStrings Delphi БД

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

22.05.2014, 22:48

Готовые ответы и решения:

Incompatible types: 'TStrings' and 'Integer'
form2.stringgrid1.Cols:=strtoint(form1.edit1.Text);...

[dcc32 Error] Unit6.pas(66): E2010 Incompatible types: 'string' and 'TStrings'
Не могу понять в чем ошибка ? procedure TForm6.FormCreate(Sender: TObject); begin if...

Видает ошибку, что делать? Incompatible types: 'Integer' and 'TStrings'
procedure TForm1.Button6Click(Sender: TObject); var i: integer; begin i:=...

Incompatible types: 'Char' and 'String'
эта -функция для перевода из 2-ичной системы в 8-миричную. так на 20 стоке вылетает с данной ...

	22.05.2014, 22:48

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

22.05.2014, 22:48

Помогаю со студенческими работами здесь

Incompatible types: 'Real' and 'string'
var n,i:integer; a:array of real; begin n:=strtoint(edit1.text); for i := 0 to n do begin...

Incompatible types: 'Char' and 'string'
выдает на этой строчке ошибку if vleSubst.Cells=s then label1.caption:=strtofloat(used) ;

Incompatible types: 'Char' and 'string'
str2 := LowerCase(str) Выдает: Incompatible types: 'Char' and 'string' При обертке правой части в...

Incompatible types - 'PWideChar' and 'string'
Ошибка возникает тут: DeleteFile(TempFolder+'\temp.txt');

Наверх