Zloy_Gelud
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
qwertEHOK
Цитата:| в темп кидал так как я запускаю напрямую из зипа, который ты дал. Он распаковывается в темп |
Я дал тебе файл проекта - это файл с расширением APZ. По сути это, конечно, архив, но распаковывать его не нужно, а необходимо просто открыть с помощью АМС. Хотя при установке АМС автоматом должны были проставиться ассоциации.
Цитата:| есть же oRecordSet.Fields.Count - это количество полей, правильно? |
Да, это количество полей в базе.
Цитата: сделал так
Grid.SetColumnCount("Grid1", oRecordSet.Fields.Count);
еще подскажи как получить заголовки столбцов
oRecordSet.Fields[i].Name - не работает |
Выполни следующий ряд действий:
- В настройках объекта Grid: Rows - 0, Columns - 0, Fixed rows - 1, Fixed columns - 0.
- В глобальных функциях измени строку в функции GetRows()
Код:| tRows[nRow][i] = ADODB.Trim(oRecordSet.Fields:Item(i - 1).Value); |
на
Код:| tRows[nRow][i] = {Value = ADODB.Trim(oRecordSet.Fields:Item(i - 1).Value), FieldName = oRecordSet.Fields:Item(i - 1).Name}; |
- Замени код в On Show страницы на этот:
Код: ADODB.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb");
ADODB.Exec("SELECT * FROM test");
local tRows = ADODB.GetRows();
if tRows then
-- количество столбцов = количеству полей в БД
Grid.SetColumnCount("Grid1", #tRows[1]);
for i = 1, #tRows do
Grid.InsertRow("Grid1", -1, true);
for k = 1, #tRows[i] do
-- названия столбцов = названиям полей в БД
Grid.SetCellText("Grid1", 0, k - 1, tRows[1][k].FieldName, true);
-- заполняем ячейки
Grid.SetCellText("Grid1", i, k - 1, tRows[i][k].Value, true);
end
end
Grid.ExpandLastColumn("Grid1", true);
end
ADODB.Close(); |
|
Всего записей: 3267 | Зарегистр. 30-05-2007 | Отправлено: 21:06 22-12-2010 | Исправлено: Zloy_Gelud, 21:17 22-12-2010 |
|
Дружественная тема в Варезнике
New Version Available: 8.0.3.0 
