Public Function getTitles(ByVal title As String) As DataSet

Dim sql As String = "SELECT * FROM titles WHERE title LIKE '%" & title & "%'"

Dim conn As New SqlConnection("server=localhost; uid=sa; password=; database=Pubs")

Dim comm As New SqlCommand(sql, conn)

Dim dataAdapter As New SqlDataAdapter(comm)

Dim ds As New DataSet()

conn.Open()

dataAdapter.Fill(ds, "titles")

conn.Close()

Return ds

End Function

Note that for Smart Device Extension beta 1.0, it is important to specify the machine name of the server hosting the web service, even though the Web service may be on the local machine. Specifying localhost will not work.

Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click

Dim ws As New TitlesWS.Service1()

Dim t As New Thread(AddressOf displayProgress)

 

canStopThread = False

' t.Start() ' start displaying the progress bar

ds = ws.getTitles(txtTitle.Text) ' get the web service

canStopThread = True

 

cboResult.DataSource = ds.Tables(0)

cboResult.DisplayMember = "title"

 

End Sub

Public Sub displayProgress()

'---displays the progress bar every half a second

Dim counter As Integer = 0

While Not canStopThread

'ProgressBar1.Value = counter

txtTitle.Text += counter.ToString

counter += 1

Thread.Sleep(500)

End While

End Sub

 

IMPORTANT NOTE: At press time, I was not able to get this thread to work correctly with the .NET Compact Framework beta 1. Hence the t.start() method was commented out.

Private Sub cboResult_SelectedIndexChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles cboResult.SelectedIndexChanged

lblTitle.Text = ds.Tables("titles").Rows(cboResult.SelectedIndex).Item("title")

lblPrice.Text = ds.Tables("titles").Rows(cboResult.SelectedIndex).Item("price")

txtNotes.Text = ds.Tables("titles").Rows(cboResult.SelectedIndex).Item("notes")

End Sub