Office: (Office 2010) SOAP API in Access

magic1708 · 26. August 2014

ok, stimmt.

Da kommt ja nur mist bei raus.

Code:

Public Function SetCSV()

Dim strResp As Variant
Dim oPPWS As SoapClient30

Set oPPWS = New SoapClient30

oPPWS.MSSoapInit wsdl_url

strResp = oPPWS.groupCSVImport(ApiKey, 506790, csv_Data, "Insert")

MsgBox oPPWS.Detail

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe es mal so umgeschrieben.

Das ergebniss bleibt aber gleich :-(

stendate · 7. Januar 2021

von magic1708

Das ergebniss bleibt aber gleich :-(
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und wenn du mal nur versuchst eine Testgruppe anzuelgen?

Code:

strResp = oPPWS.groupAdd(ApiKey, "Testgruppe 4711")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich würde vermuten dass das genau einmal funktioniert und dir bei jedem weiteren Versuch vllt. mitteilt, dass die Gruppe bereits existiert.

Es würde aber zumindest zeigen dass da beim Server was angkommt...

magic1708 · 26. August 2014

Hallo sowas in der richtung hatte ich schon mal probiert.

Ich hatte dazuz aber
Code:

clientGetDetails(ApiKey)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

verwendet.

Deinen Tipp habe ich eingebaut kommt aber wieder die gleiche Meldung.

Ich hab das gefühl es liegt am Proxy Server.

Das habe ich aber auch schon integriert.

Code:

oPPWS.ConnectorProperty("ProxyServer") = "server:3128"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maikek · 26. August 2014

Moin,
habe gerade beim Herumgucken diesen Beitrag von Blackpit aus dem Office-Lösung-Forum gesehen, der sich auf diesen Thread bezieht und darum bittet, dass jemand seinen Vorschlag hier postet, was ich hiermit tue:
Code:

Sub groupGetListSOAP()
On Error GoTo SOAPError
Dim URL As String, ret As Object, service As Object, myAPIKey As String
Dim Item, ListID As String, msg As String

URL = "http://api.cleverreach.com/soap/interface_v5.1.php?wsdl"
myAPIKey = "xxxxxxxx7718759dc57508ea59a8-2"
Set service = New SoapClient30
service.MSSoapInit (URL)
Set ret = service.groupGetList(" & myAPIKey & ")
For Each Item In ret
msg = msg & Item.BaseName & " = " & Item.nodetypedValue & vbCrLf
Next
MsgBox msg
Exit Sub
SOAPError:
If service.FaultString "" Then
MsgBox "Fehler: " & service.FaultString & " " & service.detail
Else
MsgBox "Fehler: " & Err.Description
End If
Err.Clear
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

magic1708 · 26. August 2014

Oh wie schön.

Vielen lieben Dank an den Helfer aus dem anderen Forum ! :-)

Aber auch an euch vielen lieben Dank.

Auf diesem System hier bekomme ich es einfach nicht zum laufen. Ich muss es mal in einem anderen probieren. Ich befürchte das hier die Firewall nen strich durch die Rechnung macht. :-(

Ich habe trotz des geilen Codes immer noch die gleiche Fehlermeldung.

Ich denke das der gute Helfer den Code mal getestet hat.

Liebe Grüße

magic1708 · 26. August 2014

Hallo,

hier maleins Rückmeldung.

habe es nun mit dem o.g. Beispiel auf einem anderen System versucht und siehe da. Es geht !

Manno mann.....

Ich lasse den Thread aber mal auf... ggf. Habe ich bestimmt noch mal ne Frage.

magic1708 · 26. August 2014

Hallo noch mal,

wie kann ich den aus dem Code hier einen einzelnen Wert auslesen?
Code:

Set service = New SoapClient30
service.MSSoapInit (wsdl_url)
Set ret = service.groupCSVImport(ApiKey, 506790, CSV, "insert")
For Each Item In ret
msg = msg & Item.BaseName & " = " & Item.nodetypedValue & vbCrLf

Next
MsgBox msg

Exit Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Return übergibt einen Status mit dem Wert Success.

Darauf würde ich gerne meinen Code aufbauen.

KAnn ich da irgendwie Item.BaseName("status") = Success oder sowas verwenden?

magic1708 · 26. August 2014

Ich habe es mit Instr gemacht?

Ist das ok?

maikek · 26. August 2014

Bin nicht im Thema, aber geht es vielleicht so:
Code:

For Each Item In ret
If Item.BaseName = "Status" then
If Item.nodetypedValue = "Success"
'mach was
Else
'mach was anderes
End if
End if
Next item
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

stendate · 7. Januar 2021

von magic1708

Hallo noch mal,
wie kann ich den aus dem Code hier einen einzelnen Wert auslesen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mach dir mal einen Debug-Punkt und füge mittels rechtsklick auf Item einen Überwachungsausdruck hinzu.

Dort siehst du dann welche Methoden und Eigenschaften das Objekt hat und ob du da was brauchbares zum Verwenden findest.

magic1708 · 28. August 2014

Hallo,

wenn ich die Api ändere so das ich die Daten aus der Api bekomme. Sprich genau umgedreht.

Wie muss ich das Skript bzw den Recodset bauen damit ich die Daten in eine beliebige Tabelle bekomme?

Code:

Set ret = service.receiverGetPage(ApiKey, 506724, "all")
For Each Item In ret

msg = msg & Item.BaseName & " = " & Item.nodetypedValue & vbCrLf

Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die daten kommen in dem Detail des Basename "Data"

magic1708 · 28. August 2014

Ich habe mal nen RS eingaubt.

Er schreibt logischer Weise in die Tabelle. ABER den DATA in einem String...

Code:

Set ret = service.receiverGetPage(ApiKey, 506724, "all")
For Each Item In ret

Dim db As DAO.Database, rs As DAO.Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_Rückgabe", dbOpenDynaset, dbSeeChanges)
rs.AddNew
rs!BaseName = Item.BaseName
rs!Detail = Item.nodetypedValue
rs.Update
rs.Close
Set rs = Nothing

' msg = msg & Item.BaseName & " = " & Item.nodetypedValue & vbCrLf

Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie kann ich den den auf DATA Filtern und nur diese Inhalte in eine Tabelle packen.....

Office: (Office 2010) SOAP API in Access

SOAP API in Access

SOAP API in Access

SOAP API in Access

SOAP API in Access

SOAP API in Access - Similar Threads - SOAP API Access

Seit O365 Problem mit Callback-Funktion

API Excel Zugriff (via Daten abrufen)

SOAP und VBA

SOAP Aufruf

ACCESS/VBA SOAP WebService

MS Project - API Aufrufe

Graph Api Berechtigungs Probleme beim Abrufen der Emailadressen aller Nutzer