+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Xml Web Servisi Soap Sorgu İle Veri Transferi (/konu-xml-web-servisi-soap-sorgu-ile-veri-transferi.html)
Xml Web Servisi Soap Sorgu İle Veri Transferi - mozuer - 04/11/2024
Arkadaşlar,
EPDK üzerinden fiyatları Vba ile tabloya almak istiyorum.
Aşağıdaki link EPDK tarafından paylaşılan linktir.
http://lisansws.epdk.gov.tr/services/bildirimPetrol8FirmaBulten?wsdl
Aşağıdaki linkte de örnek kılavuz paylaşılmış.
https://www.epdk.gov.tr/Detay/DownloadDocument?id=+r7hLh9KdqE=
Eklerde de textleri paylaşıyorum.
Herhangi bir tarihe göre veriler Vba ile alınabilir mi?
RE: Xml Web Servisi Soap Sorgu İle Veri Transferi - atoykan - 05/11/2024
Soap bağlantıları TLS1.2 kullanır, bilgisayarınızın bunu desteklediğinden ve açık olduğundan emin olmanız ve registryde TLS1.2 kaydı için Client ve Server anahtarlarının mevcut ve Enabled olması gerekir. Soap sorgusu kulllanılan web servislerinde genel olarak isteğin doğrudan tarayıcı veya belirli bir istemci dışında yapılması engellenir. Yoğunluk nedeni ile servisi kontrol etme ve kodları inceleme fırsatım olmadı ancak bu nedenle Vba ile alma ihtimaliniz olmayabilir. Müsait bir zamanda bakmaya çalışacağım ama hemen çözüm geliştirmenize yardımcı olmam şu an mümkün değil; diğer hocalarımızdan konuya hakim olanlar da yardımcı olmaya çalışabilirler.
RE: Xml Web Servisi Soap Sorgu İle Veri Transferi - mozuer - 05/11/2024
Yanıtınız için teşekkür ederim...
RE: Xml Web Servisi Soap Sorgu İle Veri Transferi - hedefkaya - 05/11/2024
Mssql kullaanıyorsanız
Procedürle xml veryi tabloya alıp tabloda isteğiniz işlemleri yapabilirsiniz
RE: Xml Web Servisi Soap Sorgu İle Veri Transferi - atoykan - 15/11/2024
On Error GoTo ErrorHandler
Dim xmlHttp As Object, xmlDoc As Object, xmlNodes As Object, node As Object
Dim soapReq As String, soapResp As String
Dim db As DAO.Database
Dim tbl As DAO.Recordset
Dim yil As String, ay As String, YakitTipi As String
yil = Me.epSenesi.Value
ay = Me.epAyi.Value
YakitTipi = "Motorin"
Set db = CurrentDb
Set tbl = db.OpenRecordset("TbEpdk", dbOpenDynaset)
'SOAP isteğini tanımlama
Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
soapReq = _
"<?xml version=""1.0"" encoding=""utf-8""?>" & _
"<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:gen=""http://genel.service.ws.epvys.g222.tubitak.gov.tr/"">" & _
" <soapenv:Header/>" & _
" <soapenv:Body>" & _
" <gen:genelSorgu>" & _
" <sorguNo>71</sorguNo>" & _
" <parametreler>" & Format(yil, "yyyy") & "/" & Format(ay, "mm") & "</parametreler>" & _
" </gen:genelSorgu>" & _
" </soapenv:Body>" & _
"</soapenv:Envelope>"
'SOAP isteğini gönderme
With xmlHttp
.Open "POST", "https://lisansws.epdk.org.tr/services/bildirimPetrol8FirmaBulten.bildirimPetrol8FirmaBultenHttpSoap11Endpoint", False
.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
.setRequestHeader "SOAPAction", "genelSorgu"
.Send soapReq
End With
soapResp = xmlHttp.responseText
Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
xmlDoc.LoadXML soapResp
xmlDoc.async = False
Set xmlNodes = xmlDoc.getElementsByTagName("PetrolPiyasasiEnYuksekHacimliSekizFirmaninAkaryakitFiyatlari")
For Each node In xmlNodes
If node.SelectSingleNode("YakitTipi").Text = YakitTipi Then
tbl.AddNew
tbl!Fiyat = node.SelectSingleNode("Fiyat").Text
tbl!Senesi = Format(yil, "yyyy")
tbl!Ayi = Format(ay, "mm")
tbl.Update
End If
Next node
'MsgBox "Veriler başarıyla alındı ve tabloya kaydedildi.", vbInformation
tbl.Close
Set tbl = Nothing
Set db = Nothing
Set xmlHttp = Nothing
Set xmlDoc = Nothing
Exit Sub
ErrorHandler:
MsgBox "Hata oluştu: " & Err.Description, vbCritical