CARREGAR DATAGRID COM WEBSERVICES

USUARIO.EXCLUIDOS 15/12/2006 18:13:06
#190280
Como faço para um datagrid exibir os dados de um webservice?
USUARIO.EXCLUIDOS 15/12/2006 18:21:26
#190282
estou usando esse cod
Try
Dim Resultado As DeviceApplication1.br.com.soccolbarbieri.www.Representantes = WsAfv.listarRepresentantes("")
Dim i As Integer

Dim Datatable As New DataTable()
Datatable.TableName = "Batatable"

Dim DataColumn As New DataColumn()
DataColumn.ColumnName = "nome"

Dim DataColumn2 As New DataColumn()
DataColumn2.ColumnName = "login"

Dim DataColumn3 As New DataColumn()
DataColumn3.ColumnName = "senha"

Dim Datarow As DataRow

For i = 0 To 6
Datarow = Datatable.NewRow()
Datarow("nome") = Resultado.nome(i).ToString
Datarow("login") = Resultado.login(i).ToString
Datarow("senha") = Resultado.senha(i).ToString
Datatable.Rows.Add(DataRow)
Next


Dim DataSet As New DataSet()
DataSet.Tables.Add(Datatable)
DtgRepresentantes.DataSource = DataSet

'DtgRepresentantes.DataMember = "Datatable"

Catch ex As System.Web.Services.Protocols.SoapException
MsgBox(ex.Message)
End Try
USUARIO.EXCLUIDOS 15/12/2006 20:54:21
#190310
o WebService para teste está na seguinte url: http://www.soccolbarbieri.com.br/ws/wsRepresentantes.php?wsdl
MORDOR 15/12/2006 23:38:39
#190324 Resposta escolhida
Você pode fazer assim.

Dim server As New serverwsRepresentantes
Dim representantes() As Representantes = server.listarRepresentantes()
Dim dataset As New DataSet("dataset")
Dim table As New DataTable("table")

table.Columns.Add(New DataColumn("nome"))
table.Columns.Add(New DataColumn("login"))
table.Columns.Add(New DataColumn("senha"))
dataset.Tables.Add(table)

For Each representante As Representantes In representantes
    Dim row As DataRow = table.NewRow()
    row("nome") = representante.nome
    row("login") = representante.login
    row("senha") = representante.senha
    table.Rows.Add(row)
Next

DataGrid1.SetDataBinding(dataset, "table")
USUARIO.EXCLUIDOS 15/12/2006 23:51:09
#190325
Valeu Mordor, tenho que mudar algo nessa linha DataGrid1.SetDataBinding(dataset, "table") para funcionar em compactframework? Tah dando erro
MORDOR 16/12/2006 00:07:05
#190326
Me desculpe, não percebi que estava usando o Compact Framework. Na documentação diz que o método SetDataBinding não é suportado. Tente passar o DataTable direto como DataSource do DataGrid. Não pude testar, pois meu VS está com problema pra rodar o emulador de SmartDevice, vou ter que reinstalar aqui,

Dim server As New serverwsRepresentantes
Dim representantes() As Representantes = server.listarRepresentantes()
Dim table As New DataTable("table")

table.Columns.Add(New DataColumn("nome"))
table.Columns.Add(New DataColumn("login"))
table.Columns.Add(New DataColumn("senha"))

For Each representante As Representantes In representantes
    Dim row As DataRow = table.NewRow()
    row("nome") = representante.nome
    row("login") = representante.login
    row("senha") = representante.senha
    table.Rows.Add(row)
Next

DataGrid1.DataSource = table
USUARIO.EXCLUIDOS 16/12/2006 00:12:20
#190327
Muito obrigado! resolveu meu problema!
Tópico encerrado , respostas não são mais permitidas
Voltar