Доступ к БД по сети

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
Jеt
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 28.09.2003 (Вс) 15:45

Доступ к БД по сети

Сообщение Jеt » 28.09.2003 (Вс) 15:52

Ситуация: есть ученические компьютеры, на которых работает программа тестирования. Она должна сохранять результат в БД (Excel формат), хранящуюся на администраторском компе (сервере). Как это сделать? Естественно, обычный доступ к базе данных по сети закрыт пользователю Ученик, но открыт пользователю Администратор. Тесты работают из-под пользователя ученик.

Спасибо всем, кто сможет помочь.

val
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 168
Зарегистрирован: 14.11.2002 (Чт) 1:14

Сообщение val » 28.09.2003 (Вс) 20:18

А в чём проблема та? Подсоединяйся к базе да и сохраняй свои ответы. Или я чего то недопонял

Jеt
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 28.09.2003 (Вс) 15:45

Сообщение Jеt » 29.09.2003 (Пн) 6:24

все верно. просто я не могу написать код для доступа по локалке :( т.е. с именем пользователя и паролем. как это сделать? помогите начинающему! (в смысле дайте пример кода)

val
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 168
Зарегистрирован: 14.11.2002 (Чт) 1:14

Сообщение val » 29.09.2003 (Пн) 6:52

Вот тебе ответ от Microsoft :wink:


Secured Microsoft Jet Databases
Microsoft Jet databases can be secured in one of two ways: with share-level security or with user-level security. With share-level security the database is secured with a password. Anyone attempting to open the database must specify the correct database password. With user-level security each user is assigned a user name and password to open the database. Microsoft Jet uses a separate workgroup information file, typically named System.mdw, to store user information and passwords.

Share-level (password-protected) databases
The following listings demonstrate how to open a Microsoft Jet database that has been secured at the share level.

DAO

Sub DAOOpenDBPasswordDatabase()
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase _
(".\NorthWind.mdb", False, False, _
";pwd=password")
db.Close
End Sub

ADO

Sub ADOOpenDBPasswordDatabase()
Dim cnn As New ADODB.Connection
cnn.Open "Provider=" & _
"Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=.\NorthWind.mdb;" & _
"Jet OLEDB:Database Password=" & _
"password;"
cnn.Close
End Sub

In DAO the Connect parameter of the OpenDatabase method sets the database password when opening a database. With ADO the Microsoft Jet Provider connection property Jet OLEDB:Database Password sets the password instead.

Opening a database with user-level security
This next listings demonstrate how to open a database that is secured at the user level using a workgroup information file named Sysdb.mdw.

DAO

Sub DAOOpenSecuredDatabase()
Dim wks As DAO.Workspace
Dim db As DAO.Database

DBEngine.SystemDB = _
"C:\Program Files\Microsoft Office" _
& "\Office\SYSTEM.MDW"
Set wks = DBEngine.CreateWorkspace _
("", "Admin", "")
Set db = wks.OpenDatabase _
(".\NorthWind.mdb")
db.Close
wks.Close

End Sub

ADO

Sub ADOOpenSecuredDatabase()
Dim cnn As New ADODB.Connection
cnn.Provider = _
"Microsoft.Jet.OLEDB.4.0;"
cnn.Properties _
("Jet OLEDB:System database") = _
"C:\Program Files\Microsoft Office" _
& "\Office\SYSTEM.MDW"
cnn.Open _
"Data Source=.\NorthWind.mdb;" & _
"User Id=Admin;Password=;"

cnn.Close
End Sub

In ADO a Microsoft Jet provider-specific connection property, Jet OLEDB:System database, specifies the system database. This is equivalent to setting the DBEngine object's SystemDB property before opening a database using DAO.

Notice that in this example the Provider property is set as a property of the Connection object rather than as part of the ConnectionString argument to the Open method. That is because before you can reference provider-specific properties from the Connection object's Properties collection, it is necessary to indicate which provider you are using. If the first line of code had been omitted, error 3265 (adErrItemNotFound), "ADO could not find the object in the collection corresponding to the name or ordinal reference requested by the application," would have occurred when trying to set the value for the Jet OLEDB:System database property.

Jеt
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 28.09.2003 (Вс) 15:45

Сообщение Jеt » 30.09.2003 (Вт) 5:18

Спасибо!


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 216

    TopList