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
