miércoles, 26 de noviembre de 2008

Visual Basic .net + access

Tenia muchas ganas de escribir este articulo, pero me costava encontrar la manera adecuada para hacero. Se trata de un pequeño ejemplo en Visual Basic .NET que se conecta a una base de datos Access.
La aplicación, es un Listin Telefónico super sencillo, en el que se pueden buscar telefonos según el nombre introucido o insertar nuevas personas.
Este articulo no es para iniciarse en la programación de aplicaciones visuales, o programación orienteada a eventos. Pero si tienes unas nociones sobre este tipo de programación, creo que el siguiente ejemplo te puede ayudar bastante para orientarte en cuanto a aplicaciones que se conecta a bases de datos.
Por cierto, si no te interesa la programación, pero quieres descargarte la agenda de soy-informático solo tienes que pulsar aqui.
Para este articulo, me he documentado sobre el blog de tony y sus ondas. Sobre todo de estos dos articulos:
Tengo que reconocer que la indentación no la he trabajado mucho, pero por lo menos he podido indentar gracias al blog de Albert Mata

Para cualquier cosa, contactarnos a traves de los comentarios.

Public Class Form1
Dim dt As New DataTable
Dim fila As Integer = 0
Dim strConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=bd1.mdb"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strSQL As String = "Select * from telefonos"
Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, strConexion)
dataAdapter.Fill(dt)
dataAdapter.Dispose()
ActualizaTexto()
End Sub

Private Sub ActualizaTexto()
txtNombre.Text = CStr(dt.Rows(fila)("nombre"))
txtTelefono.Text = CStr(dt.Rows(fila)("telefono"))
End Sub

Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
Dim StrBuscaNombre As String
Dim Encontrado As Boolean = False
Dim i As Integer
StrBuscaNombre = txtNombre.Text
For i = 0 To dt.Rows.Count - 1
If CStr(dt.Rows(i)("nombre")) = StrBuscaNombre Then
Encontrado = True
;fila = i
ActualizaTexto()
End If
Next
If Not Encontrado Then
MsgBox("No se encontro " & StrBuscaNombre)
End If
End Sub

Private Sub btnInsertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsertar.Click
Dim Conex As New OleDb.OleDbConnection
Dim Comm As New OleDb.OleDbCommand
Conex.ConnectionString = strConexion
Comm.Connection = Conex
Dim filas As Integer = dt.Rows.Count + 1
Comm.CommandText = "INSERT INTO telefonos(id, nombre, telefono)" & _
"values(" & filas.ToString & ", '" & txtNombre.Text & "', " & txtTelefono.Text & ");"
Conex.Open()
Comm.ExecuteNonQuery()
Conex.Close()
MsgBox("Dato introducido correctamente")
Dim strSQL As String = "Select * from telefonos"
Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, strConexion)
dataAdapter.Fill(dt)
dataAdapter.Dispose()

End Sub
End Class

viernes, 21 de noviembre de 2008

Huelga informatica en la UJI: ¡UN EXITO!

huelga informatica

El 19N ha ocurrido, tanto la prensa escrita como la televisión no lo han mostrado, pero ha ocurrido. Profesionales, como estudiantes de las diferentes ingenierias informáticas, nos hemos reunido y manifestado para demostrarle al ministerio que estamos hartos de no tener competencias ni atribuciones.

huelga informaticosMuchas gracias a todos los asistentes por participar en la manifestación y en especial a los organizadores.

manifestacion informatica

sábado, 15 de noviembre de 2008

Accesibilidad web: etiqueta alt en el html

Particularmente creo que la accesibilidad web, no esta muy difundida en la web, y con esta entrada quiero sensibilizar un poco a todos los webmaster o administradores de blogs para que intenten hacer sus publicaciones en Internet un poco más accesibles, ya que todos tenemos derecho a Internet.

Un pequeño truco muy fácil para hacer nuestras web/blogs más accesibles es etiquetar las imagenes con la etiqueta alt.

Ejemplo:

< href="˜/img/imagen.jpeg" alt="gato">

Por ejemplo, si en la "imagen.jpeg", estamos mostrando la imagen de un gato, indicaremos en la etiqueta alt, lo que contiene la imagen, por ejemplo con la palabra "gato". Con esta pequeña modificación, en el caso de que una persona con alguna discapacidad visual, que utilice algún navegador especial, este, leerá el contenido de la etiqueta alt y el discapacitado sabrá que hay una imagen con un gato.

jueves, 6 de noviembre de 2008

Huelga informáticos

Parece ser que la situación es grave. Quieren quitar carreras como la Ingeniería en Informática, Ingeniería Técnica en Informática de Gestión y Ingeniería Técnica en Informática de Sistemas. No soy el más indicado para hablar el tema, ya que por desgracia para mi incultura no sigo los congresos, pero lo que si que se es que la profesión de la informática esta devaluada tanto a nivel económico como personal (me refiero al prestigio). Tardamos varios años en formarnos con unas solidas bases que luego se diluyen en las nuevas tecnologías que salen cada año y que nos dejan totalmente obsoletos en unos meses. Lo salarios son más bien modestos, por no hablar del instrusismo laboral que hay en el sector y encima tenemos que ir haciendo chapuzas en los ordenadores de conocidos a cambio de nada. Por no hablar de que no disponemos de ningún colegio oficial. ¡Y ahora encima nos quieren quitar los titulos!
¡BASTA YA!
Por favor, mirar los siguientes enlaces y si sois informáticos no vayáis a trabajar el próximo 19 de Noviembre. ¡VAMOS A PARAR EL PAÍS!

Fuentes:
Desaparición de la ingeniería en informática del CPIIA
Más información desde barrapunto
Huelga informática