{"id":55000774,"date":"2011-06-01T00:00:00","date_gmt":"2020-05-22T22:02:45","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=774"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Twittern_mit_Access_Update","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Twittern_mit_Access_Update\/","title":{"rendered":"Twittern mit Access, Update"},"content":{"rendered":"

\"\"<\/p>\n

Der Beitrag Twittern mit Access (www.access-im-unternehmen.de\/715) hat gezeigt, wie Sie von einer Access-Datenbank aus twittern können. Später hat Twitter die Authentifizierung sicherer gemacht und somit auch die Authentifizierungsmethode geändert. Diese heißt nun OAuth und die Implementierung erfordert einigen Mehraufwand. Es gibt jedoch eine Alternative, um diesen Aufwand zu verhindern.<\/b><\/p>\n

Die Lösung liegt in der Verwendung eines Internet-Services, dem Sie Ihre Zugangsdaten für Twitter übergeben und der die Authentifizierung für Sie übernimmt. Sie können dann unter VBA fast genauso twittern wie Sie es mit der Lösung aus dem oben erwähnten Beitrag erledigt haben. Den Service finden Sie im Internet unter supertweet.net<\/b>. Es gibt sicher noch weitere Anbieter, aber wir beschreiben hier exemplarisch die Vorgehensweise mit diesem Service.<\/p>\n

Twitter-Account registrieren<\/b><\/p>\n

Als erstes registrieren Sie Ihre Zugangsdaten bei supertweet.net<\/b>, indem Sie auf den entsprechenden Link auf der Startseite klicken (s. Bild 3). Wenn Sie diesen Eintrag entfernen, entziehen Sie supertweet.net <\/b>die Möglichkeit, auf Ihren Account zuzugreifen. Nun legen Sie nur noch ein Kennwort für den Zugriff auf Twitter über den Proxy von supertweet.net <\/b>an. Dazu wechsen Sie zur Home<\/b>-Seite des Angebots. Dort finden Sie unter Access Credentials <\/b>eine Tabelle, die bereits Ihren Twitter-Benutzernamen enthält. In der letzten Spalte mit der Überschrift Status <\/b>klicken Sie auf den Activate<\/b>-Link und geben im folgenden Schritt das Kennwort ein. Sinnvollerweise verwenden Sie hier ein anderes Kennwort als das, was Sie für den Zugriff auf Twitter einsetzen.<\/p>\n

\"pic001.png\"<\/p>\n

Bild 1: Registrierung bei supertweet.net<\/span><\/b><\/p>\n

\"pic002.png\"<\/p>\n

Bild 2: Anmeldung bei Twitter zur Freischaltung des Zugriffs über supertweet.net<\/span><\/b><\/p>\n

\"pic003.png\"<\/p>\n

Bild 3: Anwendungen eines Twitter-Accounts<\/span><\/b><\/p>\n

<\/p>\n

Einschränkungen<\/b><\/p>\n

supertweet.net <\/b>bietet diesen Dienst kostenlos an. Sie sollten ihn daher nicht für eine große Anzahl an Zugriffen verwenden. Außerdem finanziert sich dieser Dienst aus Spenden – sollten Sie ihn nutzen, können Sie sich auf der Webseite erkenntlich zeigen. Methoden, bei deren Einsatz große Datenmengen transferiert werden, können offensichtlich nur mit entsprechenden zeitlichen Abständen ausgelöst werden.<\/p>\n

Anpassung der Beispieldatenbank<\/b><\/p>\n

Damit haben Sie die Voraussetzungen geschaffen, ohne großen Aufwand weiterhin mit der Beispieldatenbank aus dem Beitrag Twittern mit Access <\/b>(www.access-im-unternehmen.de\/715<\/b>) Tweets zu senden und weitere Aktionen wie das Löschen oder Lesen von Tweets durchzuführen.<\/p>\n

änderungen brauchen Sie nur im Modul mdlTwitter <\/b>vorzunehmen. Hier legen Sie zunächst die Webadresse des Anbieters in Form einer Konstanten fest:<\/p>\n

Const cURL As String = "http:\/\/api.supertweet.net"<\/pre>\n
Auch die drei bereits enthaltenen Funktionen für den Zugriff auf Twitter passen Sie entsprechend an. Einen neuen Status sendet beispielsweise die Funktion NewTweet<\/b>. Diese erwartet den Text des Status, den Benutzernamen und das Kennwort. Beachten Sie, dass Sie hier das Kennwort für supertweet.net <\/b>angeben und nicht das für Twitter. Die Funktion sieht nun wie in Listing 1<\/a><\/span> aus. Sie benutzt das XMLHTTP-Objekt der XML-Bibliothek zum Absenden der Statusmeldung, also nicht mehr das in der vorherigen Version eingesetzte WinHttpRequest<\/b>-Objekt. Somit können Sie auch den Verweis auf die Bibliothek Microsoft WinHTTP Services, version 5.0 <\/b>entfernen.<\/p>\n
Listing 1: Absenden einer neuen Statusmeldung<\/p>\n
Public Function NewTweet(strUpdate As String, strUsername As String, strPassword As String) As Boolean\r\n    Dim objXMLHTTP As MSXML2.XMLHTTP\r\n    Dim strURL As String\r\n    Set objXMLHTTP = New MSXML2.XMLHTTP\r\n    strURL = cURL & "\/1\/statuses\/update.xml"\r\n    With objXMLHTTP\r\n    .Open "POST", strURL, False, strUsername, strPassword\r\n    .setRequestHeader "Content-Type", "application\/x-www-form-urlencoded "\r\n    .Send "status=" & strUpdate\r\n    If .status = 200 Then\r\n        NewTweet = True\r\n    Else\r\n        MsgBox "Aufruf gescheitert:" & vbCrLf & .status & " " & .statusText\r\n    End If\r\n    End With\r\nEnd Function<\/pre>\n
Sie benötigen drei Methoden von XMLHTTP<\/b>, um die Anfrage zu senden:<\/p>\n