| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Из базы данных в массив [D5, IB5.x]

elf ©   (2003-07-10 19:22:00) 

Кто нибудь знает, как информацию из базы данных (поле таблицы), через компонент TQuery или что-то другое, поместить в массив, например array[i]. Если несложно листинг напишите.

---

from_shadow   (2003-07-15 14:15:00) [1]

Если меня не подводит память, то в sql есть такая опция у select-а (ms sql)

---

seregin   (2003-07-14 10:04:00) [2]

а лучше заранее сделать FetchAll
не помню нужен ли он с Next...

---

Семен Сорокин   (2003-07-14 08:57:00) [3]

elf (10.07.03 19:22)
а я предпочитаю динамическому массиву использовать TList- там множество удобных свойств и методов реализовано (в т.ч. сортировка данных)

---

Um   (2003-07-14 07:05:00) [4]


rc:=ADOTable1.RecordCount;
fc:=ADOTable1.FieldCount-1;
flds:=VarArrayCreate([0,fc],varVariant);
for x:=0 to fc do
flds[x]:=ADOTable1.Fields[x].FieldName;
varData:=ADOTable1.Recordset.getrows(RC,1,Flds);


---

KDS   (2003-07-11 12:44:00) [5]

Я использую всегда динамические массивы зарание определенного типа подобного набору полей таблицы
type
TCrossRec=record
crInd :LongInt;
crFlag :Char;
crMakName: AnsiString;
crSklCod: AnsiString;
crCommen: Boolean;
end;
var crList: array of TCrossRec;

DataSet.First;
while not DataSet.Eof do begin
SetLength(crList,DataSet.RecNo+1); {увеличиваю на 1 с каждой записью длину массив}
crList[DataSet.RecNo].crInd:=DataSet.FieldByName("f1").AsInteger;
crList[DataSet.RecNo].crSklCod:=DataSet.FieldByName("f1").AsString;
//набираешь все поля
DataSet.Next;
end;

---

Andriano   (2003-07-11 08:56:00) [6]

Посмотри вариантные массивы. Очень сильная штука и Ole поддерживается. Можно сохранить любой набор данных, лишь бы памяти хватило. BLOB конечно не запихнешь.

В примере sl:TStringList-список полей в DataSet. DataSet или Query - никакой разницы, просто у меня FIB-ы. Это пример вставки в Excel целиком всей таблицы сразу. Работает гораздо! быстрее, чем по одной ячейке.

XArr := VarArrayCreate([1, DataSet.RecordCount, 0, sl.Count-1], varVariant);

row:=1;
DataSet.First;
while not(DataSet.Eof) do begin
for i:=0 to sl.Count-1 do
XArr[row,i]:=DataSet.FieldByName(sl[i]).AsString;
inc(row);
DataSet.Next;
end;
WorkSheet.Range[Lett(StartCol)+IntToStr(StartRow), Lett(StartCol+sl.Count-1)+IntToStr(StartRow+DataSet.RecordCount-1)].Value := XArr;

---

AkaSaint   (2003-07-11 00:11:00) [7]

Если тебе нужно информацию из столбца в массив, то по-моему тебе придется просто перебрать все записи, вроде:

Table.First;
while (Table.EOF = False) do begin
Array[Table.RecNo-1] = Table.FieldByName["IntegerField"].AsInteger;
Table.Next;
end;
Массив, конечно, должен содержать не меньше элементов, чем записей в таблице (для этого примера).
Если ты имеешь в виду что-то другое, напиши.

---

Наверх