Creacion de Sistemas con Visual Net Solo Codigo
4
Click here to load reader
-
Upload
juan-manuel-fernandez-novoa -
Category
Documents
-
view
198 -
download
0
description
uso de grid con visual basic net
Transcript of Creacion de Sistemas con Visual Net Solo Codigo
FERSYSTEM
[email protected]: Juan Manuel Fernández Novoa
USANDO LISTAS EN SISTEMA INGRESOS y EGRESOS
Crear un base datos llamada
el archivo debe estar guardado en
Luego crear dos tablas una llamada
Ahora hay que crear una aplicación en visual BASIC 2010 y diseñar los siguientes formularios
Ahora hay crear una conexión usando código usando controles OLE
para poder entender su función de cada uno
OleDb.OleDbConnection
OleDb.OleDbDataAdapter
DataSet permite manipular los datos y mostrarlos
una parte del codigo para que examinen
sqlstr = "SELECT * from entradas"
constr = "Provider=Microsoft.ACE.OLEDB.12.0;data source=C:
Try
conusua = New OleDb.OleDbConnection(constr)
orden = New OleDb.OleDbDataAdapter(sqlstr, conusua) tabla = New DataSet
FERSYSTEM
[email protected] – www.fersystem.webcindario.com
For: Juan Manuel Fernández Novoa
USANDO LISTAS EN SISTEMA INGRESOS y EGRESOS
Crear un base datos llamada tienda guardarla en la unidad y ubicar C:\tienda
el archivo debe estar guardado en C:\tienda\tienda.accdb
Luego crear dos tablas una llamada entradas y salidas
Ahora hay que crear una aplicación en visual BASIC 2010 y diseñar los siguientes formularios
conexión usando código usando controles OLE. Tiene la siguientes partes
para poder entender su función de cada uno
Abre una la base datos
permite ejecutar una consulta como mostrar una tabla
permite manipular los datos y mostrarlos
una parte del codigo para que examinen
Tamaño
15
automático
40
20
20
Tamaño
15
automático
40
20
20
sqlstr = "SELECT * from entradas"
constr = "Provider=Microsoft.ACE.OLEDB.12.0;data source=C:\tienda
conusua = New OleDb.OleDbConnection(constr) 'abriendo base datosorden = New OleDb.OleDbDataAdapter(sqlstr, conusua) 'cargando instrucción sql
.webcindario.com 1
USANDO LISTAS EN SISTEMA INGRESOS y EGRESOS
tienda\
Ahora hay que crear una aplicación en visual BASIC 2010 y diseñar los siguientes formularios
. Tiene la siguientes partes
ejecutar una consulta como mostrar una tabla
tienda\tienda.accdb"
'abriendo base datos 'cargando instrucción sql
FERSYSTEM
[email protected]: Juan Manuel Fernández Novoa
Después de realizar con éxito la conexión y no muestre ningún mensaje de error agregamos
codigo en botón agregar
Ejecutar el programa y de pues verificar que en la base datos que los datos estén
Datos registrados en la base datos
Public Class Form1
Dim sqlstr As String
Dim constr As String
Dim conusua As OleDb.OleDbConnection
Dim orden As OleDb.OleDbDataAdapter
Dim tabla As DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sqlstr = "SELECT * from entradas"
constr = "Provider=Microsoft.ACE.O
Try
conusua = New OleDb.OleDbConnection(constr)
orden = New OleDb.OleDbDataAdapter(sqlstr, conusua)
tabla = New DataSet
orden.Fill(tabla, "entradas
Catch ex As Exception
MsgBox(ex.Message) ' mesaje error conexion
End Try
End Sub
End Class
sqlstr = "insert into entradas values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" &
TextBox4.Text & "','" & TextBox5.Text & "')"
Try
conusua = New OleDb.OleDbConnection(constr) '
orden = New OleDb.OleDbDataAdapter(sqlstr, conusua) 'cargando
tabla = New DataSet
orden.Fill(tabla, "entradas")
Catch ex As Exception
MsgBox(ex.Message) ' mesaje error
End Try
FERSYSTEM
[email protected] – www.fersystem.webcindario.com
For: Juan Manuel Fernández Novoa
Después de realizar con éxito la conexión y no muestre ningún mensaje de error agregamos
Ejecutar el programa y de pues verificar que en la base datos que los datos estén
Datos registrados en la base datos
Dim conusua As OleDb.OleDbConnection
Dim orden As OleDb.OleDbDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sqlstr = "SELECT * from entradas"
constr = "Provider=Microsoft.ACE.OLEDB.12.0;data source=C:\tienda
conusua = New OleDb.OleDbConnection(constr) 'abriendo base datosorden = New OleDb.OleDbDataAdapter(sqlstr, conusua) 'cargando instrucción sql
entradas")
MsgBox(ex.Message) ' mesaje error conexion
Código para probar conexión, todo lo que esta en negrita es el
codigo que debemos agregar en el formulario
"insert into entradas values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" &
TextBox4.Text & "','" & TextBox5.Text & "')"
conusua = New OleDb.OleDbConnection(constr) 'abriendo base datos
orden = New OleDb.OleDbDataAdapter(sqlstr, conusua) 'cargando instrucción sql
MsgBox(ex.Message) ' mesaje error conexión
.webcindario.com 2
Después de realizar con éxito la conexión y no muestre ningún mensaje de error agregamos
Ejecutar el programa y de pues verificar que en la base datos que los datos estén registrados
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tienda\tienda.accdb"
'abriendo base datos 'cargando instrucción sql
Código para probar conexión, todo lo que esta en negrita es el
agregar en el formulario
"insert into entradas values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" &
Es una sola línea que
permite agregar datos
FERSYSTEM
[email protected]: Juan Manuel Fernández Novoa
Crear un segundo formulario en el cual visualicemos información de la tabla a través de un
DataGridView que permite ver todos ingresados
El código de carga de datos es similar al anterior con la modificación en donde se declaran las
variables vamos ingresar :
Dim vertabla As New DataTable
Veamos el codigo
Public Class Form2 Dim sqlstr As String Dim constr As String Dim conusua As OleDb.OleDbConnection Dim orden As OleDb.OleDbDataAdapter Dim tabla As DataSet Dim vertabla As New DataTable Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handl sqlstr = "SELECT * from entradas" constr = "Provider=Microsoft.ACE.OLEDB.12.0;data sour ce=C: orden = New OleDb.OleDbDataAdapter(sqlstr, conusua) orden.Fill(vertabla) Me.DataGridView1.DataSour ce = vertabla End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load sqlstr = "SELECT * from entradas" constr = "Provider=Microsoft.ACE.OLEDB.12.0;data sourc e=C: Try conusua = New OleDb.OleDbConnection(constr) 'abriendo base dat os orden = New OleDb.OleDbDataAdapter(sqlstr, conusua) 'c argando instruccion sql tabla = New DataSet orden.Fill(tabla, "entradas") Catch ex As Exception MsgBox(ex.Message) ' mesaje error conexion End Try End Sub End Class
FERSYSTEM
[email protected] – www.fersystem.webcindario.com
For: Juan Manuel Fernández Novoa
Crear un segundo formulario en el cual visualicemos información de la tabla a través de un
DataGridView que permite ver todos ingresados
datos es similar al anterior con la modificación en donde se declaran las
Dim vertabla As New DataTable ‘ este código permitirá almacenar los datos
Dim conusua As OleDb.OleDbConnection Dim orden As OleDb.OleDbDataAdapter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlsqlstr = "SELECT * from entradas" constr = "Provider=Microsoft.ACE.OLEDB.12.0;data sour ce=C: \tienda\ tienda.accdb"orden = New OleDb.OleDbDataAdapter(sqlstr, conusua)
ce = vertabla
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
constr = "Provider=Microsoft.ACE.OLEDB.12.0;data sourc e=C:\tienda\ tienda.accdb"
= New OleDb.OleDbConnection(constr) 'abriendo base dat os orden = New OleDb.OleDbDataAdapter(sqlstr, conusua) 'c argando instruccion sql
MsgBox(ex.Message) ' mesaje error conexion
El código agregado es lo que encuentra en negrita
pero el código agregado modificado que nos
retornara los dato en el DataGridView
.webcindario.com 3
Crear un segundo formulario en el cual visualicemos información de la tabla a través de un
datos es similar al anterior con la modificación en donde se declaran las
‘ este código permitirá almacenar los datos
Control
Button
Control
DataGridView
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
tienda.accdb"
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tienda.accdb"
El código agregado es lo que encuentra en negrita
agregado modificado que nos
DataGridView es:
FERSYSTEM
[email protected]: Juan Manuel Fernández Novoa
Cada código hay que añadir según corresponda , veamos el caso del botón actualizar el cual
nos mostrara el estado actual de todos los datos ingresados a la
Botón actualizar
Hay que ver en la parte orden.Fill(vertabla) poder ser vistos
El codigo Me.DataGridView1.DataSource = vertablaRellena el datagridview para que se muestre la información
Mostrar usando ver lista
sqlstr = "SELECT * from entradas" constr = "Provider=Microsoft.ACE.OLEDB.12.0;data so urce=C: orden = New OleDb.OleDbDataAdapter(sqlstr, conusua) orden.Fill(vertabla) Me.DataGridView1.DataSource = vertabla
FERSYSTEM
[email protected] – www.fersystem.webcindario.com
For: Juan Manuel Fernández Novoa
Cada código hay que añadir según corresponda , veamos el caso del botón actualizar el cual
nos mostrara el estado actual de todos los datos ingresados a la tabla entradas
orden.Fill(vertabla) permite cargar los datos a memoria para
Me.DataGridView1.DataSource = vertabla para que se muestre la información
sqlstr = "SELECT * from entradas" constr = "Provider=Microsoft.ACE.OLEDB.12.0;data so urce=C: \tiendaorden = New OleDb.OleDbDataAdapter(sqlstr, conusua)
Me.DataGridView1.DataSource = vertabla
.webcindario.com 4
Cada código hay que añadir según corresponda , veamos el caso del botón actualizar el cual
tabla entradas
permite cargar los datos a memoria para
tienda \tienda.accdb"
