1 Κάντε διπλό κλικ στο αρχείο MDB . Φορτία της Microsoft Access και η βάση δεδομένων ανοίγει αυτόματα . Εισάγετε το όνομα χρήστη και τον κωδικό σας , αν προηγουμένως προστατεύεται με κωδικό πρόσβασης στο αρχείο . 2
Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " καρτέλα . Κάντε κλικ στο κουμπί "Εισαγωγή" και στη συνέχεια επιλέξτε " Module" από το αναδυόμενο μενού . Ανοίγει ένα νέο παράθυρο όπου μπορείτε να εισάγετε το σενάριο της Microsoft
εικόνων 3
αντιγραφή και επικόλληση του παρακάτω script στο ανοιχτό παράθυρο : .
Sub ShowUserRosterMultipleUsers ( )
Δημ. con As New ADODB.Connection
Dim αρχεία As New ADODB.Recordset
Dim i , j Όπως Long
Σετ con = CurrentProject.Connection
Set αρχεία = con.OpenSchema ( adSchemaProviderSpecific , , " { 947bb102 - 5d43 - 11d1 - bdbf - 00c04fb92675 } " )
Debug.Print records.Fields ( 0 ) . Name "," , records.Fields ( 1 ) . Name "," , records.Fields ( 2 ) . Επωνυμία , records.Fields ( 3 ) . Όνομα
Ενώ δεν records.EOF
Debug.Print records.Fields ( 0 ) , records.Fields ( 1 ) , records.Fields ( 2 ) , records.Fields ( 3 )
records.MoveNext
Wend
Sub End
4
Κάντε κλικ στο κουμπί "Αποθήκευση" . Στο αναδυόμενο παράθυρο διαλόγου ζητώντας σας για το όνομα , τον τύπο " ShowUsers " και κάντε κλικ στο "OK". Το παράθυρο διαλόγου κλείνει .
5
Πατήστε το " Ctrl + G" για να ανοίξετε ένα παράθυρο εντολών της Access. Πληκτρολογήστε " ShowUserRosterMultipleUsers " και πατήστε το πλήκτρο " Enter". Το σενάριο εκτελείται και σας δείχνει τους χρήστες συνδεδεμένοι στο στη βάση δεδομένων .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα