Servicio ASMX con SQL – Dedicado a el canal Mario Briceño

Antes de comenzar gracias a todos los que me seguis en youtube o aqui , a traves del portal de soulsmakers.

Empecemos.

Cosas que os haran falta, la dll de adodb, lo podeis hacer con oledb, en este ejemplo uso ado.

1 crea el proyecto para el web service y agrega como referencia adodb para el acceso a bbdd

2 ten preparado la cadena de conexion .

3 crea un servicio web y aqui te dejo el codigo que se muestra en el video del web service.

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class ASMXSQL
    Inherits System.Web.Services.WebService
    Dim BBDD As ADODB.Connection
    <WebMethod()>
    Public Function DevolverDatosTabla1() As DataTable
        Dim str As String = "select * from tabla"
        Dim dt As New DataTable
        Dim da As New OleDb.OleDbDataAdapter
        PrepararCadena()
        BBDD.Open()
        da.Fill(dt, BBDD.Execute(str))
        BBDD.Close()
        dt.TableName = "Tabla"
        dt.AcceptChanges()
        Return dt
    End Function
    Private Function PrepararCadena()
        BBDD = New ADODB.Connection
        BBDD.ConnectionString = "AQUI LA CADENA DE CONEXION A BBDD"

    End Function
End Class

Imports System.Web.Services

Imports System.Web.Services.Protocols

Imports System.ComponentModel

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.

' <System.Web.Script.Services.ScriptService()> _

<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _

<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _

<ToolboxItem(False)> _

Public Class ASMXSQL

Inherits System.Web.Services.WebService

Dim BBDD As ADODB.Connection

<WebMethod()>

Public Function DevolverDatosTabla1() As DataTable

Dim str As String = "select * from tabla"

Dim dt As New DataTable

Dim da As New OleDb.OleDbDataAdapter

PrepararCadena()

BBDD.Open()

da.Fill(dt, BBDD.Execute(str))

BBDD.Close()

dt.TableName = "Tabla"

dt.AcceptChanges()

Return dt

End Function

Private Function PrepararCadena()

BBDD = New ADODB.Connection

BBDD.ConnectionString = "AQUI LA CADENA DE CONEXION A BBDD"

End Function

End Class

Compila y e inicia la depuracion para que arranque el iis y te deje el servicio arrancado para poder añadirlo como indica el video.

4 crea un proyecto web.

5 añade como referencia de servico el servicio publicado en tu iis en local.

6 crea una pagina en blanco y añade un gridview, aqui el codigo de la webform.

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Prueba.aspx.vb" Inherits="WebParaConsumeAsmx.Prueba" %>

<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
        <asp:GridView ID="GridView1" runat="server">
        </asp:GridView>
    
    </div>
    </form>
</body>
</html>

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Prueba.aspx.vb" Inherits="WebParaConsumeAsmx.Prueba" %>

<!DOCTYPE html>

</head>

<body>

<div>

<asp:GridView ID="GridView1" runat="server">

</asp:GridView>

</div>

</form>

</body>

</html>

7 en el evento load añade el codigo que aparece aqui. Deberas cambia el nombre del servicio a el que has echo referencia por el que has puesto tu, yo te dejo el del video.

Public Class Prueba
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim MiPrueba As New PruebaSQL.ASMXSQLSoapClient
        Dim DtConDatos As DataTable = MiPrueba.DevolverDatosTabla1
        Me.GridView1.DataSource = DtConDatos
        Me.GridView1.DataBind()
    End Sub

End Class

Public Class Prueba

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim MiPrueba As New PruebaSQL.ASMXSQLSoapClient

Dim DtConDatos As DataTable = MiPrueba.DevolverDatosTabla1

Me.GridView1.DataSource = DtConDatos

Me.GridView1.DataBind()

End Sub

End Class

y esto es todo, Espero que te sirva. un saludo.

1 comentario en “Servicio ASMX con SQL – Dedicado a el canal Mario Briceño”

Mario Briceño

05/16/2017 a las 08:37 | Responder

Hola Jóse me sirvio mucho el video pude hacer mi web service y jugue bastante con el, pero cuando lo publico en un server que no es mi pc y acceso desde la ip del servidor donde esta publicado sale que las pruebas solo se puden hacer local y la app que se pega a ese server no anda solo anda local desde mi maquina.
en realidad lo que yo quiero hacer es conectar el B4A que es un IDE que se llama Basic 4 Android para conectar mi app android a SQL server en realidad lo unico que deseo por el momento es mandarle al web service o cualquier otra cosa que funcione los valores de los 2 textbox de android que son user y pass luego el web service o lo que sea me devuelva un binatio true usuario y pass correcto false no existe o lo escribio mal a apartir de ali yo me puedo defender solo

Deja un comentario Cancelar respuesta

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.