Η συνάρτηση GUIDFromString μετατρέπει ένα συμβολοσειρά σε GUID, το οποίο είναι ένα πίνακας τύπου Byte.
Σύνταξη
GUIDFromString ( παράσταση_συμβολοσειράς )
Το απαιτούμενο όρισμα παράσταση_συμβολοσειράς είναι μια παράσταση συμβολοσειράς που επιστρέφει ένα GUID σε μορφή συμβολοσειράς.
Παρατηρήσεις
Ο μηχανισμός βάσεων δεδομένων της Microsoft Access αποθηκεύει ΤΑ GUID ως πίνακες τύπου Byte. Ωστόσο, Microsoft Office Access 2007 δεν είναι δυνατό να επιστρέψουν δεδομένα Byte από ένα στοιχείο ελέγχου σε μια φόρμα ή αναφορά. Για να λάβετε την τιμή ενός GUID από ένα στοιχείο ελέγχου, πρέπει να το μετατρέψετε σε συμβολοσειρά. Για να μετατρέψετε ένα GUID σε συμβολοσειρά, χρησιμοποιήστε τη συνάρτηση StringFromGUID . Για να μετατρέψετε μια συμβολοσειρά σε GUID, χρησιμοποιήστε τη συνάρτηση GUIDFromString .
Παράδειγμα ερωτήματος
|
Expression |
Αποτελέσματα |
|
SELECT userID,GUIDfromString(userGUID) as GUIDCode FROM GUID_Table; |
Εμφανίζει το "userID", μετατρέπει το StringExpression(userGUID) σε GUID (πίνακας byte) και εμφανίζεται στη στήλη GUIDCode. Αυτό το παράδειγμα λειτουργεί μόνο για μια παράσταση συμβολοσειράς που μπορεί να είναι GUID. |
Παράδειγμα VBA
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Το παρακάτω παράδειγμα χρησιμοποιεί τη συνάρτηση GUIDFromString για να μετατρέψει μια συμβολοσειρά σε GUID. Η συμβολοσειρά είναι ένα GUID που είναι αποθηκευμένο σε μορφή συμβολοσειράς σε έναν πίνακα "Υπάλληλοι" που αναπαράγεται. Το πεδίο, s_GUID, είναι ένα κρυφό πεδίο που προστίθεται σε κάθε πίνακα αναπαραγωγής σε μια βάση δεδομένων από αναπαραγωγή.
Sub CheckGUIDType()
Dim dbsConn As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
' Make a connection to the current database.
Set dbsConn = Application.CurrentProject.Connection
Set rstEmployees = New ADODB.Recordset
rstEmployees.Open "Employees", _
dbsConn, , , adCmdTable
' Print the GUID to the immediate window.
Debug.Print rst!s_GUID
Debug.Print TypeName(rst!s_GUID)
Debug.Print TypeName(GuidFromString(rst!s_GUID))
Set rstEmployees = Nothing
Set dbsConn = Nothing
End Sub
