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

11/18/201905/06/2017 por Jose Ortiz fernandez

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.

Creando un Random de string o texto aleatorio

11/14/201901/09/2017 por Jose Ortiz fernandez

Creando un Random de string o texto aleatorio

Hola amigos, aqui teneis el ejemplo de como crear un random de string o texto aleatorio.

la verdad es que es muy muy simple primero os dejo el video como siempre y a continuacion el codigo.

Leer másCreando un Random de string o texto aleatorio

System.Speech haz que tu aplicacion de pc hable ejemplo

10/17/201712/23/2016 por Jose Ortiz fernandez

System.Speech haz que tu aplicacion de pc hable ejemplo

Hola a todos, bueno antes de dejaros el codigo aqui os recomiendo que veais el video por si quereis que hable mas a fondo de esto… bueno.

Leer másSystem.Speech haz que tu aplicacion de pc hable ejemplo

OCR Reconocimiento Optico de Caracteres .NET

10/17/2016 por Jose Ortiz fernandez

OCR Reconocimiento Optico de Caracteres .NET

Hola a todos, en este ejemplo vamos a hacer un OCR (Optical Character Recognition por sus siglas en ingles) en un form. para ello vamos utilizar el OCR de Office.

Lo primero que vamos ha hacer es crear un form con 1 boton , un picturebox y un richtextbox de tal forma que nos quede algo parecido a esto.

A continuación añadiremos la referencia a el componente COM de Microsoft Office Documento Imaging (MODI).

y En el Evento de Clic del boton Escribimos el siguiente codigo.

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim f As New OpenFileDialog 'Instanciamos el file dialog
       f.ShowDialog() 'Mostramos el filedialog
       Dim r = f.FileName 'recogemos el nombre del fichero
       Me.PictureBox1.Image = New Bitmap(r) 'Creamos el bitmap de la imagen  y lo asignamos a el picturebox

       Dim md As New MODI.Document 'instanciamos el modi
       md.Create(r) ' y lo creamos haciendo referencia a la imagen
       Try
           md.OCR(MODI.MiLANGUAGES.miLANG_ENGLISH) ' le decimos el lenguage

           Dim image As MODI.Image = md.Images(0) 'intanciamos la imagen en MODI
           Dim layout As MODI.Layout = image.Layout 'Y AQUI EL TRADUCTOR

           Me.RichTextBox1.Text = layout.Text 'Pasamos la traduccion a el Richtexbox

           md.Close() ' cerramos
       Catch
           md.Close() 'si da error por cualquier motivo cerramos
       End Try
   End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim f As New OpenFileDialog 'Instanciamos el file dialog

f.ShowDialog() 'Mostramos el filedialog

Dim r = f.FileName 'recogemos el nombre del fichero

Me.PictureBox1.Image = New Bitmap(r) 'Creamos el bitmap de la imagen y lo asignamos a el picturebox

Dim md As New MODI.Document 'instanciamos el modi

md.Create(r) ' y lo creamos haciendo referencia a la imagen

Try

md.OCR(MODI.MiLANGUAGES.miLANG_ENGLISH) ' le decimos el lenguage

Dim image As MODI.Image = md.Images(0) 'intanciamos la imagen en MODI

Dim layout As MODI.Layout = image.Layout 'Y AQUI EL TRADUCTOR

Me.RichTextBox1.Text = layout.Text 'Pasamos la traduccion a el Richtexbox

md.Close() ' cerramos

Catch

md.Close() 'si da error por cualquier motivo cerramos

End Try

End Sub

Ya esta ahora solo queda probarlo Espero que os sirva y os guste. El codigo queda comentado.

Saber Color de un Pixel y la Proporcion de imagen PictureBox

10/02/201709/19/2016 por Jose Ortiz fernandez

Saber Color de un Pixel y la Proporcion de imagen con el PictureBox

Y aqui os dejo el codigo

Leer másSaber Color de un Pixel y la Proporcion de imagen PictureBox

Saber cuanto ocupa en kb los datos por tablas sql

11/14/201909/19/2016 por Jose Ortiz fernandez

Saber cuanto ocupa en kb los datos por tablas sql

Por si os interesa, aqui os dejo un script que te dira cual es el espacio que ocupa los datos por tabla de nuestra base de datos de sql server.

SELECT
        t.NAME AS NombreTabla,
        s.Name AS Esquema,
        p.rows AS NumFilas,
        SUM(a.total_pages) * 8 AS EspacioTotal_KB,
        SUM(a.used_pages) * 8 AS EspacioUsado_KB,
        (SUM(a.total_pages) - SUM(a.used_pages)) * 8 AS EspacioNoUsado_KB
FROM
        sys.tables t
INNER JOIN      
        sys.indexes i ON t.OBJECT_ID = i.object_id
INNER JOIN
        sys.partitions p ON i.object_id = p.OBJECT_ID AND i.index_id = p.index_id
INNER JOIN
        sys.allocation_units a ON p.partition_id = a.container_id
LEFT OUTER JOIN
        sys.schemas s ON t.schema_id = s.schema_id
WHERE
        t.NAME NOT LIKE 'dt%'
        AND t.is_ms_shipped = 0
        AND i.OBJECT_ID > 255
GROUP BY
        t.Name, s.Name, p.Rows
ORDER BY
        EspacioUsado_KB desc

SELECT

t.NAME AS NombreTabla,

s.Name AS Esquema,

p.rows AS NumFilas,

SUM(a.total_pages) * 8 AS EspacioTotal_KB,

SUM(a.used_pages) * 8 AS EspacioUsado_KB,

(SUM(a.total_pages) - SUM(a.used_pages)) * 8 AS EspacioNoUsado_KB

FROM

sys.tables t

INNER JOIN

sys.indexes i ON t.OBJECT_ID = i.object_id

INNER JOIN

sys.partitions p ON i.object_id = p.OBJECT_ID AND i.index_id = p.index_id

INNER JOIN

sys.allocation_units a ON p.partition_id = a.container_id

LEFT OUTER JOIN

sys.schemas s ON t.schema_id = s.schema_id

WHERE

t.NAME NOT LIKE 'dt%'

AND t.is_ms_shipped = 0

AND i.OBJECT_ID > 255

GROUP BY

t.Name, s.Name, p.Rows

ORDER BY

EspacioUsado_KB desc

Bueno, ya se que es poco pero por si te interesa tambien puedes consultar , Reindexar y defragmentar los datos aqui .

Un saludo y suscribiros, y registrense, para acceder a el contenido del Foro

PINTAR DIBUJAR EN UN PICTUREBOX

11/22/201909/09/2016 por Jose Ortiz fernandez

PINTAR, DIBUJAR EN UN PICTUREBOX

Hola a tod@s.

Hoy os triago como pintar dentro de un picturebox, ¿para que?. pues bien,quizas lo puedas utilizar para pintar dibujitos o por si necesitas crear una firma para tu programa. En el ejemplo de hoy cuando terminemos la debe quedarnos algo asi, yo ya lo tengo pintadito todo XD.

Para ello vamos a utilizar Graphics, un Balanceador “Swich”, un lapiz “Pen” , y 2dGraphicsPath.

Lo primero que debemos hacer es crear un picturebox en nuestro formulario, y declarar las variables principales que vamos a utilizar en esta mini aplicacion fuera del Load, de tal manera que seran accesibles en todo en Form. La cosa quedaria asi.

   Dim PuedoPintar As Boolean = False
   Dim p As New Pen(Brushes.Black, 4.9)
   Dim g As Graphics
   Dim ph As New Drawing2D.GraphicsPath(Drawing2D.FillMode.Alternate)
   Dim Swich As Boolean = False
   Dim x1, y1, x2, y2

Dim PuedoPintar As Boolean = False

Dim p As New Pen(Brushes.Black, 4.9)

Dim g As Graphics

Dim ph As New Drawing2D.GraphicsPath(Drawing2D.FillMode.Alternate)

Dim Swich As Boolean = False

Dim x1, y1, x2, y2

Ahora dentro del Load lo que vamos a hacer es crear un Bitmap del mismo tamaño que el picturebox y se lo asignamos, y justo despues le decimos a Graphics que es lo que puede pintar, El Load quedaria de la siguiente manera:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim bmp As New Bitmap(Me.PictureBox1.Size.Width, Me.PictureBox1.Size.Height)
       Me.PictureBox1.Image = bmp
       g = Graphics.FromImage(Me.PictureBox1.Image)
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim bmp As New Bitmap(Me.PictureBox1.Size.Width, Me.PictureBox1.Size.Height)

Me.PictureBox1.Image = bmp

g = Graphics.FromImage(Me.PictureBox1.Image)

End Sub

A Continuacion vamos a utilizar los eventos Picturebox.MouseDown, Picturebox.MouseUP, Picturebox.MouseMove , para realizar los trazados dentro del picturebox,

En el Evento de MouseDown, lo que haremos sera decirle que PuedoPintar pasara a true para que empieze a recoger los datos y que pueda empezar a pintar,

   Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
       PuedoPintar = True
   End Sub

Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown

PuedoPintar = True

End Sub

En el Evento MouseUp , PuedoPintar pasara a False para que no Pinte y tanto el Swich como El GraphicsPath se liberen y queden para empezar de cero.

  Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
       PuedoPintar = False
       Swich = False
       ph.Reset()
   End Sub

Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp

PuedoPintar = False

Swich = False

ph.Reset()

End Sub

Y el mas importante el MouseMove, Utilizaremos el Swich para ir almacenando las posiciones del raton en las variables X1,Y1,X2,Y2, hacen referencia a si swich = false y Swich = True, cuando este ultimo esta completado, ya tenemos punto origen y punto final,por lo cual podemos realizar el trazado. la cosa queda asi.

  Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
       If PuedoPintar = True Then
           If Swich = False Then
               x1 = e.X
               y1 = e.Y
               Swich = True
           Else
               x2 = e.X
               y2 = e.Y
               ph.AddLine(x1, y1, x2, y2)
               g.DrawPath(p, ph)
               Swich = False
           End If
       End If
       g.Flush()
       Me.PictureBox1.Refresh()

   End Sub

Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove

If PuedoPintar = True Then

If Swich = False Then

x1 = e.X

y1 = e.Y

Swich = True

Else

x2 = e.X

y2 = e.Y

ph.AddLine(x1, y1, x2, y2)

g.DrawPath(p, ph)

Swich = False

End If

g.Flush()

Me.PictureBox1.Refresh()

End Sub

Como veis no es tan complicado, ahora te toca a ti , realizar los cambios de color del pen,Tamaños… que si quereis lo haremos en un post mas adelante, ahora todo el codigo seguido.

   Dim PuedoPintar As Boolean = False
   Dim p As New Pen(Brushes.Black, 4.9)
   Dim g As Graphics
   Dim ph As New Drawing2D.GraphicsPath(Drawing2D.FillMode.Alternate)
   Dim Swich As Boolean = False
   Dim x1, y1, x2, y2

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim bmp As New Bitmap(Me.PictureBox1.Size.Width, Me.PictureBox1.Size.Height)
       Me.PictureBox1.Image = bmp
       g = Graphics.FromImage(Me.PictureBox1.Image)
End Sub

Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
       PuedoPintar = True
End Sub

Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
       PuedoPintar = False
       Swich = False
       ph.Reset()
End Sub

Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
       If PuedoPintar = True Then
           If Swich = False Then
               x1 = e.X
               y1 = e.Y
               Swich = True
           Else
               x2 = e.X
               y2 = e.Y
               ph.AddLine(x1, y1, x2, y2)
               g.DrawPath(p, ph)
               Swich = False
           End If
       End If
       g.Flush()
       Me.PictureBox1.Refresh()
End Sub

Dim PuedoPintar As Boolean = False

Dim p As New Pen(Brushes.Black, 4.9)

Dim g As Graphics

Dim ph As New Drawing2D.GraphicsPath(Drawing2D.FillMode.Alternate)

Dim Swich As Boolean = False

Dim x1, y1, x2, y2

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim bmp As New Bitmap(Me.PictureBox1.Size.Width, Me.PictureBox1.Size.Height)

Me.PictureBox1.Image = bmp

g = Graphics.FromImage(Me.PictureBox1.Image)

End Sub

Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown

PuedoPintar = True

End Sub

Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp

PuedoPintar = False

Swich = False

ph.Reset()

End Sub

Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove

If PuedoPintar = True Then

If Swich = False Then

x1 = e.X

y1 = e.Y

Swich = True

Else

x2 = e.X

y2 = e.Y

ph.AddLine(x1, y1, x2, y2)

g.DrawPath(p, ph)

Swich = False

End If

g.Flush()

Me.PictureBox1.Refresh()

End Sub

Como siempre….
Si te gustó , si te sirvio, si te ayudó, Comenta, comparte esta pagina,y o registrate

Quizas te interese… Convertir imagen a BASE64 aqui

EJEMPLO DE USO DEL TREEVIEW

11/11/201909/08/2016 por Jose Ortiz fernandez

EJEMPLO DE USO DEL TREEVIEW

Hola a tod@s.
Os traigo un brevisimo ejemplo de como añadir datos a un treeview.

en este caso la estructura solo llevara 2 niveles, pero siguiendo el mismo proceso de iteración puedes agregar los niveles que quieras.

Os dejo el ejemplo comentado, con el datatable creado a mano.

       Dim dt As New DataTable
       dt.Columns.Add("Id", GetType(Int32)) : dt.Columns.Add("Nombre", GetType(String)) : dt.Columns.Add("Apellidos", GetType(String)) : dt.Columns.Add("PAIS", GetType(String))
       Dim dr As DataRow
       dr = dt.NewRow
       dr("id") = 1
       dr("Nombre") = "Juan"
       dr("Apellidos") = "Pardo"
       dr("Pais") = "España"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("id") = 2
       dr("Nombre") = "Lucas"
       dr("Apellidos") = "Martinez"
       dr("Pais") = "España"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("id") = 3
       dr("Nombre") = "Pablo"
       dr("Apellidos") = "Beltran"
       dr("Pais") = "Colombia"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("id") = 4
       dr("Nombre") = "Maria"
       dr("Apellidos") = "Juliana"
       dr("Pais") = "Argentina"
       dt.Rows.Add(dr)
       dt.TableName = "Clientes"

       Dim dv As New DataView(dt)
       dv.Sort = "Pais"
       Dim DTOrdenado As DataTable = dv.ToTable

Dim dt As New DataTable

dt.Columns.Add("Id", GetType(Int32)) : dt.Columns.Add("Nombre", GetType(String)) : dt.Columns.Add("Apellidos", GetType(String)) : dt.Columns.Add("PAIS", GetType(String))

Dim dr As DataRow

dr = dt.NewRow

dr("id") = 1

dr("Nombre") = "Juan"

dr("Apellidos") = "Pardo"

dr("Pais") = "España"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("id") = 2

dr("Nombre") = "Lucas"

dr("Apellidos") = "Martinez"

dr("Pais") = "España"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("id") = 3

dr("Nombre") = "Pablo"

dr("Apellidos") = "Beltran"

dr("Pais") = "Colombia"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("id") = 4

dr("Nombre") = "Maria"

dr("Apellidos") = "Juliana"

dr("Pais") = "Argentina"

dt.Rows.Add(dr)

dt.TableName = "Clientes"

Dim dv As New DataView(dt)

dv.Sort = "Pais"

Dim DTOrdenado As DataTable = dv.ToTable

‘EJEMPLO TREEVIEW

 Dim Pais = "" 'Para saber cuando cambia de pais
       Dim NodoActual = -1 '-1 para cuando cambie de pais añadir 1 , y empezar en el 0
       For Each dro As DataRow In DTOrdenado.Rows
       

   If Pais <> dro("Pais") Then
               NodoActual = NodoActual + 1
               Pais = dro("Pais")
               Me.TreeView1.Nodes.Add(dro("Pais")) 'Añado un nodo y a el mismo nodo le asigno los datos
               Me.TreeView1.Nodes(NodoActual).Nodes.Add(dro("nombre") & "," & dro("Apellidos"))
           Else
               'Como es el mismo pais añado solo el nuevo nombre
               Me.TreeView1.Nodes(NodoActual).Nodes.Add(dro("nombre") & "," & dro("Apellidos"))
           End If
       Next

Dim Pais = "" 'Para saber cuando cambia de pais

Dim NodoActual = -1 '-1 para cuando cambie de pais añadir 1 , y empezar en el 0

For Each dro As DataRow In DTOrdenado.Rows

If Pais <> dro("Pais") Then

NodoActual = NodoActual + 1

Pais = dro("Pais")

Me.TreeView1.Nodes.Add(dro("Pais")) 'Añado un nodo y a el mismo nodo le asigno los datos

Me.TreeView1.Nodes(NodoActual).Nodes.Add(dro("nombre") & "," & dro("Apellidos"))

Else

'Como es el mismo pais añado solo el nuevo nombre

Me.TreeView1.Nodes(NodoActual).Nodes.Add(dro("nombre") & "," & dro("Apellidos"))

End If

La cosa quedará asi,

y como siempre comenta y compartelo ***El mail te lo puedes inventar***
Salu2

INVOCAR UN FORMULARIO USANDO REFLECTION

09/28/201709/08/2016 por Jose Ortiz fernandez

INVOCAR UN FORMULARIO USANDO REFLECTION

Hola a tod@s.
Aqui os traigo un metodo para invocar formularios que estan en otra DLL usando REFLECTION de .NET.

Leer másINVOCAR UN FORMULARIO USANDO REFLECTION