1 reply to this topic

[pjesus]

Hola.
Estoy volviendome  loco con el codigo... digo es la primera vez que abro el delphi prism  y quiero escribir un webservice desarrollando en visual basic .net,  pero no doy  con bola.
Bueno realmente alguien me puede dar un norte de por donde empezar a buscarle pra programar en este lenguaje.
Les dejo el un pequeña parte del codigo de visual basic, a ver si alguien me puede apoyar a traducirlo a prism.

Saludos..

csharp

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data
Imports System.Data.Odbc
Imports System.IO
 
Public Class Service
    Inherits System.Web.Services.WebService
    Public CadenadeConexion As String = "Dsn=ibdalsa;uid=admin;pwd=mexico"
    Dim Conector As New OdbcConnection(CadenadeConexion)
    <WebMethod()> _
    Public Function Buscar() As DataSet
        Dim Datas As New OdbcDataAdapter
        Datas = New OdbcDataAdapter("SELECT * from compañias", Conector)        
        Conector.Open()
        Dim SetData As New DataSet
        Datas.Fill(SetData, "Datos")
        Conector.Close()
        Return SetData
    End Function
 
 
    <WebMethod()> _
    Public Function INSERTA_FICHA_CONTACTO(ByVal cve_cia As Integer, ByVal cve_ofi As Integer, ByVal cve_age As Integer, ByVal nombre_cte As String) As Boolean
        Dim v_c1 As String = "execute procedure sp_inserta_ficha_contacto(" & cve_cia & "," & cve_ofi & "," & cve_age & ",'" & nombre_cte & ")"
        Dim consulta As New OdbcCommand(v_c1 , Conector)
        Try
            Conector.Open()
            consulta.ExecuteNonQuery()
            Conector.Close()
            Return True
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
            Conector.Close()
            Return False
        End Try
    End Function
End Class

[egostar]

Hola,

Tal vez estos articulos de Dr.Bob te pueden ayudar

ASP.NET Web Services with Delphi Prism 2009

Consuming Web Services with Delphi Prism

Salud OS

PD, Edité tu código para que se vea mejor,