Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> База данных + StringGrid 
:(
    Опции темы
Denwer
Дата 10.10.2008, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет
На форме есть StringGrid и DBGrid. Первый содержит две колонки. В одной имена вторая пустая. 
Второй же выводит табличку, (которая содержит 2 поля, name и age, имя и возраст).
(из базы) которая содержит большую базу данных имен.
Вопрос: Как выполненный SQL - запрос вывести в StringGrid? Мне просто нужно в StringGrid проставить
возраст напротив имён, как в базе.
PM WWW   Вверх
morpheyushka
Дата 10.10.2008, 17:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 2
Всего: 8
Откуда берутся данные для DBGrid?

Добавлено через 11 минут и 14 секунд
Таблица, которая отображается одна и таже для обоих компонентов?


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
Denwer
Дата 10.10.2008, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет
Данные туда выводяться из базы Access
PM WWW   Вверх
Rodman
Дата 10.10.2008, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 1
Всего: 122
Цитата(Denwer @  10.10.2008,  21:04 Найти цитируемый пост)
Данные туда выводяться из базы Access 
осмелюсь предположить что ты настроил доступ к базе
Код

ADOQuery.close;
ADOQuery.SQL.Text:='SELECT [name],  age FROM Mytable;';
ADOQuery.Open;
while (not ADOQuery.EOF)do
begin
   StringGrid1.Cells[1, i]:=ADOQuery.Fields.Fields[0].asstring;
   StringGrid1.Cells[2, i]:=ADOQuery.Fields.Fields[1].asstring;
   inc(i);
   ADOQuery.Next;
end;




--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Denwer
Дата 10.10.2008, 23:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет
Ошибка. ADOQuery1: Missing SQL property

Видать что то в запросе. Хотя уже пишу просто ADOQuery1.SQL.Add('select * from mytable'); - Виснет форма.



Это сообщение отредактировал(а) Denwer - 10.10.2008, 23:31
PM WWW   Вверх
Данкинг
Дата 10.10.2008, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Denwer @  11.10.2008,  00:27 Найти цитируемый пост)
Missing SQL property

Такое выводится, если SQL.Text пустой. smile 

Да, и не забываем
Код

ADOQuery1.SQL.Clear;



Это сообщение отредактировал(а) Данкинг - 10.10.2008, 23:37


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Denwer
Дата 10.10.2008, 23:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет
Виснет в цикле... там надо смотреть. Постораюсь добить. Первый опыт с базой.

Это сообщение отредактировал(а) Denwer - 10.10.2008, 23:51
PM WWW   Вверх
Rodman
Дата 12.10.2008, 13:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 1
Всего: 122
ну покажи как ты делаешь?


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Denwer
Дата 12.10.2008, 19:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет
Код

procedure TForm1.Button1Click(Sender: TObject);
 var
  i : integer;
  st : string;
  begin
 i := 1;
 st := StringGrid1.Cells[1,i];
 ADOQuery1.SQL.Clear;
 ADOQuery1.Close;
 ADOQuery1.SQL.Add('select Name from sheet where (Age = "st")');
 ADOQuery1.Open;

  while (not ADOQuery1.EOF)do
  begin
  StringGrid1.Cells[0, i]:=ADOQuery1.Fields.Fields[0].asstring;
  inc(i);
  ADOQuery1.Next;
  end;
 end;


Как в SQL - запрос мне вставить эту стринговую переменную ? Ошибка  в синтаксисе

Это сообщение отредактировал(а) Denwer - 12.10.2008, 19:20
PM WWW   Вверх
Rodman
Дата 12.10.2008, 19:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 1
Всего: 122
Name - зарезервированное слово.. его окуратно надо юзать... а лучше не юзать...
Код

procedure TForm1.Button1Click(Sender: TObject);
 var
  i : integer;
  st : string;
  begin
 i := 1;
 st := StringGrid1.Cells[1,i];
 ADOQuery1.SQL.Clear;
 ADOQuery1.Close;
 ADOQuery1.SQL.Add('select [Name] from sheet where (Age = "st")');
 ADOQuery1.Open;
  while (not ADOQuery1.EOF)do
  begin
  StringGrid1.Cells[0, i]:=ADOQuery1.Fields.Fields[0].asstring;
  inc(i);
  ADOQuery1.Next;
  end;
 end;



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Denwer
Дата 12.10.2008, 23:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет
Error : "Несоответствие типов данных в выражении условия выбора"  smile 
PM WWW   Вверх
Данкинг
Дата 12.10.2008, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Denwer @ 13.10.2008,  00:20)
Error : "Несоответствие типов данных в выражении условия выбора"  smile

А в самом Access'е запрос работает?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Staruha
Дата 13.10.2008, 08:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: нет
Всего: 27
Код

StringGrid1.Cells[0, i]:=ADOQuery1.Fields.Fields[0].asstring;

 Если я правильно поняла ,ты возраст ,а это Число ,пытаешься вставить в StingGrid



--------------------
Возмездие настигнет
PM MAIL   Вверх
Poseidon
Дата 13.10.2008, 08:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Цитата(Denwer @  12.10.2008,  23:20 Найти цитируемый пост)
Error : "Несоответствие типов данных в выражении условия выбора"
Блин, ну ведь даже не разбираясь в коде понятно что не так:

Код

{...}
ADOQuery1.SQL.Add('select [Name] from sheet where (Age = "' +st+ '")');
{...}




--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Denwer
Дата 13.10.2008, 12:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет
Код

procedure TForm1.Button1Click(Sender: TObject);
 var
  i : integer;
  st : string;
  begin
 for i := 1 to StringGrid1.RowCount - 1 do
  begin
  st := StringGrid1.Cells[1, i];
  ADOQuery1.SQL.Clear;
  ADOQuery1.Close;
  ADOQuery1.SQL.Add('select Name_1 from Mytable where (Age = '+ st +')');
  ADOQuery1.Open;
  while (not ADOQuery1.EOF)do
  begin
  StringGrid1.Cells[0, i]:=ADOQuery1.Fields.Fields[0].asstring;
  ADOQuery1.Next;
  end;
 end;
end;


Сделал. 
morpheyushka, 
Rodman, 
Данкинг, 
Staruha, 
Poseidon, 
Спасибо что откликнулись.  smile 

Это сообщение отредактировал(а) Denwer - 13.10.2008, 12:28
PM WWW   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1370 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.