.Net Solucion

Como filtrar un campo Datetime en mi consulta teniendo como parámetro una fecha simple en SQL Server

2010-07-05T06:56:00.000-07:00

Poseemos una tabla en la que ademas de otros campos esta incluido la fecha, pero resulta que lo hemos declarado como tipo de dato "DateTime", y que por defecto, al momento de crear o modificar el registro, este campo incluye ademas la hora, minutos, segundos y milisegundos (2007-06-08 12:23:56.234) en la que fue actualizada.

Esto puede resultar un dolor de cabeza al momento de realizar una consulta en la que tengamos como criterio de selección este campo fecha, ya que generalmente lo filtramos o parametrizamos como fecha y formato distinto: Select * from compras where fecha='08/06/2007'. Y el resultado de esto seria: Maldita sea, no tengo registros.

Bueno os traigo una solución sencilla por medio de una función hecha en SQL Server en la que podeis filtrais sin mas apuros que el de ejecutarla:

CREATE FUNCTION [dbo].[CONVERT_FECHA_SIMPLE]

(

@FECHA DATETIME

)

RETURNS SMALLDATETIME

BEGIN

RETURN CAST(CONVERT(varchar, @FECHA, 103) AS DATETIME)

END

Bueno, después de codificar esto, acá lo único que deberais haceis en tu procedimiento almacenado en el cual harás la tan ansiada consulta es llamar a la función convert_fecha_simple desde el campo criterio, asi, mirais:

Select * from Compras where dbo.convert_fecha_simple(fecha)='08/06/2007'

Realizar una búsqueda en una tabla por cada una de sus columnas en SQL Server

2010-07-02T16:41:00.000-07:00

En nuestro formulario de vb.net tenemos la idea de mostrar en una lista o en un grid los resultados de una búsqueda específica de los registros de una tabla y para ello tendríamos que filtrar las palabras clave según el tipo de columnas que estas contienen.

Esto podría ser de mucha utilidad para aquellos que utilizan una o pocas tablas en SQL Server para localizar los registros deseados y también para aquellos que quieren mostrar los resultados haciendo uso de un solo criterio y no complicarse con un sinfín de controles específicos para cada palabra o dato clave.

Todo esto se resume en realizar un procedimiento almacenado en SQL Server en la que ¡OJO! solo se pondrá como ejemplo el procedimiento en el cual se almacenarían los datos del nombre y el alias de las columnas asignadas en las tablas o consultas donde se realizará la búsqueda de los registros, y esta obvio que aparte ya tendras un procedimiento o vista en la cual consultaras los registros.

Codigo en SQL Server:

CREATE PROCEDURE SP_COLUMNAS_TABLA

@TABLA VARCHAR(20)

BEGIN

--CREAMOS UNA TABLA TEMPORAL EN LA CUAL ALMACENAREMOS LOS NOMBRES DE LAS COLUMNAS Y SU ALIAS POR CADA TABLA ELEJIDA

DECLARE @TABLA_COLUMNAS TABLE(COLUMNA varchar(50), DESCRIPCION varchar(50))

SET NOCOUNT ON

DECLARE @COLUMNA AS VARCHAR(50)

DECLARE @ARRAY_COL AS NVARCHAR(500)

DECLARE @DESCRIPCION AS VARCHAR(50)

DECLARE @ARRAY_DES AS NVARCHAR(500)

IF @TABLA='PERSONAS' BEGIN

SET @ARRAY_COL='COD_PERSONA,NOMBRE,FECHA_NACIMIENTO,' --NOMBRE DE LAS COLUMNAS EN LA TABLA1 QUE DESEAMOS FILTRAR EN LA BUSQUEDA, OVIAMENTE ESTA TABLA PODRIA TENER MAS COLUMNAS, SOLO SELECCIONAMOS LAS QUE QUEREMOS MOSTRAR

SET @ARRAY_DES='CODIGO,NOMBRE,FECHA DE NAC,' --ALIAS DE LAS COLUMNAS EN ORDEN CORRESPONDIENTE AL NOMBRE, DE ESTA FORMA SE DESCRIBIRAN AL MOMENTO DE MOSTRARLOS EN UN CONTROL DEL FORMULARIO

END

IF @TABLA='CIUDADES' BEGIN

SET @ARRAY_COL='COD_CIUDAD,NOMBRE,'

SET @ARRAY_DES='CODIGO,NOMBRE,'

END

--puedes elejir mas tablas incluso columnas de una consulta

IF @TABLA='CIUDAD_PERSONAS' BEGIN

