NET archivos - Página 3 de 6

REDIMENSIONAR UN ARRAY CON REDIM

10/17/201709/01/2016 por Jose Ortiz fernandez

COMO REDIMENSIONAR UN ARRAY, REDIM

Hola a todos aqui os traigo un ejemplo sencillo de como redimensionar un Array y conservar los datos que ya tiene
Pues bien es algo muy sencillo. para ello vamos a utilizar la siguentes declaraciones REDIM PRESERVE para conservar los datos que tenemos y aumentar en 1 la dimension del array

Veamos el ejemplo comentado:

      Dim arr(-1) As String 'Array sin dimensiones de String
       Dim i = 44 'Numero de dimensiones que va a tener el array cuando lo vaya a redimensionar
       For z As Integer = 0 To i
           ReDim Preserve arr(UBound(arr) + 1) 'UBOUND especifica el maximo y le añadimos 1
           arr(UBound(arr)) = i 'Con ubound volvemos a obtener el maximo y ya le asignamos el valor
       Next

Dim arr(-1) As String 'Array sin dimensiones de String

Dim i = 44 'Numero de dimensiones que va a tener el array cuando lo vaya a redimensionar

For z As Integer = 0 To i

ReDim Preserve arr(UBound(arr) + 1) 'UBOUND especifica el maximo y le añadimos 1

arr(UBound(arr)) = i 'Con ubound volvemos a obtener el maximo y ya le asignamos el valor

Y ya lo tenemos, espero que os sirva y ya sabeis, si os gusto compartelo, y comenta

ACCESO A DATOS USANDO ADODB

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

ACCEDER A BASE DE DATOS USANDO ADODB VB.NET

Que es adodb.
Bien si la wikipedia indica Que ado es
ADO.NET es un conjunto de componentes del software que pueden ser usados por los programadores para acceder a datos y a servicios de datos.
Es una parte de la biblioteca de clases base que están incluidas en el Microsoft .NET Framework.
Es comúnmente usado por los programadores para acceder y para modificar los datos almacenados en un Sistema Gestor de Bases de Datos Relacionales,
aunque también puede ser usado para acceder a datos en fuentes no relacionales. ADO.NET es a veces considerado como una evolución de la tecnología
ActiveX Data Objects (ADO), pero fue cambiado tan extensivamente que puede ser concebido como un producto enteramente nuevo.

