Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: запрос к ...

Тема: запрос к серверу

15.06.2007 21:09:10

All

4316 сообщения

Тема: запрос к серверу

Всем добрый день (другое время суток)!!!
Хочу поинтересоваться у знатоков...
Делаю запрос к серверу (пока простенький, что бы понять механизм) на основе формы с одним полем (допустим стоимость)...
Составил запрос к серверу:
выбираю все записи из определённой тыблицы. соединяется и работает, нормально!!!

Затем пытаюсь на основе формы по кнопке. Код следующий:

Private Sub Button1_Click()
Dim strSQL As String
Dim catCurr As New ADOX.Catalog
Dim cmdCurr As New ADODB.Command

strSQL = "SELECT * FROM dbo.All "
If Not IsNull(Me![PoleName]) Then
If Me![PoleName] <> "" Then
strSQL = strSQL & "WHERE Prise_ID = " & Me![PoleName]
End If
End If

catCurr.ActiveConnection = CurrentProject.Connection
Set cmdCurr = catCurr.Views("Query1").Command
cmdCurr.CommandText = strSQL
Set catCurr.Views("Query1").Command = cmdCurr
DoCmd.OpenQuery "Query1"
End Sub

Так вот, на строчке
Set cmdCurr = catCurr.Views("Query1").Command

Вылетает ошибка следующего содержания:

Пожалуйста, подскажите в чём тут дело?
Заранее благодарен, Ваш клаксон!!!

P.S. Связь с SQL server
Автор: клаксон от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: запрос к ...

Поиск

Список форумов

Начало | Forums