Стремное задание для Access

[Faust]

Скорее всего, это ещё и оффтоп, но уж очень приперло... Есть задание: хранить в таблицах прямоугольные матрицы ивыполнять всяческие операции над ними. С хранением я вроде как разобрался просто добавлением ключевого поля-счетчика, и если создание запроса на сложение двух матриц или умножение матрицы на число я ещё в состоянии себе представить, то вот транспонирование матрицы - никак. Может, кто-нибудь подскажет, как его осуществить?
ЗЫ. Если кто шарит БД, но не шарит аналит, то транспонирование - это операции замены строк на столбцы и наоборот, к примеру матрица до

Код: Выделить всё

1 2
3 4
5 6

и после транспонирования:

Код: Выделить всё

1 3 5
2 4 6


[Konst_One]

используй запрос акцесса TRANSFORM

[gaidar]

Если хранить матрицы в таблице так:

MatrixID | Row | Column | Value

То транспонирование можно выполнить очень просто - выбрать во временную таблицу все данные, относящиеся к матрице и заменить Row на Column и наоборот, ведь Aji = ^Aji.

Тогда запрос будет вылядеть вот так:

Код: Выделить всё

UPDATE Matrices SET [Column] = Row, Row = Column WHERE MatrixID = @MatrixID;

[gaidar]

На всякий случай сделал примерную базу.

[Faust]

Я вот тоже думал о такой манере хранения матрицы, но тогда возникает вопрос: как вывести такую матрицу в привычном прямоугольном виде.

[Ennor]

А что, у тебя иначе как прямого отображения результатов SELECT *, других способов решения задачи не допускается? Разумеется, данные необходимо отформатировать и причесать в достойный вид, прежде чем пользователь их увидит.

Код: Выделить всё

select [Row], [Column], [Value]
from Matrices
where MatrixId = @MatrixID
order by [Row], [Column]

Получив результат этого запроса, клиентское приложение заполняет, скажем, грид, используя 2 вложенных цикла:

Код: Выделить всё

Rec.Open
For Y = 1 to RCount
  For X = 1 to CCount
    Me.hflexGrid.TextMatrix(X, Y) = CStr(Rec.Fields("Value").Value)
    Rec.MoveNext
  Next X
Next Y
Rec.Close

Да, размерность матрицы можно получить так:

Код: Выделить всё

select max(Row) as [RCount], max(Column) as [CCount]
from Matrices
where MatrixId = @MatrixID

[Faust]

А что, у тебя иначе как прямого отображения результатов SELECT *, других способов решения задачи не допускается?

Все ещё хуже - эти пункты задания нужно было выполнить в QBE. Но я уже справился, всем спасибо.