Fuente:(http://es.wikipedia.org/wiki/ADO.NET)

Pues bien ADODB es un componente que se incluye en la MDAC y que proviene de Visual5 y 6.
Para los que hemos trabajado con VB6 recordamos aquellos Recorsets con las caracteristas
de MoverFisrt , MovePrevious, MoveNext,MoveLast. muy utiles.

Viendo como lo que ha cambiado el mundo de la programación a mi personalmente me da pena que ya casi, y digo bien casi, no se use.

Pues bien Sigue en activo, y si bien es un componente antiguo aun se puede conectar son SQL SERVER 2014,MSACCESS 2013, SQLITE, Bases de Datos Compact. Etc etc.

Para mi es mas facil utilizar adodb para ejecutar transacciones en SQL tanto para lo insert,updates,delete,procedimientos almacenados. dada la facilidad de su uso.

Aqui os dejo un los ejemplos pertinente y el como se convierte esos Famosos RECORDSETS a Datatables, que si bien los miramos se comporten como EL CurrencyManager, de la cual puedes obtener info aqui para navegar por los registros, más un datatable todo unido.

Si cabe destacar un inconveniente de ADODB , y es que el nombre de tabla no viene indicado, asi que por lo tanto deberemos ponerlo(SI QUEREMOS…)
Como tendras que darle una cadena de conexion , si no sabes como hacerlo pincha aqui
Para leer los datos de un fichero si usas el caso anterior para crear la cadena de conexion pincha aqui

Hacemos una Select

  Dim SSQL As String = "Select * from Clientes"
       Dim Db As New adodb.Connection
       Db.ConnectionString = "" 'Aqui indicar tu cadena de conexion
       Dim Da As New OleDb.OleDbDataAdapter 'Lo Utilizaremos para convertir El RECORDSET a Datatable
       Dim Dt As New DataTable 'Datatable que llenaremos con el recordSet
       Try
           Db.open()
           Da.Fill(Dt, Db.execute(SSQL))
           Db.close()
       Catch ex As excepcion
           Db.close()
       End Try

Dim SSQL As String = "Select * from Clientes"

Dim Db As New adodb.Connection

Db.ConnectionString = "" 'Aqui indicar tu cadena de conexion

Dim Da As New OleDb.OleDbDataAdapter 'Lo Utilizaremos para convertir El RECORDSET a Datatable

Dim Dt As New DataTable 'Datatable que llenaremos con el recordSet

Try

Db.open()

Da.Fill(Dt, Db.execute(SSQL))

Db.close()

Catch ex As excepcion

Db.close()

End Try

Un Update esto es mas facil

   Dim SSQL As String = "Update Clientes Set Id=33 where Id=12"
       Dim Db As New adodb.Connection
       Db.ConnectionString = "" 'Aqui indicar tu cadena de conexion
       Db.open()
       Db.Execute(SSQL)
       Db.close()

Dim SSQL As String = "Update Clientes Set Id=33 where Id=12"

Dim Db As New adodb.Connection

Db.ConnectionString = "" 'Aqui indicar tu cadena de conexion

Db.open()

Db.Execute(SSQL)

Db.close()

Si necesitamos que nos devuelva el cambio en un datatable habria que hacer lo mismo que la select pero la instruccion SQL sera update….

El insert

   Dim SSQL As String = "Insert into Clientes id,Nombre values('12','juan')"
       Dim Db As New adodb.Connection
       Db.ConnectionString = "" 'Aqui indicar tu cadena de conexion
       Db.open()
       Db.Execute(SSQL)
       Db.close()

Dim SSQL As String = "Insert into Clientes id,Nombre values('12','juan')"

Dim Db As New adodb.Connection

Db.ConnectionString = "" 'Aqui indicar tu cadena de conexion

Db.open()

Db.Execute(SSQL)

Db.close()

Y el delete os lo podeis imaginar no??? , por si alguno anda despistado XD

   Dim SSQL As String = "Delete from clientes where id = '12'"
       Dim Db As New adodbConnection
       Db.ConnectionString = "" 'Aqui indicar tu cadena de conexion
       Db.open()
       Db.Execute(SSQL)
       Db.close()

Dim SSQL As String = "Delete from clientes where id = '12'"

Dim Db As New adodbConnection

Db.ConnectionString = "" 'Aqui indicar tu cadena de conexion

Db.open()

Db.Execute(SSQL)

Db.close()

y hasta aqui el post de ADODB, Puedes descargarte la libreria aqui, pero tambien te recomiendo que te instales el MDAC, ya que tienen componentes de Interop que te serviran de ayuda.
si quieres mas info sobre ADODB ,visita esta pagina de Microsoft AQUI

Un saludo y si te sirvio, o si te gusto, escribe tu comentario y recuerda

ACCESO A DATOS USANDO OLEDB

10/02/201708/18/2016 por Jose Ortiz fernandez

ACCESO A DATOS USANDO OLEDB

Hola a todos aqui os traigo el ejemplo de como leer, guardar, e insertar datos a traves del componente OleDB.

Lo primero que haremos sera crear la cadena de conexion(si no sabes como hacerlo , aqui hay una forma sencilla de conseguirlo) y se la asignamos a nuestro componente oldb.conection. o bien se la escribirmos.

y a continuacion los ejemplos.

Para una consulta “SELECT” lo conseguimos de la siguiente manera

Try
           Dim s As String = ("SELECT * FROM Clientes")
           Dim conexion = New OleDbConnection(myConnectionString)
           myCommand = New OleDbCommand(s)
           myCommand.Connection = conexion
           conexion.Open()
           Dim myReader As OleDbDataReader = myCommand.ExecuteReader()
           conexion.Close()
           Catch ex As Exception
           Throw New ex.Message
       End Try

Try

Dim s As String = ("SELECT * FROM Clientes")

Dim conexion = New OleDbConnection(myConnectionString)

myCommand = New OleDbCommand(s)

myCommand.Connection = conexion

conexion.Open()

Dim myReader As OleDbDataReader = myCommand.ExecuteReader()

conexion.Close()

Catch ex As Exception

Throw New ex.Message

End Try

Para una un “INSERT” lo conseguimos de la siguiente manera

Try
           Dim SSQL As String = ("INSERT INTO Clientes VALUES ('58','GERARDO')")
           Dim conexion As New OleDbConnection(myConnectionString)
           myCommand = New OleDbCommand(SSQL)
           myCommand.Connection = conexion
           conexion.Open()
           myCommand.ExecuteNonQuery()
           conexion.Close()
       Catch ex As Exception
           Throw New ex.Message
       End Try

Try

Dim SSQL As String = ("INSERT INTO Clientes VALUES ('58','GERARDO')")

Dim conexion As New OleDbConnection(myConnectionString)

myCommand = New OleDbCommand(SSQL)

myCommand.Connection = conexion

conexion.Open()

myCommand.ExecuteNonQuery()

conexion.Close()

Catch ex As Exception

Throw New ex.Message

End Try

Y Para un “Update” asi

       Try
           Dim SSQL As String = "UPDATE Clientes SET id='37' Where id='58'"
           Dim conexion = New OleDbConnection(myConnectionString)
           myCommand = New OleDbCommand(s)
           myCommand.Connection = conexion
           conexion.Open()
           myCommand.ExecuteNonQuery()
           conexion.Close()
       Catch ex As Exception
           Throw New ex.Message
       End Try
   End Sub

Try

Dim SSQL As String = "UPDATE Clientes SET id='37' Where id='58'"

Dim conexion = New OleDbConnection(myConnectionString)

myCommand = New OleDbCommand(s)

myCommand.Connection = conexion

conexion.Open()

myCommand.ExecuteNonQuery()

conexion.Close()

Catch ex As Exception

Throw New ex.Message

End Try

End Sub

Para saber como leer un fichero de y obtener los datos usando StreamReader pincha aqui

Si te gusto el articulo y te sirvio por favor comenta ***El mail te lo puedes inventar*** No se almacenara en ningun sitio.

MOVERSE POR LOS REGISTROS CURRENCYMANAGER

11/14/201908/04/2016 por Jose Ortiz fernandez

MOVERSE POR LOS REGISTROS VB.NET CURRENCYMANAGER

Hola a todos, hoy os traigo un ejemplo de como moverse por los registros de un Datatable.

Lo primero que haremos sera crear el datatable y crear los registros etc etc etc.

Para navergar por los registros vamos a utliziar el currencymanager, y veras que sencillo es.

Contenido del Load

Public CR As CurrencyManager
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As New DataTable
       dt.Columns.Add("Id") : dt.Columns.Add("Nombre")
       Dim dr As DataRow
       dr = dt.NewRow
       dr("id") = 1
       dr("Nombre") = "Juan"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("id") = 2
       dr("Nombre") = "Lucas"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("id") = 3
       dr("Nombre") = "Pablo"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("id") = 4
       dr("Nombre") = "Maria"
       dt.Rows.Add(dr)
       dt.TableName = "Nombres"
       CR = CType(Me.BindingContext(dt), CurrencyManager)
       CR.Position = 0
       Me.TextBox1.DataBindings.Add("Text", dt, "Nombre")
       Me.TextBox2.DataBindings.Add("Text", dt, "Id")

Public CR As CurrencyManager

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

Dim dt As New DataTable

dt.Columns.Add("Id") : dt.Columns.Add("Nombre")

Dim dr As DataRow

dr = dt.NewRow

dr("id") = 1

dr("Nombre") = "Juan"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("id") = 2

dr("Nombre") = "Lucas"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("id") = 3

dr("Nombre") = "Pablo"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("id") = 4

dr("Nombre") = "Maria"

dt.Rows.Add(dr)

dt.TableName = "Nombres"

CR = CType(Me.BindingContext(dt), CurrencyManager)

CR.Position = 0

Me.TextBox1.DataBindings.Add("Text", dt, "Nombre")

Me.TextBox2.DataBindings.Add("Text", dt, "Id")

Como veis hemos puesto como mienbro publico en globar CR que es el currencymanager.

y hemos asignado los bindings a su control pertinente.

Ahora hemos creado dos botones, Adelante y Atras, de los cuales aplicaremos el siguiente codigo.

Boton Adelante:

 If CR.Position <> CR.Count - 1 Then
           CR.Position += 1
       End If

If CR.Position <> CR.Count - 1 Then

CR.Position += 1

End If

Boton Atras

       If CR.Position > -1 Then
           CR.Position -= 1
       End If

If CR.Position > -1 Then

CR.Position -= 1

End If

Ya tendriamos todo resuelto para poder navegar por los registros del datatable en nuestro formulario

OBTENER LISTA DE ARCHIVOS DEL FTP

11/14/201908/02/2016 por Jose Ortiz fernandez

OBTENER LISTA DE ARCHIVOS DEL FTP

En el post anterior vimos, como subir y bajar de forma sencilla archivos del ftp, para volver a verlo aqui, pues bien, esto no estaria completo si no sabemos cual o cuales son los fichero que queremos descargar.

Para saber cuales son estos ficheros, esta vez vamos a utilizar FtpWebRequest, FtpWebResponse.

Muy bien , pues veamos el ejemplo:

Creamos el request del ftp, lo asignamos de la siguiente manera.

Dim Requiere As FtpWebRequest = WebRequest.Create("ftp://miftp.com")

1	Dim Requiere As FtpWebRequest = WebRequest.Create("ftp://miftp.com")

A continuacion asignamos el metodo que queremos utilizar y las credenciales.

Requiere.Method = WebRequestMethods.Ftp.ListDirectoryDetails
Dim cred As New Net.NetworkCredential("usuario", "contraseña")
Requiere.Credentials = cred

Requiere.Method = WebRequestMethods.Ftp.ListDirectoryDetails

Dim cred As New Net.NetworkCredential("usuario", "contraseña")

Requiere.Credentials = cred

Bien, ahora vamos a descargar el contenido , usando response, y el interprete que sera StreamReader.

Dim respuesta As FtpWebResponse = Requiere.GetResponse
Dim Sr As New StreamReader(respuesta.GetResponseStream)
Dim lst = Sr.ReadToEnd

Dim respuesta As FtpWebResponse = Requiere.GetResponse

Dim Sr As New StreamReader(respuesta.GetResponseStream)

Dim lst = Sr.ReadToEnd

Usando un objeto en este caso Lst aqui estara el contenido que tiene el ftp, y con esto ya podriamos saber que archivo o archivos son los que queremos descargar.

Un saludo a tod@s.

Aqui todo el codigo seguido.

Dim Requiere As FtpWebRequest = WebRequest.Create("ftp://miftp.com")
Requiere.Method = WebRequestMethods.Ftp.ListDirectoryDetails
Dim cred As New Net.NetworkCredential("usuario", "contraseña")
Requiere.Credentials = cred
Dim respuesta As FtpWebResponse = Requiere.GetResponse
Dim Sr As New StreamReader(respuesta.GetResponseStream)
Dim lst = Sr.ReadToEnd

Dim Requiere As FtpWebRequest = WebRequest.Create("ftp://miftp.com")

Requiere.Method = WebRequestMethods.Ftp.ListDirectoryDetails

Dim cred As New Net.NetworkCredential("usuario", "contraseña")

Requiere.Credentials = cred

Dim respuesta As FtpWebResponse = Requiere.GetResponse

Dim Sr As New StreamReader(respuesta.GetResponseStream)

Dim lst = Sr.ReadToEnd

Subir y Bajar ficheros por FTP

11/22/201908/02/2016 por Jose Ortiz fernandez

Como Subir y Bajar ficheros por FTP

Otro dia mas desde Soulsmakers….

Aqui en este breve post, articulo o como lo querais llamar os traigo una forma sencilla de subir y bajar archivos por FTP, usando la clase de .net my.computer.

Esta clase trae muchos accesos rapidos a informacion de la maquina, como por ejemplo el usuario activo, unidades de disco, tamaño de pantalla, y entre otras el ftp a traves de Network.

Como vais a ver en el ejemplo la forma de subir un fichero a un ftp es tan sencilla que cabe en una sola linea.

My.Computer.Network.UploadFile("FicheroOrigen", "FTP://TUFTP.XXX/DIRECTORIO", "USUARIO", "CONTRASEÑA")

1	My.Computer.Network.UploadFile("FicheroOrigen", "FTP://TUFTP.XXX/DIRECTORIO", "USUARIO", "CONTRASEÑA")

Y para bajar un fichero del ftp, como vais a ver tampoco es complicado.

My.Computer.Network.DownloadFile("FTP://TUFTP.XXX/ARCHIVO.EXT","DESTINO EJ:C:\CARPETA","USUARIO","CONTRASEÑA")

1	My.Computer.Network.DownloadFile("FTP://TUFTP.XXX/ARCHIVO.EXT","DESTINO EJ:C:\CARPETA","USUARIO","CONTRASEÑA")

Hasta aqui el ejemplo de como subir y bajar archivos por ftp de forma sencilla, espero que os sirva y un saludo a tod@s.

MINI PROGRAMA PARA MATAR PROCESOS

08/02/2016 por Jose Ortiz fernandez

MINI PROGRAMA PARA MATAR PROCESOS

Buenas a tod@s aqui os traigo un mini programa para matar procesos.
es posible que sea necesario ejecutarlo como administrador.

Algunas veces este tipo de programitas son muy utiles cuando hay equipos infectados con virus y no te permiten abrir el administrador de tareas.

Aqui os dejo el codigo fuente, y un rar con la solucion completa ya compilada tambien.
Descargar MATAPROCESOS
Un saludo y Muchas gracias

Sub Main()
starter:
       Console.Write("MataProcesos SoulsMakers" & vbCrLf & vbCrLf)
       Console.Write("LISTA DE PROCESOS" & vbCrLf)
       Console.Write("ID" & vbTab & vbTab & "Nombre" & vbCrLf)
       Console.Write("_____________________________" & vbCrLf)
       Dim list() As Diagnostics.Process = Process.GetProcesses
       For i As Integer = 0 To list.Count - 1
           Console.Write(list(i).Id & vbTab & vbTab & list(i).ProcessName & vbCrLf)
       Next
       Console.Write("ID del proceso a finalizar,Escriba 'X' para salir:")
       Dim MATARID As String = Console.ReadLine()
       Select Case MATARID.ToUpper
           Case "X"
               Exit Sub
       End Select
       Try
           Dim i = CInt(MATARID)
       Catch ex As Exception
           GoTo starter
       End Try
       Try
           Dim P As Process = Process.GetProcessById(MATARID)
           P.Kill()
           Console.Write("***COMPLETADO***")
           GoTo starter
       Catch ex As Exception
           Console.Write(ex.ToString)
           Console.Write("No se pudo completar")
           GoTo starter
       End Try
   End Sub

Sub Main()

starter:

Console.Write("MataProcesos SoulsMakers" & vbCrLf & vbCrLf)

Console.Write("LISTA DE PROCESOS" & vbCrLf)

Console.Write("ID" & vbTab & vbTab & "Nombre" & vbCrLf)

Console.Write("_____________________________" & vbCrLf)

Dim list() As Diagnostics.Process = Process.GetProcesses

For i As Integer = 0 To list.Count - 1

Console.Write(list(i).Id & vbTab & vbTab & list(i).ProcessName & vbCrLf)

Console.Write("ID del proceso a finalizar,Escriba 'X' para salir:")

Dim MATARID As String = Console.ReadLine()

Select Case MATARID.ToUpper

Case "X"

Exit Sub

End Select

Try

Dim i = CInt(MATARID)

Catch ex As Exception

GoTo starter

End Try

Try

Dim P As Process = Process.GetProcessById(MATARID)

P.Kill()

Console.Write("***COMPLETADO***")

GoTo starter

Catch ex As Exception

Console.Write(ex.ToString)

Console.Write("No se pudo completar")

GoTo starter

End Try

End Sub

DTO, ¿Que es?, Creando un DTO

05/29/201708/01/2016 por Jose Ortiz fernandez

DTO, ¿Que es?

Hola a todos, segun se expone en la wikipedia un DTO es:
Objeto de Transferencia de Datos (DTO por sus siglas en inglés) es un objeto que transporta datos entre procesos. La motivación de su uso tiene relación con el hecho que la comunicación entre procesos es usualmente realizada mediante interfaces remotas (ej. Servicios Web), donde cada llamada es una operación costosa.

Como la mayor parte del costo de cada llamada está relacionado con el tiempo round-trip entre el cliente y servidor, una forma de reducir el número de llamadas es usando un objeto (el DTO) que agrega los datos que habrían sido transferidos por cada llamada, pero que son entregados en una sola invocación.

La diferencia entre DTO y Objetos de Negocio (Business Objects) o Data Access Objects (DAO) es que un DTO no tiene más comportamiento que almacenar y entregar sus propios datos (accessors and mutators).

Los DTOs son objetos simples que no deben contener lógica de negocio que requiera pruebas.
Fuente(http://es.wikipedia.org/wiki/Objeto_de_Transferencia_de_Datos_%28DTO%29)

Hasta aqui el que es y creo que esta bastante bien explicado.

Ahora vamos a crear uno, que es la mar de sencillo.
Para mi la explicacion mas sencilla es, una Clase que contiene propiedades que hacen correspondencia a los campos de la base de datos. ahora veremos el ejemplo.

Creando un DTO

'EL DTO
Public Class CLIENTE
   Private _IdCliente
   Public Property IdCliente As Integer
 
   Public Property Nombre As String
     
   Public Sub New()
   End Sub
End Class
'EL FORM
Public Class Form1
    Dim MiLista As New List(Of Clientes)
    Dim id As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        id += 1
        Dim DTOCLIENTES As New Clientes
        DTOCLIENTES.IdCliente = id
        DTOCLIENTES.Nombre = Me.TextBox1.Text
        Me.TextBox1.Text = ""
        MiLista.Add(DTOCLIENTES)
    End Sub

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

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim Listado = From variable As Clientes In MiLista Where variable.Nombre Like "*" & Me.TextBox2.Text & "*" Select variable.Nombre & " " &
                                                                                                                     variable.IdCliente

        Me.ListBox1.Items.Clear()

        For i As Integer = 0 To Listado.Count - 1
            Me.ListBox1.Items.Add(Listado(i))
        Next
    End Sub
End Class

'EL DTO

Public Class CLIENTE

Private _IdCliente

Public Property IdCliente As Integer

Public Property Nombre As String

Public Sub New()

End Sub

End Class

'EL FORM

Public Class Form1

Dim MiLista As New List(Of Clientes)

Dim id As Integer = 0

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

id += 1

Dim DTOCLIENTES As New Clientes

DTOCLIENTES.IdCliente = id

DTOCLIENTES.Nombre = Me.TextBox1.Text

Me.TextBox1.Text = ""

MiLista.Add(DTOCLIENTES)

End Sub

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

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim Listado = From variable As Clientes In MiLista Where variable.Nombre Like "*" & Me.TextBox2.Text & "*" Select variable.Nombre & " " &

variable.IdCliente

Me.ListBox1.Items.Clear()

For i As Integer = 0 To Listado.Count - 1

Me.ListBox1.Items.Add(Listado(i))

End Sub

End Class

Hasta aqui, a continuacion lo que debemos hacer es una instancia del objeto, y ya lo podemos rellenar con los datos que nos haga falta.

Un saludo a tod@s, si el post te gustó, Comentalo y o compartelo.

SABER SI UN DISPOSITIVO ES MOVIL

08/01/2016 por Jose Ortiz fernandez

SABER SI UN DISPOSITIVO ES MOVIL

Hola a todos. Bueno aqui os traigo un poco de codigo para saber si el dispositivo que esta conectado a nuestra web es un movil o no.

El codigo que aqui pongo esta en la siguiente URL por si quereis ver el ejemplo en vuestros moviles. Con clic AQUI te manda a la URL y si no este es el enlace.

http://soulsmakers.com/Ejemplos/EsMovil.aspx (Recuerda respetar las mayusculas y las minusculas)

si bien el codigo es sencillo.

hago un copy paste tal cual esta.

 Dim style = "None"
       If Request.Browser.IsMobileDevice = True Then
           style = "Suift"
       End If
       Me.Response.Write("<div id=" & style & ">Navegador:" & Request.Browser.Browser & "</div></br>")
       Me.Response.Write("<div id=" & style & ">EsMovil:" & Request.Browser.IsMobileDevice & "</div></br>")
       Me.Response.Write("<div id=" & style & ">Modelo:" & Request.Browser.MobileDeviceModel & "</div></br>")
       Me.Response.Write("<div id=" & style & ">Plataforma:" & Request.Browser.Platform & "</div></br>")
       Me.Response.Write("<div id=" & style & ">User Agent:" & Request.UserAgent & "</div></br>")

Dim style = "None"

If Request.Browser.IsMobileDevice = True Then

style = "Suift"

End If

Me.Response.Write("<div id=" & style & ">Navegador:" & Request.Browser.Browser & "</div></br>")

Me.Response.Write("<div id=" & style & ">EsMovil:" & Request.Browser.IsMobileDevice & "</div></br>")

Me.Response.Write("<div id=" & style & ">Modelo:" & Request.Browser.MobileDeviceModel & "</div></br>")

Me.Response.Write("<div id=" & style & ">Plataforma:" & Request.Browser.Platform & "</div></br>")

Me.Response.Write("<div id=" & style & ">User Agent:" & Request.UserAgent & "</div></br>")

Quiero aclarar que suift es un style (estilo) dentro del form, de tal manera que si es movil incremento el tamaño de letra.

en mi caso el resultado es el siguiente