Tip fuer ne Access Verbindung
21.07.2004 10:32:40
Nike
bin gerade ueber nen recht interessanten Beitrag gestolpert,
wie Access Anwendung ausgebaut werden koennen, dabei ist der folgende
Abschnitt recht interessant, der zeigt, wie man auch eine .mdw mit einbinden
kann...
Wer sich mit Access Berechtigungen usw. rumgeschlagen hat weiss,
was da angesagt ist.
Bye
Nike
Hier der Beitrag:
http://www.aspfree.com/c/a/Microsoft-Access/Upgrading-your-Access-Application-for-a-Multi-user-Environment/
und hier der Code:
Sub Beispiel()
Dim strpassword as String
Dim struser as String
Dim strConnect as String
Dim cnDemo as ADODB.Connection
assume code to retrieve username and password
from a dialog box
Set cnDemo = New ADODB.Connection
strConnect = Data Source= & App.Path & \dbname.mdb;User ID= & _
struser & ;Password= & strpassword & ;Provider=MSDASQL.1
With cnDemo
.Mode = adModeShareDenyNone
.ConnectionString = strConnect
.Properties("JetOLEDB:SystemDatabase")=App.Path & "\Secured.mdw"
.CursorLocation = adUseServer
.Open
End With
End Sub
Anzeige