GUIDFromString-funktio muuntaa merkkijonoGUID, joka on Tavu-tyypin matriisi.
Syntaksi
GUIDFromString ( stringexpression )
Pakollinen stringexpression-argumentti on merkkijonolauseke, jonka arvo on GUID merkkijonomuodossa.
Huomautuksia
Microsoft Access -tietokantamoduuli tallentaa GUIDit tyypin Byte matriiseina. Microsoft Office Access 2007 ei kuitenkaan voi palauttaa Byte-tietoja ohjain:sta muodossa lomake tai raportti. Jotta voit palauttaa ohjausobjektista GUID- arvon, se on muunnettava merkkijonoksi. Voit muuntaa GUIDin merkkijonoksi StringFromGUID-funktiolla. Jos haluat muuntaa merkkijonon GUID-tunnukseksi, käytä GUIDFromString-funktiota .
Esimerkki kyselystä
|
Lauseke |
Tulokset |
|
SELECT userID,GUIDfromString(userGUID) as GUIDCode FROM GUID_Table; |
Näyttää käyttäjätunnuksen, muuntaa StringExpression(userGUID) GUID-tunnukseksi (tavumatriisi) ja näyttää sarakkeen GUIDCode. Tämä esimerkki toimii vain merkkijonolausekkeessa, joka voidaan laskea GUID-tunnukseksi. |
VBA-esimerkki
Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.
Seuraavassa esimerkissä käytetään GUIDFromString-funktiota merkkijonon muuntamiseen GUID-tunnukseksi. Merkkijono on GUID, joka on tallennettu merkkijonolomakkeeseen replikoidussa Työntekijät-taulukossa. Kenttä on s_GUID piilotettu kenttä, joka on lisätty replikoidun tietokannan jokaiseen replikoituun taulukkoon.
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
