Sou iniciante em vb.net e estou meio perdido em alguns quesitos. Crieu um Web Service e o mesmo será consumido dentro do Office 2003, utilizando para isso o Web Service Toolkit 2003.
Eu utilizo o código abaixo para buscar dados em um banco de dados em meu servidor:
<WebMethod()> _
Public Function Acesso(ByVal chaves As String) As String()
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\\Inetpub\vhosts\kartoffel.com.br\httpdocs\database\registros.mdb"
Dim sql As String = "SELECT Aplicativo,Chave,Solicitante From Reg_Aplics where Chave='" & chaves & "'"
Dim conn As Connection = New Connection
Dim connMode As Integer = ConnectModeEnum.adModeUnknown
conn.CursorLocation = CursorLocationEnum.adUseServer
conn.Open(ConnectionString,
"", "", connMode)
Dim cmdType As Integer = CommandTypeEnum.adCmdText
Dim rs As _Recordset = conn.Execute(sql)
Dim ds As DataSet = New DataSet("Recordset")
Dim da As OleDbDataAdapter = New OleDbDataAdapter
Dim result(3) As String
result(0) = rs(0).Value
result(1) = rs(1).Value
result(2) = rs(2).Value
rs.Close()
Return result
End Function
Ele gera corretamente o XML da requisição, como mostrado abaixo:
<?xml version="1.0" encoding="utf-8" ?>
- <ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://tempuri.org/">
<string>Master Protocolo</string>
<string>REDESOFT</string>
<string xsi:nil="true" />
</ArrayOfString>
Dentro do office eu utilizo o seguinte comando para chamar a função:
Dim ccp As New clsws_teste
Me.Aplic = ccp.wsm_Acesso(Me.Ch)
O que ocorre, é que quando era apenas uma string, eu conseguia receber dentro do forme, mas não sei pegar as mesmas informações que estão sendo retornados através de Arrays.
Alguem poderia me dar uma dia com o código ou me indicar conteudo para leitura?
Desde já agradecido.