SET @ARRAY_COL='CIUDADES.NOMBRE,PERSONAS.NOMBRE,'

SET @ARRAY_DES='CIUDAD,PERSONA,'

END

WHILE LEN(@ARRAY_COL)<>0

BEGIN

SET @COLUMNA =SUBSTRING(@ARRAY_COL,0, CHARINDEX(',',@ARRAY_COL))

SET @ARRAY_COL =SUBSTRING(@ARRAY_COL,CHARINDEX(',',@ARRAY_COL,0)+1,LEN(@ARRAY_COL))

SET @DESCRIPCION =SUBSTRING(@ARRAY_DES,0, CHARINDEX(',',@ARRAY_DES))

SET @ARRAY_DES =SUBSTRING(@ARRAY_DES,CHARINDEX(',',@ARRAY_DES,0)+1,LEN(@ARRAY_DES))

INSERT INTO @TABLA VALUES(@COLUMNA, @DESCRIPCION)

END

SELECT * FROM @TABLA_COLUMNAS

END

Pero si tu eres de lo que no quiere complicarse aun mas con este código, y quieres de un porraso todas las columnas de una tabla y que el usuario elija de todas que campo filtrar en la busqueda pues te recomiendo usar este codigo en SQL Server:

Select name from syscolumns where id=object_id('Nombre_Tabla')

Bueno esta claro que acá no pondré el código en vb.net para invocar este procedimiento y efectuar la secuencia de la búsqueda, eso queda a criterio de cada programador, aca solo les di una idea de como podrían solucionarlo de forma práctica la búsqueda en una tabla o consulta específica. El filtro de búsqueda mas o menos quedaría de esta forma:

Recordar los datos de usuario y la clave de inicio de sesión de forma práctica en vb.Net

2010-07-02T13:31:00.000-07:00

A veces nos encaprichamos buscando una solución eficaz y fidedigna a nuestra aplicación para establecerle atributos funcionales que se nos escapa la idea de una solución más bien práctica y simple. Por ejemplo una de estas seria el tratar de atribuir a nuestro formulario de inicio de sesión la propiedad de recordar nuestros datos si así lo deseamos.

Había indagado varios artículos en las cuales por obra y gracia de san google me topaba con tipos pidiendo e impartiendo que trabajeis con las coockies, si, ese archivito en formato texto que es indispensable para aquellos que no tienen el mas mínimo tiempo de volver a ingresar sus datos de usuario para ingresar a su web favorita. Pues bien, de seguro habrá si como no código en vb.Net que os permitais estois atributos, pero es demasiado tedioso el estar referenciando librerias y escribiendo código que quizas nunca entendereis, por eso yo oz digo: no te compliques la vida y desarrolla tu propia coockie con el siguiente ejemplo en vb.Net:

Private Sub Btn_Aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Aceptar.Click

Const RutaCockie As String = "C:\cockie.txt"

If ChkRecordar.Checked = True Then ' activamos el check si deseamos guardar los datos en el archivo de texo

Dim sw As New System.IO.StreamWriter(RutaCockie)

sw.WriteLine(Txt_NomUsu.Text)

sw.WriteLine(Txt_ClaUsu.Text) ' bueno supongo que ya habreis codificado la clave o de lo contrario cualquier gato curioso podria indagar la cockie y mirar lo absurdo de tu clave: porsiempretuyo123

sw.Close()

Else

If IO.File.Exists(RutaCockie) Then

My.Computer.FileSystem.DeleteFile(RutaCockie) ' yo recomiendo eliminar el archivo si antes habeis guardado y ahora oz arrepentir, para ello primero comprobareis si el archivo existeis

End If

End Sub

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

Const RutaCockie As String = "C:\cockie.txt" ' puede ser otra ruta, la que deseais maldicion, total los derechos de libre expresion te guarecen

If IO.File.Exists(RutaCockie) Then ' si existe el archivo, significa que guardastes los datos en la coockie y leeras por cada linea el texto los datos

ChkRecordar.Checked = True

Dim sr As New System.IO.StreamReader(RutaCockie, True)

Txt_NomUsu.Text = sr.ReadLine ' lee la primera linea donde estaria el nombre de usuario ya que en ese orden lo deberiamos haber guardado

Txt_ClaUsu.Text = sr.ReadLine ' leea la segunda linea

sr.Close()

End If

End Sub

¿Porque mi archivo descargado desde mi servidor FTP no se guarda en la carpeta que cree desde mi aplicación en vb.Net?

2010-07-02T08:46:00.000-07:00

