Alleen code om te kunnen connecten met DB,
verder geen idee hoe het moet met het beheren van users etc.
Maar hier een stukje code
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Dim rsFuncties As New ADODB.Recordset
Dim rsPersoon As New ADODB.Recordset
Dim rsPersoonsfuncties As New ADODB.Recordset
Dim conn As New ADODB.Connection
Private Sub Form_Load()
Dim sDB_PATH As String
Dim sDB_FILE As String
Dim sDB_USER As String
Dim sDB_PASSWORD As String
sDB_PATH = "d:\database\"
sDB_FILE = "d:\database\persoon.mdb"
sDB_USER = "Admin"
sDB_PASSWORD = "xxxx"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDB_FILE & _
";Mode=Share Deny None;Persist Security Info=False;Jet OLEDB:System database=" & sDB_PATH & "system.mdw;Jet OLEDB:Database Password=labas;User Id=" & sDB_USER & ";Password=" & sDB_PASSWORD & ";"
' getRsFromSQL is eigen functie die recordset ophaald adhv query
Set rsFuncties = getRsFromSQL("SELECT * FROM functies")
Set rsPersoon = getRsFromSQL("SELECT * FROM persoon")
Set rsPersoonsfuncties = getRsFromSQL("SELECT * FROM persoonsfunctie")
End Sub |
Connectie werkt verder allemaal goed... ook andere gebruikers dan Admin, maar ik wil deze kunnen beheren. Ik kan nergens een begin vinden..
[
Voor 11% gewijzigd door
Verwijderd op 10-09-2003 11:57
]