COMO CRIAR UM WEBSERVICE

MFLAVIO 20/04/2010 19:59:57
#339823
Ola gente tudo bem

bom e o seguinte eu criei um sistema com base de dados firebird
onde o cliente pode cadastrar varias informações no servidor local

este servidor tem um ddns apontando para ele

o cliente tem domínio próprio e o site já pronto

bom agora após terminar o sistema o cliente quer integrar o sistema local com o site

tipo pelo site você digita o numero ID de seu cadastro e o site busca no sistema todos os lançamento para o seu ID

eu pensei em fazer tipo o WebService de CEP onde voce digita o cep consome o webservice e tem as especificações

agora como eu posso montar um webservice?
alguem já fez isso?
JWCELYO 21/04/2010 04:53:20
#339830 Resposta escolhida
veja esse exemplo abaixo

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data.OleDb
Imports System.Data

<WebService(Namespace:=[Ô]http://www.softie.com.br/[Ô])> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Service
    Inherits System.Web.Services.WebService
    Private conSpy As New System.Data.OleDb.OleDbConnection([Ô]Provider=Microsoft.jet.OleDB.4.0;Data Source =E:\home\mflex\Dados    emp.mdb[Ô])
    Private conCep As New System.Data.OleDb.OleDbConnection([Ô]Provider=Microsoft.jet.OleDB.4.0;Data Source =E:\home\mflex\Dados\Softie.Motoboy.mdb[Ô])
    Private conCompany As New System.Data.OleDb.OleDbConnection([Ô]Provider=Microsoft.jet.OleDB.4.0;Data Source =E:\home\mflex\Dados\Company.mdb[Ô])


    <WebMethod()> Public Function CepAPI(ByVal CEP As String, ByVal UF As String) As ArrayList

        Dim Itens As New ArrayList

        Try





            If conCep.State = ConnectionState.Closed Then conCep.Close()
            conCep.Open()
            Dim cmd As New OleDbCommand([Ô]select * from [Ô] & UF & [Ô] WHERE CEP = [ô][Ô] & CEP & [Ô][ô][Ô], conCep)
            Dim drdr As OleDbDataReader
            drdr = cmd.ExecuteReader
            drdr.Read()


            Itens.Add(drdr.Item([Ô]LOGRADOURO[Ô]) & [Ô] [Ô] & drdr.Item([Ô]Nome[Ô]))
            Itens.Add(drdr.Item([Ô]BAI_INI[Ô]))
            Itens.Add(drdr.Item([Ô]Localidade[Ô]))



            cmd.Cancel()
            conCep.Close()

        Catch ex As Exception
            conCep.Close()
            Itens.Clear()
            Itens.Add([Ô]erro[Ô])

        End Try




        Return Itens

    End Function

   



End Class
Tópico encerrado , respostas não são mais permitidas
Voltar