Estas compilando tu Aplicación en vb.Net que te permitirá descargar los archivos del servidor FTP y todo te sale a la perfección, es decir: estableces la conexión con el Server FTP, tu archivo descargado se guarda en la carpeta que tu has asignado desde código fuente en la ruta de tu aplicación por defecto, es decir "c:\Archivos de Programas\Mi Aplicación\Archivos del FTP\archivo.doc". De pronto, vas a otra maquina, instalas tu Aplicación para probarlo (según tu para jactarte) y te das cuenta que tu Archivo que supuestamente descargaste no aparece en la carpeta deseada ¿Que paso?

La razón de este problemilla?: pues sinceramente no estoy seguro pero todo indica que se trata de los Permisos de Windows ya que estas carpetas son especiales y no pueden ser alteradas desde otra fuente que no sea la acciones directas del usuario mismo como: guardar, eliminar, modificar los archivos (las cuales contienen) desde su interior, por el contrario ya que deseamos alterarlas desde una fuente intermedia haciendo uso de nuestra Aplicación, necesitaríamos un código especial que nos permitiese realizar justamente estas acciones dentro de las carpetas en cuestión.

Señores yo les recomendaria lo siguiente: Evita descargar el archivo en un dirección que pudiera incluir carpetas del Sistema Operativo (Windows, Archivos de Programas, Mis Documentos, etc), que comúnmente (supongo) sería por ejemplo "c:\Archivos de Programas\Mi sistema\Archivos ftp\archivo.doc", ya que podría ocasionar un error o en todo caso ¡no mostrar el error! pero en cambio ¡no guardar el archivo! (lo que sucedió en mi caso), asi que evítalo y no te compliques, yo te sugiero guardarlo en otra unidad o por ejemplo en "C:\Archidos FTP". O Si consigues algun codigo o propiedad que nos permita realizar estas acciones por favor ¡compártalas hombre!, y mucho mejor si los publicais en nuestro blog, tu solución alternativa.

Aca los dejo el código en vb.Net para orientarlos:

Dim ruta_archivo As String

' Si la carpeta donde deseamos guardar nuestros archivos no esta creado , pues que creen, lo creamos pues

If Not Directory.Exists("c:\Archivos FTP") Then

Directory.CreateDirectory("c:\Archivos FTP")

End If

ruta_archivo = "c:\Archivos FTP\archivodescargado.doc"

'importante, es necesario comprobar si el archivo ya existe para abrirlo o ejecutarlo (si es que esa es tu intensión) directamente y no enviar otra vez la solicitud de descarga del servidor FTP

If Not File.Exists(ruta_archivo) Then

Try

DescargarArchivoFTP(ruta_archivo, "archivodescargado.doc") ' Click aqui para ver el procedimiento en la cual descarga el archivo

Catch ex As Exception

MsgBox(ex.Message)

Exit Sub

End Try

End If

Try

System.Diagnostics.Process.Start(ruta_archivo) ' si es que tu intension es abrir oejecutar el archivo

GrabarEstado()

Catch ex As Exception

MsgBox(ex.Message)

End Try

Cargar datos desde un archivo XML en VB.Net

2010-06-30T13:31:00.000-07:00

Si tu eres uno de esos tipos que no quiere complicarse la vida tratando de almacenar en una Base de Datos cada parametro que se presentara derrepente para inicializar la aplicacion que le abrira las puertas de su sistema, pues he aqui una solución práctica en VB.net haciendo uso de un archivo de inicio en XML, quizas el termino te paresca extraño pero no es nada complicado si lo unico que deseas es solo inicializar valores en un formulario cualesquiera, y he aquí la solución:Tan solo bastará colocar el siguiente codigo en un archivo de texto y cambiar su extension original (.txt) por XML para que este se convierta como tal, o quizas has sido mas inquisitivo y te habras dado cuenta que existe una seccion en las versiones de VB.Net para crear este archivo: Menu Proyecto --> Agregar Nuevo Elemento...-->Datos--->Archivo XML

Codigo XML:

empresas>

Codigo VB.net:

Dim _dsdetalle As DataSet ' yo he decidido llenar los datos del xml en un data set en primera instancia ya que este me servira para enlazar o llenar los datos despues en un combo que por cierto eleji para mostrar la informacion contenida en el xml

Private Sub FRM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Xml As XmlDocument

Dim NodeList As XmlNodeList

Dim Node As XmlNode

Dim _DS As New DataSet

LlenarDS()

Try

Xml = New XmlDocument()

Xml.Load(Application.StartupPath & "\Inicio.xml") ' Ojo que este es la direccion de la carpeta donde se ejecuta el programa (software, aplicacion, sistema, etc ) prinicipal porque es ahi donde Inicio.xml yo le he guardado

