| |
|
|
| | Здравствуйте, подскажите, что тут может быть
Редактирую модуль, компилирую , запускаю на выполнение. часть выполняетс, потом вываливается в окно с текстом.
"База данных была приведена пользователем 'Admin' на компьютере ... в состояние, препятствующее ее открытию или блокировке"
после этого приходится переоткрывать базу.
Догадываюсь, что может тут с правами доступа что-то, но это мой домашний комп. | |
| |
| |
| |
|
|
| | таки выложите сюда кусок кода, где выскакивает ошибка | |
| |
| |
| |
|
|
| | Sub DDD()
Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0; "
Const DataSource = "Data Source=C:\Documents and Settings\TrainAccss\Contacts.mdb"
Dim rs1 As New ADODB.RecordSet
Dim Connection As New ADODB.Connection
MsgBox "1"
Connection.Open (Provider & DataSource) ' Вот здесь и останавливается с ошибкой времени выполнения
Connection.Close
MsgBox "2"
End Sub
Собственно, наблюдается зависимость. Открываю базу - запускаю программку, хоть несколько раз подряд- все крутится. Как только что-то отредактировала,- останавливается. | |
| |
| |
| |
|
|
| | Пропадают значения переменных Provider & DataSource (видимо)
посмотрите:
MsgBox Provider
MsgBox DataSource | |
| |
| |
| |
|
|
| | похоже, что недостаточно параметров у Connection
Dim s As String, sSQL As String, rs As ADODB.Recordset
...
Set rs = New ADODB.Recordset
sSQL = "select * from tblCustomer"
rs.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
|
| |
| |
| |
| |
|
|
| | Dim Connection As New ADODB.Connection
Вы слишком опрометчиво выбрали имя переменной. ИМХО, здесь и ошибка.  | |
| |
| |
| |
|
|
| | Втупую переписала пример из книги Киммела..
Вроде разобралась - все оказалось совсем в другой плоскости. Access требовал сохранить процедуру перед ее запуском. Т.е нажать Ctrl+S, тогда не выдает ошибки. Забавно... такого я раньше не встречала в других компляторах. Да и в 97 access тоже такого не припомню. Может это где в настройках? Типа "Сохранять по умолчанию после компиляции". Никто не встречал? | |
| |
| |
