База в Accese

[voljur]

Скажите пожауста как привязать базу данных мде к одному компютеру-закодировать штобы не смогли воспользоватса моей базой на другом компе или не скачивалась и т.п. Спасибо.

[Teslenko_EA]

Здравствуйте voljur.
Просто "..сказать.." легко,
1. "..не скачивалась.." - способ не возможный.
2. "..к одному компютеру.." - возможно прочитав серийные номера оборудования (BIOS, HDD,...)

но помните - Абсолютной защиты нет, на "непробиваемый" щит всегда найдется "всепробивающий" меч

Евгений.

P.S. - не создавайте более подобных тем - "База в Accese", тема должна отражать содержание вопроса (правила форума).

[voljur]

Сообщение от Teslenko_EA

Здравствуйте voljur.
Просто "..сказать.." легко,
1. "..не скачивалась.." - способ не возможный.
2. "..к одному компютеру.." - возможно прочитав серийные номера оборудования (BIOS, HDD,...)

но помните - Абсолютной защиты нет, на "непробиваемый" щит всегда найдется "всепробивающий" меч

Евгений.

P.S. - не создавайте более подобных тем - "База в Accese", тема должна отражать содержание вопроса (правила форума).

Здравствуйте, но все таки как прочитать серийные номера и привязать базу. Напишите пример пожалуйста. Я понимаю што Абсолютной защиты нет, на "непробиваемый" щит всегда найдется "всепробивающий" меч Спасибо.

[Teslenko_EA]

Здравствуйте voljur.
прочесть серийный номер диска можно с помощью подобного кода:

Sub test()
    MsgBox DriveSerialNumber("C")
End Sub
Function DriveSerialNumber(sLetter$) As String
Dim oFSO As Object, oDrive As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oDrive = oFSO.GetDrive(sLetter)
DriveSerialNumber = oDrive.SerialNumber
Set oFSO = Nothing
Set oDrive = Nothing
End Function

а по поводу "..привязать базу.." это уже Ваша фантазия, это может быть как проверка серийного номера диска прописанного в программе (или реестре) при инсталляции, так и размещение файла "пустышки" с заданным именем где нибудь в системной папке и проверка его наличия при запуске программы:

...
If Len(Dir("c:\windows\YYYYY.YYY")) = 0 Then DoCmd.Quit 
...

но Вы поняли что Абсолютной защиты нет.
Дерзайте, удачи Вам.
Евгений.

[voljur]

Большое спасибо Вам Евгений буду пробовать. Володя.

[voljur]

Здравствуйте Евгений, скажите пожалуйста можете ли вы зделать под заказ базу данных в Accesse...
По недвижимости, с возможностю скачивания информации с сайта на программу..., отбор по районам города, внесение в базу новых номеров телефонов... и другое.
Жду ответа. Спасибо!

From Stilet: Такие вопросы пишут в личку, или в раздел, специально созданный для работы на заказ - Фриланс