[dubai.eig]

(27-10-17, 02:42 AM)Rabeea Qbaha كتب :

(27-10-17, 01:48 AM)dubai.eig كتب : السلام عليكم ورحمة الله

عندي كود  وقت الطلب عليه يهنق البرنامج لغاية سحب الداتا من الانترنت

شفت موضوع اخونا استاذ احمد كاتب رد لاحد الاخوه وكاتب الكود

غيرة في الكود ليناسبني 

بس تطلع لي مشكله في الطلب

إقتباس :Column 'state' does not belong to table Callsign.'

وهذا الكود

كود :

Private Sub getinfo()

       System.
       Threading.
       Tasks.
       Task.
       Factory.
       StartNew(
           Sub()



               Dim url As String = String.Format("http://xmldata.qrz.com/xml/current/?s={0};callsign={1}", LKey.Text, calls.Text)
                   Timer2.Stop()

                   Dim ds As New DataSet
                   ds.ReadXml(url)

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

                       state.Text = r("state").Trim().ToString()


                       Lfullname.Text = r("fname")

                       qth.Text = r("addr2")

                       WORKinfo.GRIDSQUARE.Text = r("grid")

                       WORKinfo.Lqslmgr.Text = r("qslmgr")
                       WORKinfo.LAT.Text = r("lat")
                       WORKinfo.LON.Text = r("lon")
                       WORKinfo.Liota.Text = r("iota")

                   End If



           End Sub)
   End Sub

اتمنى يكون الكود صحيح


وثاني شي للتهنيق هل الكود السابق مناسب  Task  

او هذا BackgroundWorker

كود :

 Private Delegate Sub checkstatusDelgetCallsign()
   Private WithEvents bg9 As New System.ComponentModel.BackgroundWorker


   Private Sub checkstatusgetCallsign()

       Dim url As String = String.Format("http://xmldata.qrz.com/xml/current/?s={0};callsign={1}", LKey.Text, calls.Text)
       Timer2.Stop()

       Dim ds As New DataSet
       ds.ReadXml(url)

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

           state.Text = r("state").Trim().ToString()


           Lfullname.Text = r("fname")

           qth.Text = r("addr2")

           WORKinfo.GRIDSQUARE.Text = r("grid")

           WORKinfo.Lqslmgr.Text = r("qslmgr")
           WORKinfo.LAT.Text = r("lat")
           WORKinfo.LON.Text = r("lon")
           WORKinfo.Liota.Text = r("iota")

       End If


   End Sub



   Private Sub bg9_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bg9.DoWork

       Invoke(New checkstatusDelgetCallsign(AddressOf checkstatusgetCallsign))
   End Sub

وشكرا لكم على الافادة

كود :

Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
       ' عليك مناداة المثود الخاصه بالعمل هنا (او تستطيع وضع كامل الكود هنا
   End Sub

   Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
       ' تستطيع اظهار رساله للمستخدم عند انتهاء الكود هنا
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ' وهذا الكود للتشغيل
       BackgroundWorker1.RunWorkerAsync()
   End Sub

لاكن عليك اضافه BackgroundWorker1 من قائمة الادوات 

شكرا لك 

بس مع الاسف الطلب الي يكون في فوم اخر ما اشتغل

كود :

           WORKinfo.GRIDSQUARE.Text = r("grid")

           WORKinfo.Lqslmgr.Text = r("qslmgr")
           WORKinfo.LAT.Text = r("lat")
           WORKinfo.LON.Text = r("lon")
           WORKinfo.Liota.Text = r("iota")

واللي بنفس الفوم اشتغل

كود :

           state.Text = r("state")


           Lfullname.Text = r("fname")

           qth.Text = r("addr2")

ونفس المسج الغلط 

كود :

Column 'state' does not belong to table Callsign.'

وشكرا لك