Что нового

Получить доступ к базе данных на другом компьютере

vitaliy4us

Новичок
Сообщения
158
Репутация
4
На виртуальной машине, Ip, login и password которой известны и есть доступ по rdp, в папке Program files находится база данных access к которой надо получить доступ, используя библиотеку Access.au3. На хостовой машине есть такая же база и доступ к ней организован при помощи функции
Код:
$o_DataBase = _AccessOpen(@ProgramFilesDir & "\MyFolder\DB\MyDB.mdb"
. Как сделать то же самое для виртуалки?
 

ildar

Осваивающий
Сообщения
252
Репутация
29
Если имеется ввиду подключение базы данных с другой машины, то подключить сетевой диск с помощью
Код:
DriveMapAdd
 
Автор
V

vitaliy4us

Новичок
Сообщения
158
Репутация
4
Все дело в том, что к папке нет доступа. Допустим, я расшариваю папку с базой данных и получаю ее как \\111.222.3.444\DB. Да, теперь ее можно представить и как виртуальный диск X:. Но доступа к базе данных нет. При попытке использовать функцию
Код:
_AccessOpen("\\111.222.3.444\DB\MyDatabase.mdb")
или
 _AccessOpen("X:\MyDatabase.mdb")

получаю сообщение:
Код:
$o_doc = $o_object.OpenDatabase($s_FilePath, $Options, $ReadOnly, $Connect)
$o_doc = $o_object.OpenDatabase($s_FilePath, $Options, $ReadOnly, $Connect)^ ERROR
 

ildar

Осваивающий
Сообщения
252
Репутация
29
login и password не локального администратора?
 
Автор
V

vitaliy4us

Новичок
Сообщения
158
Репутация
4
ildar сказал(а):
login и password не локального администратора?
Нет, но с логином и паролем
Код:
DriveMapAdd ("x:", "\\111.222.3.444\DB", 0, "SERVER\login", "password")

диск не создается, хотя при удаленном доступе используются именно эти данные, кроме того, функция
Код:
ShellExecute ("\\111.222.3.444\DB\TestFile.txt")

для файла из той же папки работает и без логина и пароля


Добавлено:
Сообщение автоматически объединено:

А вот сейчас попробовал создать из той же папки объект Excel и тоже не получается:
Код:
$result = _ExcelBookOpen("\\111.222.3.44\DB\TestFile.xls")
If @error = 1 Then
    MsgBox(0, "Error!", "Unable to Create the Excel Object")
    Exit
ElseIf @error = 2 Then
    MsgBox(0, "Error!", "File does not exist")
    Exit
EndIf

Выдается сообщение "Unable to Create the Excel Object"
 

ildar

Осваивающий
Сообщения
252
Репутация
29
Код:
DriveMapAdd ("x:", "\\111.222.3.444\c$", 0, "SERVER\login", "password")
это мы подключаем диск с: другого компа.
А далее
Код:
$o_DataBase = _AccessOpen("x:\...полный путь.....\MyDB.mdb"
 
Верх