The console code is working just fine, but it isn't putting in the text
boxes.
P.S I'm using a while loop, but I'm only expecting one answer but I
haven't found a good way to process one record.
Private Sub btnFindByISBN_C lick(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles btnFindByISBN.C lick
Dim strSearchString As String
strSearchString = "http://isbndb.com/api/books.xml?acces s_key="
& "CYGCL3GT" & "&index1=isbn&v alue1=" & Me.txtISBN.Text
Dim reader As XmlTextReader = New XmlTextReader(s trSearchString)
Do While (reader.Read())
Console.WriteLi ne(reader.Name)
Console.WriteLi ne(reader.Value )
Select Case reader.Name
Case "Title"
Me.txtTitle.Tex t = reader.Value
Case "AuthorsTex t"
Me.txtAuthors.T ext = reader.Value
End Select
Loop
End Sub
Visual Basic.NET 2008
boxes.
P.S I'm using a while loop, but I'm only expecting one answer but I
haven't found a good way to process one record.
Private Sub btnFindByISBN_C lick(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles btnFindByISBN.C lick
Dim strSearchString As String
strSearchString = "http://isbndb.com/api/books.xml?acces s_key="
& "CYGCL3GT" & "&index1=isbn&v alue1=" & Me.txtISBN.Text
Dim reader As XmlTextReader = New XmlTextReader(s trSearchString)
Do While (reader.Read())
Console.WriteLi ne(reader.Name)
Console.WriteLi ne(reader.Value )
Select Case reader.Name
Case "Title"
Me.txtTitle.Tex t = reader.Value
Case "AuthorsTex t"
Me.txtAuthors.T ext = reader.Value
End Select
Loop
End Sub
Visual Basic.NET 2008
Comment