Auf Wunsch eines meiner Leser hier ein kleines Beispiel, wie man mittels MS-Access und VBA die Anzahl der Likes („Gefällt mir“) einer Seite ermittelt und in der Datenbank speichert. Ausgangspunkt ist folgendes Formular (und eine entsprechende Tabelle):
Und so sieht der VBA-Code aus:
Dim graphURL, accessToken, antwort As String Dim posLike, posKomma, likesAnzahl As Integer ' kann z. B. mit dem Access-Token Manager erstelt werdeb: ' http://frank-it-beratung.com/blog/access-token-manager/ accessToken = "???" ' URL der Seite_ graphURL = "https://graph.facebook.com/Eine.lustige.Testseite" ' Access Token anhängen graphURL = graphURL & "?access_token=" & accessToken ' Request vorbereiten Dim objHttp As Object Set objHttp = CreateObject("MSXML2.ServerXMLHTTP") Call objHttp.Open("GET", graphURL, False) ' Request senden Call objHttp.Send ' Antwort auslesen antwort = objHttp.ResponseText Call MsgBox("Antwort von Facebook (JSON): " & antwort) ' aus JSON-Antwort die Stelle "likes": suchen und Zahl filtern: posLike = InStr(antwort, """likes"":") posKomma = InStr(posLike, antwort, ",") likesAnzahl = Mid(antwort, posLike + 8, posKomma - posLike - 8) ' Likes ausgeben Call MsgBox("Anzahl der Likes: " & likesAnzahl) ' ins Formular füllen: Forms("Follower")!Follower = likesAnzahl
Weitere Beispiele zur Facebook-API mit Access habe ich in älteren Posts zu VBA beschrieben.
P.S.
Probleme? Fragen? Anregungen? Ich helfe jederzeit und gerne – einfach einen Kommentar oder Mail schreiben, die Antwort kommt schnellstmöglich. Unternehmen, die Unterstützung, Beratung oder Schulung bei der API- oder Webprogrammierung, der Social-Media-Entwicklung oder dem Social-Media-Management benötigen finden zudem entsprechende Angebote meiner Firma auf der Website www.Frank-IT-Beratung.de