WEBSERVICES

LIZANDRO 27/04/2007 10:58:40
#214021
Fala meu povo ...

Olha só sou vbzeiro pelo mesno uns 12 anos.

Bem um cliente meu me indicou para fazer um serviço. Pegar umas informaçoes no banco de dados e fornecer para um cliente dele formatado em XML. Com vb consigo fazer isso, entrar pela web conectar ao banco de dados dele, e pegar as informações que eu quero ... só um detalhe ...

O cara quer um webservie !!! Não tenho a minima noção de como fazer, baixei o tal do "Web Matrix" ... kkkkkkk não sei nem onde começar ... nem que componente usar, nem que aba abrir ....

Alguem tem alguma luz, algum caminho que eu posso ir andando ....
NETMANIA 27/04/2007 11:13:16
#214025
Ola Lizandro,

Você já deu uma olhada no site do MSND (www.msdn.com.br) pois eles tem alguns artigos que explicam como desenvolver um webservice.
USUARIO.EXCLUIDOS 27/04/2007 11:32:07
#214031
lizandro me adicione no seu messeger ok.
LIZANDRO 27/04/2007 12:14:46
#214036
Não posso usar aki naum ... o prox barr .... vamos lá

Consegui começar...

Só tem um problema como faço para andar dentro do recordset que criei :

<%@ WebService language="VB" class="carro" %>

Imports System
Imports System.Web.Services
Imports System.Xml.Serialization
imports System.data

[c]Public Class carro
    Function buscaDados() As string
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Lizandro\Ele"& _
            "trica\Banco\CONTROS.mdb"
        Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)

        Dim queryString As String = "SELECT [Carro].[Ano] FROM [Carro] as Carro"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
        dataAdapter.SelectCommand = dbCommand

        Dim dataset As System.Data.DataSet = New System.Data.DataSet
        dataAdapter.Fill(dataset)

        dim a = "ihkjh"
        dim IvarFor as integer
        Dim dreader As DataTableReader
        dreader = dataset.CreateDataReader()

        do while dreader.nextResult
            a = a & "+" ' dreader.getString(dreader.getOrdinal("Ano"))
        loop

        Return a 

    End Function


<WebMethod> Public Function qtdRegistro() As string
Return buscaDados
End Function

End Class[/c]
USUARIO.EXCLUIDOS 27/04/2007 12:34:29
#214041 Resposta escolhida
Cara, pelo que vi, deve ter gerado o dataset corretamente,

tira tudo abaixo de dataAdapter.fill

e coloca:
 
dim i as integer
dim a as string

with dataset.tables(0)
   for i = 0 to .rows.count-1
        a &= "+" & .rows(i)("ano")
   next

   return a
   
end with



USUARIO.EXCLUIDOS 27/04/2007 12:36:08
#214043
corrigindo


dim i as integer
dim a as string

with dataset.tables(0)
   for i = 0 to .rows.count-1
        a &= "+" & .rows(i)("ano")
   next

   
end with

return a
LIZANDRO 27/04/2007 12:46:14
#214047
Valewwwwwwwwwwwwwwwwwwwwwww

Cara ASP e sinistro para quem nunca trabalhou com ele ...

Outra coisa, como faço p/ acessa via ADO .... copiei este exemplo mais quando vou rodar ele me avisa que não posso usar "LET ou SET"

 <%
Dim CONEXAO, RS

Set CONEXAO = server.createobject("ADODB.Connection")
Set RS = server.createobject("ADODB.Recordset")

'Lembre-se que em ASP não tem o App.path, e sim o SERVER.MapPath("arquivo")
CONEXAO.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & server.MapPath("C:\Lizandro\Eletrica\Banco\CONTROS.mdb") & ;Uid=Admin;Pwd=;"

RS.Open "SELECT [Carro].[Ano] FROM [Carro]", CONEXAO

'Para exibir dados:
response.write(RS("campo1"))
response.write(RS("campo2"))

%>

LIZANDRO 27/04/2007 13:45:53
#214059
Alguém ???
USUARIO.EXCLUIDOS 27/04/2007 14:02:59
#214062
se vc adicionou as referencias corretas, é só tirar o SET que já funfa...

mas aconselho vc esquecer o ADO (dificil...) e começar a utilizar o ADO.NET... é bem meió!!!
LIZANDRO 27/04/2007 14:08:18
#214064
Blz ... tá indo ... tá indo ...

Mais um detalhe ... posso salvar esse arquivo que carreguei em uma pasta específica ??
USUARIO.EXCLUIDOS 27/04/2007 18:12:52
#214131
Não sei se é exatamente isso q vc quer,

para salvar o conteudo da string carregada em texto:
  
     Dim arquivo As System.IO.StreamWriter = IO.File.CreateText("c:\caminhocompleto
omedoarquivo.oquevcquiser")

     arquivo.Write(Conteudo)

     arquivo.Close()
Tópico encerrado , respostas não são mais permitidas
Voltar