| Вопрос: Смена поставщика данных OLE DB | Добавлено: 19.01.04 17:23 |
Автор вопроса:  dimazzz
|
|
Перевожу программу с использования Jet OLE DB 4.0 на ODBC OLE DB с использованием для подключения к базам DSN. Работа с таблицами идет, не получается передача параметра в команду на SQL. При попытке выполнить команду выдается ошибка:[Microsoft][Драйвер ODBC Microsoft Access] Too few parameters. Expected 1. Привожу программу, которая работает с jet и не работает с ODBC. Какой синтаксис надо для передачи параметров в запрос при использовании ODBC? ----------------------- 'функция проверки подлинности введенного имени и пароля оператора 'успешно- код 0,нет- код 1 Public Function PassCheck(Name As String, Pass As String, Card As String) As Integer Dim strf As String Dim conn As New DataEnvironment1 Dim recs As Recordset Err.Clear conn.Commands("testop").Parameters("cardno").Value = Card conn.Commands("testop").Execute Set recs = conn.rstestop recs.Open If recs.RecordCount = 0 Then 'не найдено записей с паролем PassCheck = 1 Exit Function Else If (recs.Fields(1) = Name) And (recs.Fields(3) = Pass) Then 'имя и пароль сравнились OperatorName = recs.Fields(1) 'занести данные оператора OperatorPass = recs.Fields(3) OperatorRights = recs.Fields(2) SmBegin = Now 'дата и время начала смены PassCheck = 0 Else PassCheck = 1 End If End If recs.Close End Function |
| Ответы | Всего ответов: 0 |
Страница: