Recordset в Access

[Dashka]

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

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


Private Sub cmdLogin_Click()
Dim str As String
Dim rst As Object

Set rst = Me.Recordset
Me.username.SetFocus
str = "username='" & Me.username.Text & "'and password='"
Me.password.SetFocus
str = str & Me.password.Text & "'"

rst.Seek str        '???
If rst.EOF Then   '???
    MsgBox "Access denied."
Else
    DoCmd.OpenForm "Order_form"
End If
rst.close
End Sub


[Nicky]

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

Function SuperAutorization(sUserName as String, sUserPassword as String) as Boolean
  SuperAutorization = CurrentDB.OpenRecordset("select count(*) from users where USERNAME = '" & sUserName & "' and PASSWORD = '" & sUserPassword & "'").Fields(0) > 0
End Function


[Al Khamid]

1...

[Dashka]

Nicky, спасибо огромное, оно заработало!

[Dashka]

1. Небольшая поправочка:
Вместо

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

Me.password.SetFocus
str = str & Me.password.Text & "'"


можно просто

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

str = str & Me.password & "'"


оно вполне корректно вернет именно текст из поля.

Не знаю, как у вас, а у меня Акцесс утверждет, что не может обращаться к объектам, на которые не установлен фокус.
А также, я обычно предпочитаю явно указывать свойства.

2. Вместо Seek я бы использовал FindFirst:

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

rst.[b]FindFirst[/b] str
If rst.[b]NoMatch[/b] Then   'если такой записи не найдено
    MsgBox "Access denied."
Else
    DoCmd.OpenForm "Order_form"
End If


В обычном ВБ я бы так и сделала, а ВБА говорит, что такого метода не знает.

3. Сударыня, не используйте имена встроенных функций в именах переменных. "str" в вашем примере стоит заменить например на "strCrt".

А Str() - функция, делающая строку из других типов данных

В оригинале переменная называлась strSQL.

[Nicky]

2Dashka
Только ты это... на ошибки еще проверяй
Про FindFirst, его не VBA не знает, его ADO не знает

Так я стал продвинутым пользователем

[Al Khamid]

[Dashka]

Главное, чтобы оно хотя бы делало вид, что работает. Это просто прототип к курсовому проекту.

Про виды рекордсетов я уже поняла. Вот бы еще в Акцессе Хелп по-человечески работал.