PEGAR VALOR DE UM TXTBOX E JOGAR PARA O WEBSERVICE
• <WebMethod()> _
Public Function Dados() As DataSet
Dim conn As New SqlConnection([Ô]Data Source=OSEC-JBMARQUES;Persist Security Info=True;User ID=teste;Password=123[Ô])
Dim sql As String = [Ô][Ô]
Dim ds As DataSet = New DataSet
Dim da As SqlDataAdapter
sql = sql & [Ô]SELECT * From Usuario[Ô]
da = New SqlDataAdapter(sql, conn)
da.Fill(ds)
sql = [Ô][Ô]
sql = sql & [Ô]Select * From Tbl_Projeto[Ô]
da = New SqlDataAdapter(sql, conn)
da.Fill(ds, [Ô]tbl_Projeto[Ô])
Return (ds)
End Function
<WebMethod()> _
Public Function Dados2() As DataSet
‘aqui eu gostaria de pegar um valor que esta no text box do windows molibe para fazer uma nova consulta mas com criterio e depois retornar o valor desta consulta
Como eu faço para capturar o valor do text box ou fazer o windows mobile me fornecer este valor do text box
End Function
Grato
Public Function Dados() As DataSet
Dim conn As New SqlConnection([Ô]Data Source=OSEC-JBMARQUES;Persist Security Info=True;User ID=teste;Password=123[Ô])
Dim sql As String = [Ô][Ô]
Dim ds As DataSet = New DataSet
Dim da As SqlDataAdapter
sql = sql & [Ô]SELECT * From Usuario[Ô]
da = New SqlDataAdapter(sql, conn)
da.Fill(ds)
sql = [Ô][Ô]
sql = sql & [Ô]Select * From Tbl_Projeto[Ô]
da = New SqlDataAdapter(sql, conn)
da.Fill(ds, [Ô]tbl_Projeto[Ô])
Return (ds)
End Function
<WebMethod()> _
Public Function Dados2() As DataSet
‘aqui eu gostaria de pegar um valor que esta no text box do windows molibe para fazer uma nova consulta mas com criterio e depois retornar o valor desta consulta
Como eu faço para capturar o valor do text box ou fazer o windows mobile me fornecer este valor do text box
End Function
Grato
Dim ws As New SeuWebService
Dim ret As Object = ws.SeuMetodo(txtSuaCaixaDeTexto.Text)
Tópico encerrado , respostas não são mais permitidas