access 2007 vb abrir formulario

DoCmd.OpenForm("NombreFormulario")

Access desplegable

Haciendo una base de datos personalizada en access para una empresa, me he topado con que si haces un desplegable de manera automática te sale de la siguiente manera

Lo cual para el usuario no es muy comodo por que tiene que hacer scroll para poder elegir un valor. Pues con cambiar solo una propiedad del cuadro combinado podemos obtener este resultado.

¿Como conseguirlo? En la propiedad "Anchura de las columnas" pondremos la combinación "0;1" que automáticamente se convertirá en "0cm; 1cm" ¡OJO! El 0, 1 vale para mi consulta por que quiero ocultar la primera columna. Si tubieramos 3 columnas y quisiéramos mostrar solo la última columna pondríamos "0;0;1"

Fuente

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:

Access y Visual Studio 2005

Otra nota: Visual Studio 2005, ADO.NET y Access

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