Control Panel Forum Hosting Help 6 Months free Hosting (New!) Resources

Total members: 82534
Average new registrations per day (in last 7 days): 51

New Registration: Open

Register Now

Home » Resources » web services (insertarCliente)

ASP.NET	ADO.NET	Web Services	Remoting	Visual Studio 2005
Error Bank	Interview Questions	Tips & Tricks	XML	HTML
Jscript/Javascript	IIS	Windows		General

Submit Resource or code snippet ... and get surprise gifts ASP.NET web hosting

Win Digital camera, ASP.NET Books, Free softwares!!

web services (insertarCliente)

30 May, 2008

Author: glenda angles machicao
UCSM

Summary
web services ejemplo

.NET Classes used :

Imports System.Web

Imports System.Web.Services

Imports System.Web.Services.Protocols

Imports System.Data

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' _
_
_
_
Public Class Service
Inherits System.Web.Services.WebService

_
Public Function Insert_Cliente(ByVal Nombre As String, ByVal Direccion As String, ByVal FecNac As Date) As String
Dim objConexionBD As New conexion

Dim exito As String

Try

If objConexionBD.InsertarCliente(Nombre, Direccion, FecNac) Then
MsgBox("Cliente insertado correctamente")
Else
MsgBox("NO se pudo guardar los datos ")

End If
exito = "ok"
Return exito

Catch ex As Exception
exito = "Fallo la conexion"
Return exito

End Try

End Function
_
Public Function Consult_Cliente(ByVal Nombre As String) As DataTable

Dim objConexionBD As New conexion

Dim dt As DataTable

dt = objConexionBD.ConsultarCliente(Nombre)

Return dt

End Function

_
Public Function ConsultCliente(ByVal Nombre As String) As List(Of Cliente)
Dim dt As New datatableDataContext

Dim cli = From c In dt.Clientes Where c.Nombre.StartsWith(Nombre) Select c

Return cli.ToList

End Function

End Class

Feedbacks about this page from members:

- No Feedbacks yet !! -

Submit Feedback View All Feedbacks