ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Присвоение переменной ADOQuery
18 сообщений из 18, страница 1 из 1
Присвоение переменной ADOQuery
    #40046580
kiddan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiddan
Гость
Добрый день! Есть AdoConnection (БД Oracle поля R2 R3 R4 R5), Datasourse и AdoQuery, осуществляется поиск по полю R2:
Код: pascal
1.
2.
3.
4.
5.
6.
procedure Tform1.button1Click
begin
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('select * from mydb where R2= '+Edit1.text+'');
AdoQuery1.SQL.Open;
end;


по второму баттону нужно всем найденным строкам присвоить переменную чтобы далее записать в файл,
(R2 R3 R4 R5)
5 1 2 3
5 2 3 4
5 5 6 7
результат a:= 1,2,3;2,3,4;5,6,7;
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
procedure Tform2.button1Click
var
  i: integer;
  l: string;
begin
  l:='';
  for i:= 2 to ADOQuery1.FieldCount -1 do
    l:= l + ADOQuery1.Fields [i].ASstring + ',';
  l:=l+';';
  AdoQuery1.NEXT;
end;

end


Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
18.02.2021, 12:09
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046589
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Вопрос в чем?
...
Рейтинг: 0 / 0
18.02.2021, 12:17
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046605
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
_Vasilisk_
Вопрос в чем?

В том, что он читает одну строку, а нужно все.
...
Рейтинг: 0 / 0
18.02.2021, 12:30
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046609
kiddan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiddan
Гость
Gerasimenko,
если добавить MEMO1.Lines.add(l);
то все найденные строки в мемо отображаются но в мемо мне не нужно, мне нужно присвоить всем найденным записям переменную чтобы далее записать в txt файл
...
Рейтинг: 0 / 0
18.02.2021, 12:37
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046615
kiddan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiddan
Гость
_Vasilisk_,
не совсем понимаю как найденным строкам присвоить переменную и в добавок ко всему значения строк должны разделяться запятыми, а а следующая группа строк точкой с запятой (1,2,3;7,8,9; и т.д)
...
Рейтинг: 0 / 0
18.02.2021, 12:44
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046620
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
kiddan
не совсем понимаю как найденным строкам присвоить переменную
Так вы же уже это сделали. В переменной l что у вас?
kiddan
а следующая группа строк точкой с запятой
Код: pascal
1.
l[Length(l)] := ';'

Вставить перед Next
...
Рейтинг: 0 / 0
18.02.2021, 12:47
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046621
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
kiddan
Gerasimenko,
если добавить MEMO1.Lines.add(l);
то все найденные строки в мемо отображаются но в мемо мне не нужно, мне нужно присвоить всем найденным записям переменную чтобы далее записать в txt файл
Не верю (с)
...
Рейтинг: 0 / 0
18.02.2021, 12:47
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046667
kiddan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiddan
Гость
_Vasilisk_
kiddan
не совсем понимаю как найденным строкам присвоить переменную
Так вы же уже это сделали. В переменной l что у вас?
kiddan
а следующая группа строк точкой с запятой
Код: pascal
1.
l[Length(l)] := ';'

Вставить перед Next

Спасибо помогло!!!!
А как присвоить найденным строкам переменную?
...
Рейтинг: 0 / 0
18.02.2021, 14:08
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046672
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
kiddanА как присвоить найденным строкам переменную?
Оп-па, опять!
...
Рейтинг: 0 / 0
18.02.2021, 14:12
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046675
kiddan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiddan
Гость
ъъъъъ
kiddanА как присвоить найденным строкам переменную?

Оп-па, опять!
Объясните если можете, я только осваиваю!
...
Рейтинг: 0 / 0
18.02.2021, 14:16
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046680
cptngrb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cptngrb
Участник
kiddan, очень долго будешь по ответам на форуме осваивать. Нужно заставить себя прочитать краткий справочник или брошюру по языку, тогда хватит знаний понять ответ.
З.Ы. На этом форуме гадкие дядьки сидят и тешат своё ЭГО и писать за тебя код никто не будет
...
Рейтинг: 0 / 0
18.02.2021, 14:24
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046684
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
kiddan
А как присвоить найденным строкам переменную?
_Vasilisk_
Так вы же уже это сделали. В переменной l что у вас?
...
Рейтинг: 0 / 0
18.02.2021, 14:26
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046735
kiddan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiddan
Гость
_Vasilisk_
kiddan
А как присвоить найденным строкам переменную?
_Vasilisk_
Так вы же уже это сделали. В переменной l что у вас?

Когда записываю переменную l в файл там только последняя запись найденных строк.
...
Рейтинг: 0 / 0
18.02.2021, 15:16
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046736
kiddan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiddan
Гость
cptngrb
kiddan, очень долго будешь по ответам на форуме осваивать. Нужно заставить себя прочитать краткий справочник или брошюру по языку, тогда хватит знаний понять ответ.
З.Ы. На этом форуме гадкие дядьки сидят и тешат своё ЭГО и писать за тебя код никто не будет

Согласен, спасибо!!!
...
Рейтинг: 0 / 0
18.02.2021, 15:16
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046771
kiddan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiddan
Гость
kiddan
Добрый день! Есть AdoConnection (БД Oracle поля R2 R3 R4 R5), Datasourse и AdoQuery, осуществляется поиск по полю R2:
Код: pascal
1.
2.
3.
4.
5.
6.
procedure Tform1.button1Click
begin
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('select * from mydb where R2= '+Edit1.text+'');
AdoQuery1.SQL.Open;
end;


по второму баттону нужно всем найденным строкам присвоить переменную чтобы далее записать в файл,
(R2 R3 R4 R5)
5 1 2 3
5 2 3 4
5 5 6 7
результат a:= 1,2,3;2,3,4;5,6,7;
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
procedure Tform2.button1Click
var
  i: integer;
  l: string;
begin
  l:='';
  for i:= 2 to ADOQuery1.FieldCount -1 do
    l:= l + ADOQuery1.Fields [i].ASstring + ',';
  l:=l+';';
  AdoQuery1.NEXT;
end;

end


Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.



Всё заработало, l:=''; было лишним!!! Всем спасибо кто помог!!!
...
Рейтинг: 0 / 0
18.02.2021, 16:34
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046798
энди
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
энди
Участник
Не пойму, AdoQuery1.NEXT тут вообще к чему написано?
...
Рейтинг: 0 / 0
18.02.2021, 17:21
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046804
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
энди,

а остальное - нормально, что ли?
...
Рейтинг: 0 / 0
18.02.2021, 17:36
| Ответить | Цитировать | Написать  
Присвоение переменной ADOQuery
    #40046830
энди
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
энди
Участник
ну там хотя бы рациональное зерно есть, использовать цикл для сбора значений, другое дело что собирает неверно, но сама то идея может быть доведена до ума :)
...
Рейтинг: 0 / 0
18.02.2021, 18:25
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Присвоение переменной ADOQuery
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=26&tid=2037604]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 203ms
total:  355ms
созд. / загр.: 355ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]