Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Присвоение переменной ADOQuery / 18 сообщений из 18, страница 1 из 1
18.02.2021, 12:09
    #40046580
kiddan
kiddan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение переменной ADOQuery
Добрый день! Есть 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:17
    #40046589
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение переменной ADOQuery
Вопрос в чем?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2021, 12:30
    #40046605
Gerasimenko
Gerasimenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение переменной ADOQuery
_Vasilisk_
Вопрос в чем?

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

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

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

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

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

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

Согласен, спасибо!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2021, 16:34
    #40046771
kiddan
kiddan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение переменной ADOQuery
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, 17:21
    #40046798
энди
энди
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение переменной ADOQuery
Не пойму, AdoQuery1.NEXT тут вообще к чему написано?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2021, 17:36
    #40046804
ъъъъъ
ъъъъъ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение переменной ADOQuery
энди,

а остальное - нормально, что ли?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.02.2021, 18:25
    #40046830
энди
энди
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение переменной ADOQuery
ну там хотя бы рациональное зерно есть, использовать цикл для сбора значений, другое дело что собирает неверно, но сама то идея может быть доведена до ума :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Присвоение переменной ADOQuery / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 391ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2037604]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 49ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 246ms
total:  391ms
x
x
Закрыть


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