önceden kağıda yazdırıyorduk şimdi sisteme girmek gerekiyor
dediğin gibi java ile Access birleştirilip yapılabilir mi acaba harika olur.
dediğin gibi java ile Access birleştirilip yapılabilir mi acaba harika olur.
Private Sub Komut2_Click()
Dim XMLHttp As New MSXML2.XMLHttp
Dim s As String
Dim url As String
Dim user As String
Dim pass As String
Dim servis As String
url = "https://servis.turkiye.gov.tr/services/g2g/kdgm/test/uetdsesya?wsdl"
user = "999999"
pass = "999999testtest"
servis = "aracMuayeneSorgula"
s = ""
s = s & "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:uet=""http://uetds.unetws.udhb.gov.tr/"">"
s = s & " <soapenv:Header/>"
s = s & " <soapenv:Body>"
s = s & " <uet:" & servis & ">"
s = s & " <wsuser>"
s = s & " <kullaniciAdi>" & user & "</kullaniciAdi>"
s = s & " <sifre>" & pass & "</sifre>"
s = s & " </wsuser>"
s = s & " <plaka>34TEST123</plaka>"
s = s & " </uet:" & servis & ">"
s = s & " </soapenv:Body>"
s = s & "</soapenv:Envelope>"
XMLHttp.Open "POST", url, False
XMLHttp.Send s
MsgBox XMLHttp.responseText
Debug.Print XMLHttp.responseText
End Sub