منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله

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

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

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

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

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

وهذا الكود



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


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

او هذا BackgroundWorker




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

(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

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

(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 من قائمة الادوات 

شكرا لك 

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



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



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




وشكرا لك

(27-10-17, 04:28 PM)a.ahmed كتب : [ -> ]

PHP كود :

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

Check [Callsign] table has columns: state, fname, addr2, grid, qslmgr, lat, lon, iota 


PHP كود :

Public Class Form1

    Private WORKinfo As New WORKinfo

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        WORKinfo.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        getinfo()
    End Sub


    Private Sub getinfo()
        Threading.
        Tasks.
        Task.
        Factory.
        StartNew(
            Sub()
                Try

                    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.Invoke(Sub() state.Text = r("state").Trim().ToString())
                        Lfullname.Invoke(Sub() Lfullname.Text = r("fname"))
                        qth.Invoke(Sub() qth.Text = r("addr2"))

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

                    End If

                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End Sub)
    End Sub

End Class 


جميل بارك الله فيك

تسلم ايدك


بس المشكله يوم يبحث عن اسم معين
في ملف xml



اذا طلع شي فاضي 

مثلا



فاضي يطلع لي مشكله هذا المسج



واذا كل تيبل في شي يشغل الكود بشكل ممتاز



حاولت اكتب هذا الكزد



بعد نفس المشكله



بارك الله فيك

(27-10-17, 07:36 PM)a.ahmed كتب : [ -> ]

PHP كود :

Private Sub getinfo()
    Threading.
    Tasks.
    Task.
    Factory.
    StartNew(
        Sub()
            Try

                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.Contains("Callsign") Then
                    Dim dt As DataTable = ds.Tables("Callsign")

                    If dt.Rows.Count > 0 Then
                        Dim r As DataRow = dt(0)

                        If dt.Columns.Contains("state") Then state.Invoke(Sub() state.Text = r("state").Trim().ToString())
                        If dt.Columns.Contains("fname") Then Lfullname.Invoke(Sub() Lfullname.Text = r("fname"))
                        If dt.Columns.Contains("addr2") Then qth.Invoke(Sub() qth.Text = r("addr2"))

                        If dt.Columns.Contains("grid") Then WORKinfo.Invoke(Sub() WORKinfo.GRIDSQUARE.Text = r("grid"))
                        If dt.Columns.Contains("qslmgr") Then WORKinfo.Invoke(Sub() WORKinfo.Lqslmgr.Text = r("qslmgr"))
                        If dt.Columns.Contains("lat") Then WORKinfo.Invoke(Sub() WORKinfo.LAT.Text = r("lat"))
                        If dt.Columns.Contains("lon") Then WORKinfo.Invoke(Sub() WORKinfo.LON.Text = r("lon"))
                        If dt.Columns.Contains("iota") Then WORKinfo.Invoke(Sub() WORKinfo.Liota.Text = r("iota"))

                    End If

                End If

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub)
End Sub 


تسلم ايدك استاذي الكريم

تحيه واحترام لك