[dubai.eig]

(20-05-17, 12:08 AM)alma2 كتب :

كود :

       Dim url As String = String.Format("https://www.hamqth.com/xml.php?id={0}&callsign={1} &prg=BKLOG", Label17.Text, calls.Text)

       Dim ds As New DataSet
       ds.ReadXml(url)

       If ds.Tables("Callsign").Rows.Count > 0 Then
           Dim r As DataRow = ds.Tables("Callsign")(0)

           Lfullname.Text = r("adr_name")
           state.Text = r("us_state")
           qth.Text = r("qth")
           WORKinfo.GRIDSQUARE.Text = r("grid")
           WORKinfo.Lqslmgr.Text = r("qsl_via")
           WORKinfo.LAT.Text = r("latitude")
           WORKinfo.LAT.Text = r("longitude")
       End If

راجع الاسماء مثل adr_name وus_state الى آخرها التي في الكود فهي ليست مطابقة لملف xml

فالجدول Callsign
لديه الأعمدة التالية
call
dxcc
name
qth
address
city
zip
license
continent
country
state
locator
latitude
longitude
website
itu
cq
eqsl
lotw
bqsl
mqsl
utf8
qslpic
prefix

جميل جدا تم القراءاه وكل شي تمام


بارك الله فيك

شكرا على مساعدتك وفي ميزان اعمالك

شكرا من جديد