NodeList = Xml.SelectNodes("/empresas/empresa")

For Each Node In NodeList

Dim rw As DataRow = _dsdetalle.Tables(0).NewRow

rw("razon_social") = Node.Attributes.GetNamedItem("nombre").Value

rw("bd") = Node.Attributes.GetNamedItem("bd").Value

_dsdetalle.Tables(0).Rows.Add(rw)

CboEmpresa.DisplayMember = "razon_social"

CboEmpresa.ValueMember = "bd"

CboEmpresa.DataSource = _dsdetalle.Tables(0)

Catch ex As Exception

MsgBox(ex.GetType.ToString & vbNewLine & ex.Message.ToString)

Finally

Console.Read()

End Try

End Sub

'Damos forma a nuestro dataset en un subproceso aparte para que enlaze su contenido al combo

Private Sub LlenarDS()

_dsdetalle = New DataSet

_dsdetalle.Tables.Add(0)

With _dsdetalle.Tables(0).Columns

.Add("razon_social", System.Type.GetType("System.String"))

.Add("bd", System.Type.GetType("System.String"))

End With

End Sub

Verificar la conexion a un servidor FTP en vb.net

2010-06-22T10:24:00.001-07:00

Ahora bien, tenemos el siguiente problema, resulta que a veces nuestra linea estan lenta o en el peor de los casos algun gracioso desconecto nuestro servidor FTP y todos los archivos que se tratan de enviar no llegan a su destino ya que si no nos apresuramos nos pueden linchar los usuarios de nuestro sistema, bueno aca esta claro que hay un problema de conectividad, para cualesquiera que sea el caso, es necesario verificar (validar, comprobar, etc etc) justamente si esta disponible nuestro server en ese momento que que enviamos o descargamos los archivos y de esa forma apaciguar los animos de quienes lo requieren con un mensaje como "La linea que Telefonica nos provee esta pesima, asi que tranquilizate e intenta mas tarde enviar tu archivo".

Pues bien ahora mostrare un fragmento de como resolver (en todo caso, advertir) este problemilla en codigo Visual Basic 2008

Codigo:

Private Function VerificarConecFTP() As Boolean

Dim ClienteFtp As New Sockets.TcpClient

Try

ClienteFtp.Connect("2oo.48.xx.xxx", 21) ' ojo, solo IP del server FTP

ConectarFTP = True ' si devuelve True significa que hay conexion

Catch Ex As Exception

MsgBox(Ex.Message) ' escriba el mensaje que mas te salve del apuro

ConectarFTP = False ' si devuelve False significa que tienes que ir corriendo a ver que pasa en el server

End Try

End Function

Como bajar o descargar un archivo de un servidor FTP en vb.Net

2010-06-22T07:31:00.000-07:00

En el anterior artículo se puso un ejemplo en la cual el sistema de nuestra empresa tiene por objetivo controlar todos los archivos que nuestros usuarios se enviaban entre si y en la cual debiamos nosotros, como programadores, ver la forma de como subir o enviar un archivo a un servidor FTP en vb.net (o de lo contrario nos despedian del trabajo), ahora les desifraremos el codigo para su contraparte: descargar o bajar un archivo.

Tal como habiamos indicado en el otro tema, aca son necesarios algunas recomendaciones:

* Tener una buena linea de internet, ya que descargar es menos rapido (o mas lenta) que subir un archivo a un servidor, esta consideracion es muy importante ya que podria ocacionar un error si caduca el tiempo de espera para establecer conexion con el FTP que generalmente es por tener una linea pesima.
* contar con los campos necesarios en nuestra BD (suponemos SQL Server)para que este sea eficaz de controlar dichas transferencias de los archivos, los datos como el nombre del archivo, nombre del usuario remitenete y destino, hora y fecha de recepcion sera las claves de un buen control.
* Bueno, demas esta decir que tienen que contar con un Server FTP donde se almacenan y de donde se "jalaran" los archivos a las PC de cada usuario que acceda a ellas desde cualquier punto del universo y desde cualquier epoca de en un futuro muy lejano.

Este es el ejemplo en codigo Visual Basic 2008

Donde RutaArchivo vendria a ser la carpeta en nuestro disco duro donde se guardara el archivo descargado y podria ser "c:\descargas\nombre_original_segun_BD.doc" y NombreArchivo el nombre con la cual esta almacenada en el server FTP, si consultamos bien los parametros no tendriamos problemas en obtener el archivo al cual deseamos acceder ya que supuestamente cada archivo en el server FTP esta registrada en la Base de Datos, he aqui la importancia de guardar los datos que estan relacionados con el archivo.

