adodc

[FSO]

Вообщем такая проблема, пытаюст отсортировать данные и неполучается:

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

Adodc1.RecordSource = "SELECT * FROM Registration ORDER BY [Name] ASC"
Adodc1.Refresh - ругается на ЭТО

В чем фишка?

[GSerg]

В отсутствии open?

[FSO]

В отсутствии open?

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

Dim cmd As String
cmd = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & _
"C:\Documents and Settings\Adimn\Рабочий стол\Serv\Registr.mdb"
Set cn = New ADODB.Connection
Dim sql As String
sql = "select * from Registration" ' создаем запрос
With cn
.ConnectionString = cmd
.Open
End With
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Adodc1.RecordSource = "SELECT * FROM Registration ORDER BY [Name] ASC"
Adodc1.Refresh
Set rs = Nothing

Да нет Шаман, Open есть....
Я тока начал изучть ADO так что мож че нить тут неправильное... )

[JohnCR]

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

Adodc1.RecordSource = "SELECT * FROM Registration ORDER BY Name ASC"

[FSO]

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

Dim cmd As String
cmd = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & _
"C:\Documents and Settings\Boss IT\Рабочий стол\Serv\Registr.mdb"
Set cn = New ADODB.Connection
Dim sql As String
sql = "select * from Registration" ' создаем запрос
With cn
.ConnectionString = cmd
.Open
End With
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Adodc1.RecordSource = "SELECT * FROM Registration ORDER BY Name ASC"
Adodc1.Refresh
Set rs = Nothing

Вообщем ругается .... говрит сначала:

Syntax error in From clause

ЗАтем:

Method "Refresh" of object 'IAdodc' failed



В чем фишка?

[JohnCR]

Проверь свойства Adodc1.
Вот рабочий пример:

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

Adodc1.CommandType = adCmdText
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Boss IT\Рабочий стол\Serv\Registr.mdb;Persist Security Info=False"
Adodc1.CursorType = adOpenDynamic
Adodc1.RecordSource = "SELECT * FROM Registration ORDER BY Name ASC"
Adodc1.Refresh

Кстати, для чего тебе вообще вот это все нужно:

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

Dim cmd As String
cmd = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & _
"C:\Documents and Settings\Boss IT\Рабочий стол\Serv\Registr.mdb"
Set cn = New ADODB.Connection
Dim sql As String
sql = "select * from Registration" ' создаем запрос
With cn
.ConnectionString = cmd
.Open
End With
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Set rs = Nothing

???
Если используешь Adodc1???
ИМХО, либо то, либо другое...