Вниз
Скачать: CL | DM;

Запрос   Найти похожие ветки 

← →
Laimer   (2002-01-14 13:14) [0]

Есть запрос:
sql.clear;
sql.add("select cast(sum(Sec) as char(8)) as sec0 from "Tel.db" Tel ");
sql.add("where Tel.Telephon Like "8%" and Tel.Nomber="+#39+ComboBox1.Items[ComboBox1.ItemIndex]+#39);
sql.add("union all");
sql.add("select cast(sum(Sec) as char(8)) as sec1 from "Tel.db" Tel ");
sql.add("where Telephon Like "_______" and Nomber="+#39+ComboBox1.Items[ComboBox1.ItemIndex]+#39);
sql.add("union all");
sql.add("select cast(sum(Sec) as char(8)) as sec2 from "Tel.db" Tel ");
sql.add("where Telephon Like "____" and Nomber="+#39+ComboBox1.Items[ComboBox1.ItemIndex]+#39+";");
Open;
результат 1 столбец с 3-мя строками
значение первой строки я вытаскиваю так:
Edit1.Text:= preob(DBgrid1.Fields[0].Text);
в вот когда вытаскиваю вторую
Edit3.Text:= preob(DBgrid1.Fields[1].Text;
выскакивает ошибка памяти..ОТЧЕГО?


← →
alexts ©   (2002-01-14 13:23) [1]

Внатуре Laimer :)))

SQL.FIRST;
edit1.text:=sql.fields[0].asstring;
sql.next;
edit3.text:=sql.fields[0].asstring;
...


← →
fnatali ©   (2002-01-14 13:25) [2]

так ты обращаешься не ко второй строке, а ко второму столбцу, которого у тебя нет. Сделай Query1.Next.
Query1.first;
Edit1.text:=query1.fields[0].asstring;
Query1.next;
Edit2.text:=query1.fields[0].asstring;
...


← →
Laimer   (2002-01-14 13:31) [3]

Спасибо вам



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c
1-18838
Georg
2002-01-22 11:03
2002.02.07
Думку гадаю о текстовых файлах


1-18794
Rustik
2002-01-24 15:04
2002.02.07
Программирование в Delphi


1-18825
vrRaven
2002-01-25 16:15
2002.02.07
Проблема с Copy()


1-18870
Анатолий
2002-01-23 06:31
2002.02.07
Chart


1-18903
Ольга
2002-01-22 17:18
2002.02.07
Delphi 6




   Наверх