Evo kako se jednostavno koristi:
Private Sub Command1_Click()
Dim Spy As NBSSpy.Spy
Set Spy = New NBSSpy.Spy
If Spy.GetInfo("106817748") Then
Text1.Text = "Naziv: " & Spy.dataNaziv & vbCrLf
Text1.Text = Text1.Text & "Adresa: " & Spy.dataAdresa & vbCrLf
Text1.Text = Text1.Text & "Mesto: " & Spy.dataMesto & vbCrLf
Text1.Text = Text1.Text & "Maticni broj: " & Spy.dataMBR & vbCrLf
Text1.Text = Text1.Text & "Ukupan iznos: " & Format(Spy.dataUkupanIznos, "###,##0.00") & vbCrLf
Text1.Text = Text1.Text & "Ukupno dana: " & Format(Spy.dataUkupnoDana, "###,###") & vbCrLf
Text1.Text = Text1.Text & "Ukupan broj blokada: " & Format(Spy.dataBrojBlokada, "###,###") & vbCrLf
Text1.Text = Text1.Text & "Blokiran: " & IIf(Spy.dataBlokiran, "DA", "NE") & vbCrLf
Else
MsgBox "Greska! " & Spy.noDataReturnInfo & Spy.sysErrorDescription
End If
Set Spy = Nothing
End Sub
Kome je komplikovano da se pati sa obimnim kodom koji je obajvljen u prethodnim postovima, moze da uziva :)
Ugradjena je i obrada greske, kontrola PIB-a i sve što je već potrebno.
Može se koristiti u Access-u, Excel-u, VB6, VBA i VB script varijantama.
Napomena: Da ne bi neko "gušio" NBS server stavio sam pauzu od 3 sekunde uz svaki poziv...
Pozdrav svima!