RAND() не катит?

[Boss IT]

Сам запрос:

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

rs.Open "SELECT * FROM s ORDER BY RAND()", cn, adOpenKeyset, adLockOptimistic

Не катит...

пишет что: "Неопределенная функция 'RAND' в выражении"...Следовательно уже никак нельзя будет использовать ее в vb-access&

[GSerg]

А как ты себе представляешь сортировку по результату функции?

[Boss IT]

А как ты себе представляешь сортировку по результату функции?

Я уже никак непредставляю.... Скажи почему например в mysql идет этот запрос, а в VB нет?

[Ennor]

Ну ты еще на DBF сошлись - тоже мне, авторитет нашел, мускул...

Сортировка может быть осуществлена по столбцу, указанному в селект-листе. Также, в некоторых случаях, можно отсортировать по невыводимому столбцу, но каковы критерии применимости этого метода, я сейчас не помню. Кроме того, не факт, что такая фича вообще поддерживается Аксессом.

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

select Rand(), s.*
from S
order by 1

Что-то типа того.

[Boss IT]

Ну ты еще на DBF сошлись - тоже мне, авторитет нашел, мускул...

Сортировка может быть осуществлена по столбцу, указанному в селект-листе. Также, в некоторых случаях, можно отсортировать по невыводимому столбцу, но каковы критерии применимости этого метода, я сейчас не помню. Кроме того, не факт, что такая фича вообще поддерживается Аксессом.

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

select Rand(), s.*
from S
order by 1

Что-то типа того.

У меня БД Access, твой вариант не работает, пишет: "Куй" =).

[GSerg]

Не работает потому, что в Access функция называется rnd.
А не будет работать потому, что rnd в запросе вызывается один раз.

[Boss IT]

Не работает потому, что в Access функция называется rnd.
А не будет работать потому, что rnd в запросе вызывается один раз.

"SELECT od FROM s ORDER BY RND(od)"
Вот так он работает, и если присмотреться то выдает всегда одни и те же значения. И все же как и перетасовать чтоб выдавал каждый раз разные значения?

[GSerg]

Значение будет одно.

[Boss IT]

Почему?

[GSerg]

А действительно, почему...

А что у нас в od?

[Boss IT]

А действительно, почему...

А что у нас в od?

od - это у нас поле в таблице s. Type = Text.

Но пока там просто числа, а не текст.

[GSerg]

А вот сделай там число, или не там, но число сделай...

[Ennor]

Не, народ, это вам не Огакул. Продукты Microsoft ведут себя в этом вопросе именно так, и исправить это можно, только изменив алгоритм. Обрабатывать по одной строке за раз, тогда значения будут меняться.

Причем, по-моему, проще это сделать на клиенте - пробежаться по рекордсету, на каждом шаге делая Rnd() для этого поля, а потом по нему отсортировать.

[Boss IT]

А вот сделай там число, или не там, но число сделай...

And?

[GSerg]

And use it as the argument for RND function...

[Boss IT]

Example it is possible?

[Boss IT]

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

Private Sub Form_Load()
Randomize
Dim n As Long
Dim c As Long
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;Data Source=" & App.Path _
& "\aa.mdb;Mode=ReadWrite;Jet OLEDB"
rs.Open "SELECT od FROM s", cn, adOpenKeyset, adLockOptimistic
c = rs.RecordCount * Rnd(Rnd * c)
Set rs = Nothing
rs.Open "SELECT od FROM s ORDER BY RND(od-" & c & ")", cn, adOpenKeyset, adLockOptimistic
Do Until rs.EOF
    List1.AddItem rs.Fields("od")
    rs.MoveNext
Loop
Set rs = Nothing
End Sub

Вот что получилось =))

2GSerg сойдет

[GSerg]

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

Option Explicit

Private Sub Form_Load()
  CreateObject("ADOX.Catalog").Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1.mdb"
 
  With CreateObject("ADODB.Connection")
    .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1.mdb"
    .Execute "CREATE TABLE Table1 (RowID counter NOT NULL PRIMARY KEY, SomeStuff Text(100))", , 1& Or &H80&
    .Execute "CREATE PROCEDURE Query1 AS SELECT * FROM Table1 ORDER BY Rnd(RowID)", , 1& Or &H80&
   
    .Execute "INSERT INTO Table1 (SomeStuff) VALUES ('One')", , 1& Or &H80&
    .Execute "INSERT INTO Table1 (SomeStuff) VALUES ('Two')", , 1& Or &H80&
    .Execute "INSERT INTO Table1 (SomeStuff) VALUES ('Three')", , 1& Or &H80&
    .Execute "INSERT INTO Table1 (SomeStuff) VALUES ('Four')", , 1& Or &H80&
   
    MsgBox .Execute("Query1", , 4&).GetString(ColumnDelimeter:=vbTab, RowDelimeter:=vbNewLine)
    MsgBox .Execute("Query1", , 4&).GetString(ColumnDelimeter:=vbTab, RowDelimeter:=vbNewLine)
    MsgBox .Execute("Query1", , 4&).GetString(ColumnDelimeter:=vbTab, RowDelimeter:=vbNewLine)
    MsgBox .Execute("Query1", , 4&).GetString(ColumnDelimeter:=vbTab, RowDelimeter:=vbNewLine)
   
    .Close
  End With
End Sub

[Boss IT]