27-10-17, 04:28 PM
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
