|
potřebuji udělat program pro načítání datábaze ISIR z justice.cz stáhl jsem si VisualBasic Express. Dosud jsem dělal jen jednodušší programy ve vb6. v debug módu po najetí na X vidím, že obsahuje data, ale nevím, jak a do čeho je načíst, abych s nimi mohl dále pracovat (ukládat do MySQL). Vždy mám chybu, že nelze data převést (na text, do pole, ...). Jak tedy lze s tímto xml výsledkem pracovat? Nemá někdo náhodou už hotový program na ten ISIR? Lze tento program - web service - vytvořit i ve VB6(learning edition)? Děkuji za pomoc.
Imports System.Xml
Imports System.IO
Imports System.Collections.Generic
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim X
Dim MyService As cz.justice.isir.IsirPub001 = New _
cz.justice.isir.IsirPub001()
Dim MyResult As cz.justice.isir.getIsirPub0012 = New cz.justice.isir.getIsirPub0012()
d = Now
MyResult.long_1 = 3000
MyService.Timeout = -1
X = MyService.getIsirPub0012(MyResult)
Me.BackColor = Color.AliceBlue
End Sub
End Class
|