| Вопрос: Проблема с конектом!!! | Добавлено: 26.04.05 19:05 |
Автор вопроса:  whitehead
|
|
Function connect() As Boolean
On Error GoTo er Dim constring As String constring = Application.ThisWorkbook.Path & "db2.mdb" connection.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DataSource=" & constring connection.Open If connection.State = 1 Then connect = True End If ex: Exit Function er: connect = False End Function И нифига не работает, connect = False, в чем прикол не понятно, вроде все правильно. Уже разные офисы пробовал, не помогает. И база на месте. Подскажите, если кто знает |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 27.04.05 01:49 |
| Убедись, что Application.ThisWorkbook.Path содержит на конце обратный слэш | ||
Страница: 1 |