Public Sub DescargarArchivoFTP(ByVal RutaArchivo As String, ByVal NombreArchivo As String)

Dim localFile As String = RutaArchivo

Dim remoteFile As String = NombreArchivo

Const host As String = "ftp://xxx.xx.xx.xxx/archivos/" 'nombre de la carpeta en nuestro server FTP donde estan los archivos que deseamos descargar

' colocamos el nombre de usuario y password respectivo para acceder al server, si este no poseyera, dejar solo las comillas, osea ""

Const username As String = "usuario"

Const password As String = "password"

Dim URI As String = host & remoteFile ' nombre completo de la ruta del archivo

Dim ftp As System.Net.FtpWebRequest = CType(Net.FtpWebRequest.Create(URI), Net.FtpWebRequest)

ftp.Credentials = New _

System.Net.NetworkCredential(username, password)

ftp.KeepAlive = False

ftp.UseBinary = True

ftp.Method = System.Net.WebRequestMethods.Ftp.DownloadFile

Try

Using response As System.Net.FtpWebResponse = _

CType(ftp.GetResponse, System.Net.FtpWebResponse)

Using responseStream As IO.Stream = response.GetResponseStream

Using fs As New IO.FileStream(localFile, IO.FileMode.Create)

Dim buffer(2047) As Byte

Dim read As Integer = 0

read = responseStream.Read(buffer, 0, buffer.Length)

fs.Write(buffer, 0, read)

Loop Until read = 0

responseStream.Close()

fs.Flush()

fs.Close()

End Using

responseStream.Close()

End Using

response.Close()

End Using

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

Como enviar un archivo a un servidor FTP en VB.Net

2010-06-21T07:08:00.000-07:00

El asunto es este: nos encargan una aplicacion o un modulo, dentro de nuestro sistema principal, en la cual se pueda enviar y recepcionar archivos (documentos o lo que sea) en la cuales se contiene informacion importante para la empresa para uno o varios usuarios a los cuales ira dirigido justamente el archivo. Para esto tendra en cuenta lo sieguiente:

* Contar con una PC o Servidor FTP donde se almacenaran y se tendran acceso desde cualquier punto del planeta y en cualquier momento a los archivos.
* Contar con los campos adecuados en una tabla de nuestra BD que indique el codigo del usuario, nombre del archivo (ejemplo.doc) etc.
* Contar con una buena linea de internet

Ojo que aca ya no voy a detallar que codigo utilizar en vb.net y en SQL Server para guardar los parametros en la BD de los campos mencionados, porque eso estara definido por cada programador, solo mostrare un ejemplo de como enviar un archivo del FTP:

Codigo:

Donde OrigenArchivo podria ser "c:\ejemplo.doc" y NombreArchivo podria ser "Archiv0_0001.doc", pues yo les recomiendo usar un correlativo al momento de asignar el nombre al archivo en el server FTP ya que podria ocacionar error si el enviamos con un nombre que de un archivo que ya existe en la carpeta de destino creado en el server FTP, eh ahi la importancia de guardar el datos del nombre (ejemplo.doc) para que cuando recepcionemos o descarguemos el archivo se guarde en el disco local con el nombre original.

Public Shared Sub EnviarArchivoFTP(ByVal OrigenArchivo As String, ByVal NombreArchivo As String)

Dim clsRequest As System.Net.FtpWebRequest

Dim conexion As Net.Sockets.TcpClient

clsRequest = DirectCast(System.Net.WebRequest.Create("ftp://xxx.xx.xxx.xxx/archivos/NombreArchivo), System.Net.FtpWebRequest)

clsRequest.Proxy = Nothing ' Esta asignación es importantisimo con los que trabajen en windows XP ya que por defecto esta propiedad esta para ser asignado a un servidor http lo cual ocacionaria un error si deseamos conectarnos con un FTP, en windows Vista y el Seven no tube este problema.

clsRequest.Credentials = New System.Net.NetworkCredential("usuario", "password") ' Usuario y password de acceso al server FTP, si no tubiese, dejar entre comillas, osea ""

clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile

Try

Dim bFile() As Byte = System.IO.File.ReadAllBytes(origenArchivo)

Dim clsStream As System.IO.Stream = _

clsRequest.GetRequestStream()

clsStream.Write(bFile, 0, bFile.Length)

clsStream.Close()

clsStream.Dispose()

Catch ex As Exception

MsgBox(ex.Message & ". El Archivo no pudo ser enviado, intente en otro momento")

End Try

End Sub