CREACIÓN DE UN SISTEMA DE BASE DE DATOS EN VISUAL BASIC 2010
PRIMERA PARTE Para el ejemplo se usará la siguiente base de datos con la relación siguiente (PRODUCTOS.accdb) de Access 2010:

Estructura de la tabla CLIENTES:

Estructura de la tabla PRODUCTOS:

Estructura de la tabla VENTAS:

Estructura de la tabla VENTAS_DETALLES:

NOTA: Los campos de tipo fecha/hora tienen el formato de Fecha Corta. Los campos de tipo texto, el tamaño del campo se adecua al contenido del campo.

CREACIÓN DEL PROYECTO EN VISUAL BASIC 2010 Se abre el Visual Studio 2010/Visual Basic 2010 y se crea un nuevo Proyecto de Visual Basic/Windows “Aplicación de Windows Forms”.

Una vez creado el proyecto se guarda en un directorio denominado Sistema de …ver más…

onnection With {.ConnectionString = "Provider=Microsoft.ACE.OleDb.12.0;Data Source=" & Application.StartupPath & "/PRODUCTOS.accdb;"} Dim strSQL As New OleDbCommand Dim oData As OleDbDataReader Private Sub txtCodigo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCodigo.KeyPress

e.KeyChar = UCase(e.KeyChar) If (Asc(e.KeyChar) = 13 Or Asc(e.KeyChar) = 9) Then txtProducto.Focus() ElseIf InStr("0123456789.ABCDEFGHIJKLMNÑOPQRSTUVWYXZ" & vbBack, e.KeyChar) = 0 Then e.Handled = True End If End Sub Private Sub txtProducto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtProducto.KeyPress e.KeyChar = UCase(e.KeyChar) If (Asc(e.KeyChar) = 13 Or Asc(e.KeyChar) = 9) Then txtPrecio.Focus() ElseIf InStr("0123456789.ABCDEFGHIJKLMNÑOPQRSTUVWYXZ- +#" & vbBack, e.KeyChar) = 0 Then e.Handled = True End If End Sub Private Sub txtPrecio_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPrecio.KeyPress If (Asc(e.KeyChar) = 13 Or Asc(e.KeyChar) = 9) Then txtCaducidad.Focus() ElseIf InStr("0123456789." & vbBack, e.KeyChar) = 0 Then e.Handled = True End If End Sub Private Sub txtCaducidad_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCaducidad.KeyPress If (Asc(e.KeyChar) = 13 Or Asc(e.KeyChar) = 9) Then txtExistencia.Focus() End If End Sub Private Sub txtExistencia_KeyPress(ByVal sender As Object, ByVal e As