emplos varios para trabajar con controles textbox en visual basic.net volver - siguiente Recurso enviado por Sebastián Andres Perdomo ------------------------------------------------------- Contenido Solo números Cambiar el foco a otro textbox al presionar enter Seleccionar todo el texto Evitar el beep al presionar enter Mayúsculas y minúsculas Guardar el texto de un textbox en un archivo txt Leer lineas de un archivo de texto Leer todo el contenido de un archivo de una sola ves
Transcript
emplos varios para trabajar con controles textbox en visual basic.net
Colocar varios varios controles textbox y el siguiente código
Texto plano Imprimir
1. Private Sub TextBox1_KeyPress(ByVal sender As Object, _ 2. ByVal e As System.Windows.Forms.KeyPressEvent
Args) _ 3. Handles TextBox1.KeyPress 4. If e.KeyChar = ChrW(Keys.Enter) Then 5. e.Handled = True 6. SendKeys.Send("{TAB}") 7. End If 8. End Sub
3 - Seleccionar todo el texto del control al recibir el foco con el método SelectAll
Texto plano Imprimir
1. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _ 2. ByVal e As System.EventArgs) _ 3. Handles TextBox1.TextChanged 4. TextBox1.SelectAll() 5. End Sub 6. 7. Private Sub Form1_Load(ByVal sender As System.Object, _ 8. ByVal e As System.EventArgs) _ 9. Handles MyBase.Load 10. TextBox1.Text = " Un texto " 11. End Sub
4 - Evitar el BEEP al apretar Enter
Texto plano Imprimir
1. Private Sub TextBox1_KeyPress(ByVal sender As Object, _ 2. ByVal e As System.Windows.Forms.KeyPressEvent
Args) _ 3. Handles TextBox1.KeyPress 4. If e.KeyChar = Convert.ToChar(Keys.Return) Then 5. e.Handled = True 6. End If 7. End Sub
1. ' Mayúsculas 2. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _ 3. ByVal e As System.EventArgs) _ 4. Handles TextBox1.TextChanged 5. TextBox1.CharacterCasing = CharacterCasing.Upper 6. End Sub 7. 8. 'Minusculas : 9. 10. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _ 11. ByVal e As System.EventArgs) _ 12. Handles TextBox1.TextChanged 13. TextBox1.CharacterCasing = CharacterCasing.Lower 14. End Sub
6 - Guardar el texto de un textbox en un archivo .txt
Colocar un control Button
Texto plano Imprimir
1. Private Sub Button1_Click(ByVal sender As System.Object, _ 2. ByVal e As System.EventArgs) _ 3. Handles Button1.Click 4. ' Crea el archivo 5. FileOpen(1, "c:\texto.txt", OpenMode.Output) 6. ' escribe el contenido 7. Write(1, TextBox1.Text) 8. FileClose(1) ' lo cierra 9. End Sub
7 - ReadLine - Leer lineas de un archivo de texto
Ejemplo enviado por Xkiz que lee desde un fichero .txt (ubicado en la carpeta debug ) todas las lineas y las visualiza en unos controles textbox
Formulario que mediante un botón abre un diálogo para seleccionar un archivo de texto, y leer mediante el método ReadLine del objeto StreamReader, todas las líneas y visualziarlas en un control textBox
Colocar un control textbox multilinea, un control button y un control openFileDialog
Texto plano Imprimir
1. Option Strict On 2. ' espacio de nombre para poder usar StreamReader 3. Imports System.IO 4. 5. Public Class Form1 6. 7. Private Sub Form1_Load(ByVal sender As System.Object, _ 8. ByVal e As System.EventArgs) _ 9. Handles MyBase.Load 10. Button1.Text = " Abrir archivo " 11. End Sub 12. 13. Function Leer(ByVal path As String) As String 14. Try 15. Dim oSR As StreamReader = New StreamReader(path) 16. 17. Dim l As String 18. Dim tempSTR As String = "" 19. ' lee la primer línea 20. l = oSR.ReadLine() 21. While Not l Is Nothing 22. ' variable temporal que almacena las líneas 23. tempSTR = tempSTR & l & vbNewLine 24. l = oSR.ReadLine() ' lee la siguiente 25. End While 26. ' cierra y libera los recursos 27. oSR.Close() 28. oSR.Dispose() 29. ' retorna el texto 30. Return tempSTR 31. ' errores 32. Catch oe As Exception 33. Return "" 34. MsgBox(oe.Message) 35. End Try 36. 37. End Function 38. 39. Private Sub Button1_Click(ByVal sender As System.Object, _ 40. ByVal e As System.EventArgs) _ 41. Handles Button1.Click 42. With OpenFileDialog1 43. .FileName = "" 44. .Filter = "Archivos de texto *.txt|*.txt|Todos *.*|*.*" 45. ' abre el diálogo para seleccionar archivo el de texto 46. .ShowDialog() 47. 48. If .FileName <> "" Then 49. TextBox1.Text = Leer(.FileName) 50. End If 51. End With
8 - Método ReadToEnd - Leer todo el contenido de un archivo de texto y visualizarlo en un texbox
( controles : Un control Button , un textBox1 Multiline )
Texto plano Imprimir
1. Option Explicit On 2. Option Strict On 3. Imports System.IO 4. 5. Public Class Form1 6. 7. Private Sub Form1_Load( _ 8. ByVal sender As System.Object, _ 9. ByVal e As System.EventArgs) Handles MyBase.Load 10. Me.Text = "Ejemplo del método ReadToEnd" 11. Button1.Text = "Abrir archivo de texto " 12. End Sub 13. 14. Private Sub Button1_Click( _ 15. ByVal sender As System.Object, _ 16. ByVal e As System.EventArgs) Handles Button1.Click 17. 18. ' nuevo diálogo 19. Dim OpenFiledlg As New OpenFileDialog 20. With OpenFiledlg 21. .Title = "Seleccionar archivo de texto" 22. .Filter = "Archivos de texto *.txt|*.txt" 23. Try 24. If .ShowDialog = Windows.Forms.DialogResult.OK Then 25. Dim datos As New StreamReader(.FileName) 26. ' lee todo el contenido y lo asigna al textbox 27. TextBox1.Text = datos.ReadToEnd 28. datos.Close() ' cierra 29. End If 30. ' error 31. Catch oMen As Exception 32. MsgBox(oMen.Message, MsgBoxStyle.Critical) 33. End Try 34. End With 35. End Sub 36. End Class
9 - Limpiar todo el contenido de los textbox de un formulario
Ejemplo que recorre mediante un bucle For Each todos los objetos Textbox que se encuentran en el form indicado para eliminar el contenido
1. Imports System.Windows.Forms 2. 3. Public Class Form1 4. 5. Private Sub Limpiar_Cajas(ByVal f As Form) 6. ' recorrer todos los controles del formulario indicado 7. For Each c As Control In f.Controls 8. If TypeOf c Is TextBox Then 9. c.Text = "" ' eliminar el texto 10. End If 11. Next 12. End Sub 13. 14. Private Sub Button1_Click( _ 15. ByVal sender As System.Object, _ 16. ByVal e As System.EventArgs) Handles Button1.Click 17. ' pasar el formulario 18. Call Limpiar_Cajas(Me) 19. 20. End Sub 21. 22. Private Sub Form1_Load( _ 23. ByVal sender As System.Object, _ 24. ByVal e As System.EventArgs) Handles MyBase.Load 25. Button1.Text = "Limpiar textBox" 26. End Sub 27. End Class
3 - Visualizar una hoja de Excel en un DataGridView
Volver - Anterior - Siguiente
Ejemplo en visual basic 2005 para visualizar los datos de una hoja de Excel ( versión excel 2002 o inferior ) en un control DataGridView mediante oleDB
1. Option Explicit On 2. 3. ' Para acceder a OleDB 4. Imports System.Data.OleDb 5. 6. Public Class Form1 7. 8. Private Sub Form1_Load( _ 9. ByVal sender As System.Object, _ 10. ByVal e As System.EventArgs) Handles MyBase.Load 11. 12. btnLoad.Text = "Visualizar hoja" 13. 14. End Sub 15. 16. Private Sub btnLoad_Click( _ 17. ByVal sender As System.Object, _ 18. ByVal e As System.EventArgs) Handles btnLoad.Click 19. 20. Cargar(DataGridView1, "Libro1.xls", "sheet1") 21. 22. End Sub 23. 24. Sub Cargar( _ 25. ByVal dgView As DataGridView, _ 26. ByVal SLibro As String, _ 27. ByVal sHoja As String) 28. 29. 'HDR=YES : Con encabezado 30. Dim cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 31. "Data Source=" & SLibro & ";" & _ 32. "Extended Properties=""Excel 8.0;HDR=YES""" 33. Try 34. ' cadena de conexión 35. Dim cn As New OleDbConnection(cs) 36.
37. If Not System.IO.File.Exists(SLibro) Then 38. MsgBox("No se encontró el Libro: " & _ 39. SLibro, MsgBoxStyle.Critical, _ 40. "Ruta inválida") 41. Exit Sub 42. End If 43. 44. ' se conecta con la hoja sheet 1 45. Dim dAdapter As New OleDbDataAdapter("Select * From [" & sHoja
& "$]", cs) 46. 47. Dim datos As New DataSet 48. 49. ' agrega los datos 50. dAdapter.Fill(datos) 51. 52. With DataGridView1 53. ' llena el DataGridView 54. .DataSource = datos.Tables(0) 55. 56. ' DefaultCellStyle: formato currency 57. 'para los encabezados 1,2 y 3 del DataGrid 58. .Columns(1).DefaultCellStyle.Format = "c" 59. .Columns(2).DefaultCellStyle.Format = "c" 60. .Columns(3).DefaultCellStyle.Format = "c" 61. End With 62. Catch oMsg As Exception 63. MsgBox(oMsg.Message, MsgBoxStyle.Critical) 64. End Try 65. End Sub 66. End Class
Enlace relacionado de la MSDN con 5 ejemplos para conectarse a Microsoft Excel con ADO.NET
19. ' Insertar registros en la tabla 20. Try 21. 22. Dim Sql As String = "INSERT INTO " & _ 23. "Contactos(Nombre,Apellido,Email) " & _ 24. "Values('" & TextBox1.Text & "','" & _ 25. TextBox2.Text & "','" & _ 26. TextBox3.Text & "')" 27. 28. 29. cn.Open() ' abre la conexión 30. 31. Dim cdo As New OleDbCommand(Sql, cn) 32. cdo.ExecuteNonQuery() 33. 34. 'visualizar el registro 35. Dim da As New OleDbDataAdapter("SELECT * From contactos", cn) 36. Dim ds As New DataSet 37. 38. da.Fill(ds, "contactos") 39. 40. With DataGridView1 41. .DataSource = ds.Tables("contactos") 42. .Refresh() 43. End With 44. 45. Catch ex As Exception 46. MsgBox(ex.Message.ToString) 47. Finally 48. ' si la conexión está abierta la cierra 49. If cn.State = ConnectionState.Open Then 50. cn.Close() 51. End If 52. End Try 53. End Sub 54. 55. Private Sub Form1_Load( _ 56. ByVal sender As System.Object, _ 57. ByVal e As System.EventArgs) Handles MyBase.Load 58. 59. Button1.Text = "Insertar registro" 60. TextBox1.Text = "Nombre" 61. TextBox2.Text = "Apellido" 62. TextBox3.Text = "Email" 63. 64. ' inicializa la conexión 65. Dim cn As New OleDbConnection( _ 66. "Provider=SQLOLEDB.1;" & _ 67. "Integrated Security=SSPI; " & _ 68. "Persist Security Info=False;" & _ 69. "User ID=usuario;" & _ 70. "Initial Catalog=;" & _ 71. "Data Source=(local)\SQLEXPRESS") 72. Try 73. 74. 'Comando para crear la base de datos sql : base_prueba 75. Dim SQL As String = _ 76. "IF EXISTS (" & _ 77. "SELECT * " & _ 78. "FROM master..sysdatabases " & _ 79. "WHERE Name = 'base_prueba')" & vbCrLf & _
80. "DROP DATABASE base_prueba" & vbCrLf & _ 81. "CREATE DATABASE base_prueba" 82. 83. ' Abrir la conexión 84. cn.Open() 85. 86. ' Inicializa el comando para ejecutar el sQL 87. Dim cdo As New OleDbCommand(SQL, cn) 88. 89. ' crear la bd 90. cdo.ExecuteNonQuery() 91. 92. ' crear una tabla con tres campos 93. SQL = "USE base_prueba" & vbCrLf & _ 94. "CREATE TABLE Contactos (" & _ 95. "Nombre NVarChar(30) NOT NULL," & _ 96. "Apellido NVarChar(15) NOT NULL," & _ 97. "Email NVarChar(50))" 98. 99. cdo.CommandText = SQL 100. cdo.ExecuteNonQuery() ' ejecutar 101. 102. MsgBox("Se creo la base de datos prueba_bd con la tabla
", _ 103. MsgBoxStyle.Information)
104. ' error 105. Catch ex As Exception 106. MsgBox(ex.Message.ToString) 107. Finally 108. If cn.State = ConnectionState.Open Then 109. cn.Close() ' cierra la conexión 110. End If 111. End Try 112. End Sub 113. End Class
DataGridView desplegable
Volver - Anterior - Siguiente
Ejemplo en vb.net para desplegar un control DataGridView mediante un combobox con estilo DropDownList
Nota: Al ejemplo se le podrian agregar muchas mas opciones de las que tiene ( que no son muchas). y está pensado mas que nada para usarlo en una grilla que solo visualice datos y poder desplegar la lista y seleccionar un valor, ya que el formulario que contiene el DataGridView, no tiene implementadas opciones para eliminar filas, agregar etc., ( es algo bien simple ) , solo tiene un botón para cerrar la lista y poder asignar y mostrar la fila actual en el combo
Descripción
Para enlazar el datagridView al comboBox, se debe crear una instancia de una clase que tiene un método llamado Iniciar, y luego enviarle como parámetro a esa función , los dos controles: El DataGridview a usar y el control combobox
Para indicar la columna del datagridview que se visualizará en el control combo al cerrar la lista o al moverse por las filas de la grilla, se debe indicar el índice al la propiedad ColumnDefault
y tiene algunas otras propiedades para cambiar el ancho y alto del listado, si la lista se muetra como un diálogo modal o normal, y si se visualizará un tooltiptext para el combo
Código fuente
En un formulario con los siguientes controles :
dos controles dataGridView : llamados dataGridview1 y dataGridview2
Dos controles Combobox : ComboBox1 y Combobox2
Código fuente
Texto plano Imprimir
1. Option Explicit On 2. Option Strict On 3. 4. Public Class Form1 5. 6. Private WithEvents mClass1 As Class1 7. Private WithEvents mClass2 As Class1 8. 9. Private Sub Form1_FormClosed( _ 10. ByVal sender As Object, _ 11. ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles M
e.FormClosed 12. 13. If Not mClass1 Is Nothing And mClass2 Is Nothing Then 14. mClass1.Dispose() 15. mClass2.Dispose() 16. 17. mClass1 = Nothing 18. mClass2 = Nothing 19. End If 20. 21. End Sub 22. 23. Private Sub Form1_Load( _ 24. ByVal sender As System.Object, _ 25. ByVal e As System.EventArgs) Handles MyBase.Load 26. 27. ' agregar algunos datos al datagridview 1 28. With DataGridView1 29. .Columns.Add("id", "Id") 30. .Columns.Add("Producto", "Producto") 31. .Columns.Add("Precio", "Precio") 32. .Columns.Add("stock", "Stock actual") 33. .Columns.Add("Proveedor", "Contacto Proveedor") 34. 35. .RowCount = 100 36. 37. For i As Integer = 0 To .RowCount - 1 38. .Item(0, i).Value = i.ToString 39. .Item(1, i).Value = "Producto " & i.ToString 40. .Item(2, i).Value = Format(225 + i, "c") 41. .Item(3, i).Value = CInt(Rnd() * 100) 42. .Item(4, i).Value = "Proveedor: " & i.ToString 43. Next 44. End With 45. 46. ' DataGridView 2 47. 48. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
53. .Columns.Add("Apellido", "Apellido") 54. 55. .RowCount = 100 56. 57. For i As Integer = 0 To .RowCount - 1 58. .Item(0, i).Value = i.ToString 59. .Item(1, i).Value = "Nombre " & i.ToString 60. .Item(2, i).Value = "Apellido" & i.ToString 61. 62. Next 63. 64. End With 65. 66. 67. ' 1 - nueva instancia 68. mClass1 = New Class1 69. 70. ' configurar 71. With mClass1 72. ' indicar el combo y el datagridview 73. .Iniciar(ComboBox1, DataGridView1) 74. 75. .AltoLista = 400 ' alto 76. .ColumnaDefault = 1 ' columna que se va a mostrar 77. .ShowToolTip = True ' mostrar o no el toolTiptext 78. .ShowDialog = False ' modal o normal 79. 80. End With 81. 82. 83. 84. ' 2 -- 85. ''''''''''''''''''''''''' 86. mClass2 = New Class1 87. 88. With mClass2 89. .Iniciar(ComboBox2, DataGridView2) 90. .AltoLista = 120 91. .AnchoLista = 350 92. .ColumnaDefault = 0 93. .ShowDialog = True 94. 95. .ShowToolTip = True 96. End With 97. 98. ComboBox1.Items.Add(DataGridView1.Item(1, 0).Value.ToString) 99. ComboBox1.SelectedIndex = 0 100. 101. ComboBox2.Items.Add(DataGridView1.Item(0, 0).Value.ToString)
102. ComboBox2.SelectedIndex = 0 103. 104. End Sub 105. 106. Private Sub mClass1_ButtonClose() Handles mClass1.onButtonClose 107. mClass1.closeList() 108. End Sub 109. Private Sub mClass2_ButtonClose() Handles mClass2.onButtonClose 110. mClass2.closeList() 111. End Sub 112.
113. End Class
Código de la clase llamada Class1
Texto plano Imprimir
1. Option Explicit On 2. Option Strict On 3. 4. Public Class Class1 5. 6. ' función PostMessage para cancelar el DropDown 7. Private Const CB_SHOWDROPDOWN As Integer = &H14F 8. Private Declare Function PostMessage _ 9. Lib "user32" _ 10. Alias "PostMessageA" ( _ 11. ByVal hwnd As IntPtr, _ 12. ByVal wMsg As Integer, _ 13. ByVal wParam As Integer, _ 14. ByVal lParam As Integer) As Integer 15. 16. ' Variables para los controles 17. Private WithEvents m_ComboBox As ComboBox 18. Private WithEvents m_DataGridView As DataGridView 19. Private WithEvents m_frm_Container As Form 20. Private WithEvents m_ButtonClose As Button 21.
22. ' variables
23. 60 - Guardar y eliminar registros en DataGridview
Volver - Anterior - Siguiente
Ejemplo para actualizar y guardar cambios realizados en un control DataGridview
El ejemplo tiene tres botones , uno para actualizar los cambios realizados en la grilla, otro para eliminar el registro seleccionado y otro para crear uno nuevo
Tres controles Button ( btn_delete, btn_Update, btn_new) para eliminar ,
guardar y crear un nuevo registro
Cuatro button ( btn_first, btn_Previous, btn_next y btn_last) para moverse por
los registros de la tabla usando los métodos MoveFirst , MoveNext etc.. del
componente Bindingsource
Establecer la cadena de conexión y la instrucción sql para cargar la tabla en el
datagridview
Código fuente
Texto plano Imprimir
1. Option Explicit On 2. Option Strict On 3. 4. ' Espacios de nombres 5. ' ''''''''''''''''''''''''''''''''''''''''' 6. Imports System.Data.SqlClient 7. 8. Public Class Form1
9. 10. 'BindingSource 11. Private WithEvents bs As New BindingSource 12. 13. ' Adaptador de datos sql 14. Private SqlDataAdapter As SqlDataAdapter 15. 16. ' Cadena de conexión 17. Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _ 18. "Initial Catalog=demo_bd;" & _ 19. "Integrated Security=true" 20. 21. ' flag 22. Private bEdit As Boolean 23. 24. 25. ' actualizar los cambios al salir 26. ' '''''''''''''''''''''''''''''''''''''''' 27. Private Sub Form1_FormClosing( _ 28. ByVal sender As Object, _ 29. ByVal e As System.Windows.Forms.FormClosingEventArgs) _ 30. Handles Me.FormClosing 31. 32. If bEdit Then 33. 'preguntar si se desea guardar 34. If (MsgBox( _ 35. "Guardar cambios ?", _ 36. MsgBoxStyle.YesNo, _ 37. "guardar")) = MsgBoxResult.Yes Then 38. 39. Actualizar(False) 40. End If 41. End If 42. End Sub 43. 44. Private Sub Form1_Load( _ 45. ByVal sender As System.Object, _ 46. ByVal e As System.EventArgs) Handles MyBase.Load 47. 48. ' propiedades del datagrid 49. ' ''''''''''''''''''''''''''''''''''''' 50. With DataGridView1 51. ' alternar color de filas 52. .AlternatingRowsDefaultCellStyle.BackColor = Color.FloralWhite 53. .DefaultCellStyle.BackColor = Color.Beige 54. ' Establecer el origen de datos para el DataGridview 55. .DataSource = bs 56. End With 57. 58. ' botones 59. ' ''''''''''''''''''''''''''''''''''''' 60. btn_Update.Text = "Guardar cambios" 61. btn_delete.Text = "Eliminar registro" 62. btn_new.Text = "Nuevo" 63. 64. btn_first.Text = "<<" 65. btn_Previous.Text = "<" 66. btn_next.Text = ">" 67. btn_last.Text = ">>" 68.
69. ' cagar los datos 70. cargar_registros("Select * From alumnos Order by Apellido", DataGridView1) 71. 72. End Sub 73. 74. Private Sub cargar_registros( _ 75. ByVal sql As String, _ 76. ByVal dv As DataGridView) 77. 78. Try 79. ' Inicializar el SqlDataAdapter indicandole el comando y el con
nection string 80. SqlDataAdapter = New SqlDataAdapter(sql, cs) 81. 82. Dim SqlCommandBuilder As New SqlCommandBuilder(SqlDataAdapter) 83. 84. ' llenar el DataTable 85. Dim dt As New DataTable() 86. SqlDataAdapter.Fill(dt) 87. 88. ' Enlazar el BindingSource con el datatable anterior 89. ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 90. bs.DataSource = dt 91. 92. With dv 93. .Refresh() 94. ' coloca el registro arriba de todo 95. .FirstDisplayedScrollingRowIndex = bs.Position 96. End With 97. 98. bEdit = False 99. 100. Catch exSql As SqlException 101. MsgBox(exSql.Message.ToString) 102. Catch ex As Exception 103. MsgBox(ex.Message.ToString) 104. End Try 105. End Sub 106. 107. ' botón para guardar los cambios y llenar la grilla 108. Private Sub Button1_Click( _ 109. ByVal sender As System.Object, _ 110. ByVal e As System.EventArgs) Handles btn_Update.Click 111. 112. Actualizar() 113. 114. End Sub 115. 116. 117. ' Eliminar el elemento actual del BindingSource y actualizar 118. Private Sub btn_delete_Click( _ 119. ByVal sender As System.Object, _ 120. ByVal e As System.EventArgs) Handles btn_delete.Click 121. 122. If Not bs.Current Is Nothing Then 123. ' eliminar 124. bs.RemoveCurrent() 125. 126. 'Guardar los cambios y recargar 127. Actualizar() 128. Else
129. MsgBox("No hay un registro actual para eliminar", _ 130. MsgBoxStyle.Exclamation, _ 131. "Eliminar") 132. End If 133. 134. 135. End Sub 136. 137. Private Sub Actualizar(Optional ByVal bCargar As Boolean = True)
138. ' Actualizar y guardar cambios 139. 140. If Not bs.DataSource Is Nothing Then 141. SqlDataAdapter.Update(CType(bs.DataSource, DataTable)) 142. If bCargar Then 143. cargar_registros("Select * From alumnos Order by Apellido", Data
GridView1) 144. End If 145. End If 146. End Sub 147. 148. Private Sub btn_first_Click( _ 149. ByVal sender As System.Object, _ 150. ByVal e As System.EventArgs) _ 151. Handles btn_first.Click, btn_last.Click, btn_next.Click,
btn_Previous.Click 152. 153. ' Botones para moverse por los registros 154. ' ''''''''''''''''''''''''''''''''''''''''''''' 155. 156. If sender Is btn_Previous Then 157. bs.MovePrevious() 158. ElseIf sender Is btn_first Then 159. bs.MoveFirst() 160. ElseIf sender Is btn_next Then 161. bs.MoveNext() 162. ElseIf sender Is btn_last Then 163. bs.MoveLast() 164. End If 165. 166. End Sub 167. 168. Private Sub DataGridView1_CellEndEdit( _ 169. ByVal sender As Object, _ 170. ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
171. Handles DataGridView1.CellEndEdit 172. 173. bEdit = True 174. End Sub 175. 176. ' nuevo registro 177. Private Sub btn_new_Click( _ 178. ByVal sender As System.Object, _ 179. ByVal e As System.EventArgs) Handles btn_new.Click 180. 181. bs.AddNew() 182. 183. End Sub 184. End Class
46 - Cargar campo en un Combobox
Volver - Anterior - Siguiente
Simple ejemplo en visual basic.net , para cargar un campo de una tabla en un control ComboBox
En el ejemplo, primero se crea una nueva conexión hacia la base de datos de de sql server., en este caso se llama base_prueba
Paso 2, se crea un SqlCommand pasándole la consulta , por ejemplo : "Select Campo From Tabla"
Paso 3 se llena un DataSet con los datos
Paso 4 se asigna al DataSource del ComboBox el dataset
Paso 5 Se indica a la propiedad DisplayMember del combobox , el nombre del campo a visualizar
Código fuente
Texto plano Imprimir
1. Option Explicit On 2. Option Strict On 3. 4. ' Espacio 5. Imports System.Data.SqlClient 6. 7. Public Class Form1 8. ' Cadena de conexión 9. Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _ 10. "Integrated Security=True;" & _ 11. "Initial Catalog=bd_prueba" 12. 13. Private Sub Form1_Load( _ 14. ByVal sender As System.Object, _ 15. ByVal e As System.EventArgs) Handles MyBase.Load 16. 17. 'enviar el control ComboBox y la consulta 18. cargar_Combo(ComboBox1, "Select Apellido From t_clientes") 19. 20. End Sub
21. 22. Private Sub cargar_Combo( _ 23. ByVal ComboBox As ComboBox, _ 24. ByVal sql As String) 25. 26. ' nueva conexión indicando al SqlConnection la cadena de conexión 27. Dim cn As New SqlConnection(cs) 28. 29. Try 30. 31. ' Abrir la conexión a Sql 32. cn.Open() 33. 34. ' Pasar la consulta sql y la conexión al Sql Command 35. Dim cmd As New SqlCommand(sql, cn) 36. 37. ' Inicializar un nuevo SqlDataAdapter 38. Dim da As New SqlDataAdapter(cmd) 39. 40. 'Crear y Llenar un Dataset 41. Dim ds As New DataSet 42. da.Fill(ds) 43. 44. ' asignar el DataSource al combobox 45. ComboBox.DataSource = ds.Tables(0) 46. 47. ' Asignar el campo a la propiedad DisplayMember del combo 48. ComboBox.DisplayMember = ds.Tables(0).Columns(0).Caption.ToStri
ng 49. 50. Catch ex As Exception 51. MessageBox.Show(ex.Message.ToString, _ 52. "error", MessageBoxButtons.OK, _ 53. MessageBoxIcon.Error) 54. Finally 55. If cn.State = ConnectionState.Open Then 56. cn.Close() 57. End If 58. End Try 59. End Sub 60. End Class
51 - Filtrar un control DatagridView
Volver - Anterior - Siguiente
Código de ejemplo realizado en vb.net 2005 para filtrar un control BindingSource y luego enlazarlo a un DatagridView
En el ejemplo primero se conecta a un base de datos x de sql server para obtener todos los registros de una tabla en un objeto DataTable.
Luego se enlaza ese objeto DataTable que tiene los datos de la tabla a un componente BindingSource.
Por último , se utiliza la propiedad Filter del BindingSource para filtrar los datos por un determinado campo, y una ves filtrado se enlaza al DatagridView para visualizar los registros
Controles para el ejemplo
Añadir un control DataGridView : DataGridView1
Un control TextBox para escribir el valor
Un Combo para la opción del filtro
Indicar la cadena de conexión
( Espacio de nombres usado : System.Data.SqlClient para acceder al cliente de
sql )
Nota: establecer en el primer parámetro de la subRutina Filtrar_DatagridView, el nombre del campo por el cual filtrar ( debe ser un campo de tipo texto )
Código fuente
Texto plano Imprimir
1. Option Explicit On 2. Option Strict On 3. 4. ' espacio de nombres para poder acceder al cliente sql 5. Imports System.Data 6. Imports System.Data.SqlClient 7. 8. Public Class Form1 9. 10. ' enumeración para las opciones que se usarán 11. ' para filtrar con el operador Like 12. Enum e_FILTER_OPTION 13. SIN_FILTRO = 0 14. CADENA_QUE_COMIENCE_CON = 1 15. CADENA_QUE_NO_COMIENCE_CON = 2 16. CADENA_QUE_CONTENGA = 3 17. CADENA_QUE_NO_CONTENGA = 4 18. CADENA_IGUAL = 5 19. End Enum 20. 21. ' cadena de conexión para SQL EXPRESS en modo local 22. Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _ 23. "Integrated Security=True;" & _ 24. "Initial Catalog=la_base_de_datos" 25. 26. 'Instanciar el componente BindingSource 27. Private BindingSource1 As Windows.Forms.BindingSource = New BindingSour
ce 28. 29. Private Sub Form1_Load( _ 30. ByVal sender As System.Object, _ 31. ByVal e As System.EventArgs) Handles MyBase.Load 32. 33. 34. Try 35. ' Inicializar la conexión y abrir 36. Using cn As SqlConnection = New SqlConnection(cs) 37. cn.Open() 38. 39. ' Inicializar DataAdapter indicando el sql para recuperar 40. 'los registros de la tabla 41. Dim da As New SqlDataAdapter("SELECT * FROM la_tabla", cn) 42. Dim dt As New DataTable ' crear un DataTable 43. 44. ' llenarlo 45. da.Fill(dt) 46. 47. ' enlazar el DataTable al BindingSource 48. BindingSource1.DataSource = dt 49. 50. ' agregar las opciones al combobox 51. With (ComboBox1) 52.
53. 'cargar los items de opciones para filtrar 54. .Items.Add("No filtrar") 55. .Items.Add("Que comience con") 56. .Items.Add("Que No comience con") 57. .Items.Add("Que contenga") 58. .Items.Add("Que No contenga") 59. .Items.Add("Que sea igual") 60. 61. .DropDownStyle = ComboBoxStyle.DropDownList 62. .SelectedIndex = 1 63. End With 64. End Using 65. ' errores 66. Catch ex As Exception 67. MsgBox(ex.Message.ToString) 68. End Try 69. End Sub 70. 71. 72. Private Sub Aplicar_Filtro() 73. 74. ' filtrar por el campo Producto 75. '''''''''''''''''''''''''''''''''''''''''''''''''''' 76. Dim ret As Integer = Filtrar_DataGridView( _ 77. "Producto", _ 78. TextBox1.Text.Trim, _ 79. BindingSource1, _ 80. DataGridView1, _ 81. CType(ComboBox1.SelectedIndex, e_FI
LTER_OPTION)) 82. 83. If ret = 0 Then 84. ' si no hay registros cambiar el color del txtbox 85. TextBox1.BackColor = Color.Red 86. Else 87. TextBox1.BackColor = Color.White 88. End If 89. ' visualizar la cantidad de registros 90. Me.Text = ret & " Registros encontrados" 91. 92. End Sub 93. 94. Function Filtrar_DataGridView( _ 95. ByVal Columna As String, _ 96. ByVal texto As String, _ 97. ByVal BindingSource As BindingSource, _ 98. ByVal DataGridView As DataGridView, _ 99. Optional ByVal Opcion_Filtro As e_FILTER_OPTION = Nothing) As Integ
er 100. 101. ' verificar que el DataSource no esté vacio 102. If BindingSource1.DataSource Is Nothing Then 103. Return 0 104. End If 105. 106. Try 107. 108. Dim filtro As String = String.Empty 109. 110. ' Seleccionar la opción 111. Select Case Opcion_Filtro
112. Case e_FILTER_OPTION.CADENA_QUE_COMIENCE_CON 113. filtro = "like '" & texto.Trim & "%'" 114. Case e_FILTER_OPTION.CADENA_QUE_NO_COMIENCE_CON 115. filtro = "Not like '" & texto.Trim & "%'" 116. Case e_FILTER_OPTION.CADENA_QUE_NO_CONTENGA 117. filtro = "Not like '%" & texto.Trim & "%'" 118. Case e_FILTER_OPTION.CADENA_QUE_CONTENGA 119. filtro = "like '%" & texto.Trim & "%'" 120. Case e_FILTER_OPTION.CADENA_IGUAL 121. filtro = "='" & texto.Trim & "'" 122. End Select 123. ' Opción para no filtrar 124. If Opcion_Filtro = e_FILTER_OPTION.SIN_FILTRO Then 125. filtro = String.Empty 126. End If 127. 128. ' armar el sql 129. If filtro <> String.Empty Then 130. filtro = "[" & Columna & "]" & filtro 131. End If 132. 133. ' asigar el criterio a la propiedad Filter del BindingSo
urce 134. BindingSource.Filter = filtro 135. ' enlzar el datagridview al BindingSource 136. DataGridView.DataSource = BindingSource.DataSource 137. 138. ' retornar la cantidad de registros encontrados 139. Return BindingSource.Count 140. 141. ' errores 142. Catch ex As Exception 143. MsgBox(ex.Message.ToString, MsgBoxStyle.Critical) 144. End Try 145. 146. Return 0 147. 148. End Function 149. 150. Private Sub txt_Filtro_TextChanged( _ 151. ByVal sender As System.Object, _ 152. ByVal e As System.EventArgs) Handles textbox1.TextChanged 153. 154. Aplicar_Filtro() 155. 156. End Sub 157. End Class
El mismo ejemplo pero para filtrar un campo de tipo numérico
1. Option Explicit On 2. Option Strict On 3. 4. Imports System.Data 5. Imports System.Data.SqlClient 6. 7. Public Class Form1 8. Enum e_FILTER_OPTION 9. SIN_FILTRO = 0 10. NUMERICO_MENOR = 1 11. NUMERICO_MAYOR = 2 12. NUMERICO_MENOR_IGUAL = 3 13. NUMERICO_MAYOR_IGUAL = 4 14. NUMERICO_IGUAL = 5 15. NUMERICO_DISTINTO = 6 16. End Enum 17. 18. Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _ 19. "Integrated Security=True;" & _ 20. "Initial Catalog=la_base_de_datos" 21. 22. 'Instanciar el componente BindingSource 23. Private BindingSource1 As Windows.Forms.BindingSource = New BindingSour
ce 24. 25. Private Sub Form1_Load( _ 26. ByVal sender As System.Object, _ 27. ByVal e As System.EventArgs) Handles MyBase.Load 28. 29. 30. Try 31. 32. Using cn As SqlConnection = New SqlConnection(cs) 33. cn.Open() 34. 35. Dim da As New SqlDataAdapter("SELECT * FROM la_tabla", cn) 36. Dim dt As New DataTable 37. 38. da.Fill(dt) 39. 40. 41. BindingSource1.DataSource = dt 42. With (ComboBox1) 43. .Items.Add("No filtrar") 44. .Items.Add("Menor") 45. .Items.Add("Mayor") 46. .Items.Add("Menor o igual") 47. .Items.Add("Mayor o igual") 48. .Items.Add("Igual") 49. .Items.Add("Distinto") 50. 51. .DropDownStyle = ComboBoxStyle.DropDownList 52. .SelectedIndex = 1 53. End With 54. End Using 55. Catch ex As Exception 56. MsgBox(ex.Message.ToString) 57. End Try 58. End Sub 59.
60. 61. Private Sub filtrar() 62. 63. ' filtrar por el campo Id de tipo numérico 64. '''''''''''''''''''''''''''''''''''''''''''''''''''' 65. Dim ret As Integer = Filtrar_DataGridView( _ 66. "Id", _ 67. TextBox1.Text.Trim, _ 68. BindingSource1, _ 69. DataGridView1, _ 70. CType(ComboBox1.SelectedIndex, e_FI
LTER_OPTION)) 71. 72. If ret = 0 Then 73. TextBox1.BackColor = Color.Red 74. Else 75. TextBox1.BackColor = Color.White 76. End If 77. Me.Text = ret & " Registros encontrados" 78. 79. End Sub 80. 81. Function Filtrar_DataGridView( _ 82. ByVal Columna As String, _ 83. ByVal dato As String, _ 84. ByVal BindingSource As BindingSource, _ 85. ByVal DataGridView As DataGridView, _ 86. Optional ByVal Opcion_Filtro As e_FILTER_OPTION = Nothing) As Integ
er 87. If BindingSource1.DataSource Is Nothing Then 88. Return 0 89. End If 90. 91. Try 92. 93. Dim filtro As String = String.Empty 94. 95. ' Seleccionar la opción 96. Select Case Opcion_Filtro 97. Case e_FILTER_OPTION.NUMERICO_MENOR 98. filtro = "< " & dato.Trim & "" 99. Case e_FILTER_OPTION.NUMERICO_MAYOR 100. filtro = "> " & dato.Trim & "" 101. Case e_FILTER_OPTION.NUMERICO_MENOR_IGUAL 102. filtro = "<= " & dato.Trim & "" 103. Case e_FILTER_OPTION.NUMERICO_MAYOR_IGUAL 104. filtro = ">= " & dato.Trim & "" 105. Case e_FILTER_OPTION.NUMERICO_IGUAL 106. filtro = "= " & dato.Trim & "" 107. Case e_FILTER_OPTION.NUMERICO_DISTINTO 108. filtro = "<> " & dato.Trim & "" 109. End Select 110. 111. ' Sin filtro 112. If Opcion_Filtro = e_FILTER_OPTION.SIN_FILTRO Or Not IsN
umeric(dato.Trim) Then 113. filtro = String.Empty 114. End If 115. 116. If filtro <> String.Empty Then 117. filtro = "[" & Columna & "]" & filtro
118. End If 119. 120. BindingSource.Filter = filtro 121. 122. DataGridView.DataSource = BindingSource.DataSource 123. Return BindingSource.Count 124. 125. Catch ex As Exception 126. MsgBox(ex.Message.ToString, MsgBoxStyle.Critical) 127. End Try 128. 129. Return 0 130. 131. End Function 132. 133. Private Sub txt_Filtro_TextChanged( _ 134. ByVal sender As System.Object, _ 135. ByVal e As System.EventArgs) Handles TextBox1.TextChanged 136. 137. filtrar() 138. 139. End Sub 140. 141. Private Sub Combo1_SelectedIndexChanged( _ 142. ByVal sender As System.Object, _ 143. ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndex
Changed 144. filtrar() 145. End Sub 146. End Class
Nota: si se quiere filtrar por varios campos, se debe indicar al filter la condición por ejemplo de la siguiente manera.
Ejemplo para alternar mediante la propiedad backColor del objeto AlternatingRowsDefaultCellStyle , el color de filas en un control Datagridview
Formulario
Controles
Un DataGridview ( DataGridView1 )
un CheckBox
Código fuente
Texto plano Imprimir
1. Option Explicit On 2. Option Strict On 3. 4. Public Class Form1 5. 6. Private Sub Form1_Load( _ 7. ByVal sender As System.Object, _ 8. ByVal e As System.EventArgs) Handles MyBase.Load 9. 10. 11. CheckBox1.Text = "Alternar color de fila" 12. 13. 14. ' Agregar 3 headers 15. With DataGridView1 16.
ateString 29. Next 30. 31. ' Establecer el RowsDefaultCellStyle - color de fondo de las celdas 32. .RowsDefaultCellStyle.BackColor = Color.White 33. 34. ' alineación para la columna 1 35. .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAli
gnment.MiddleCenter 36. 37. End With 38. End Sub 39. 40. Private Sub CheckBox1_CheckedChanged( _ 41. ByVal sender As System.Object, _ 42. ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged 43. With DataGridView1 44. 45. ' alternar colores 46. If CheckBox1.Checked Then 47. 48. .RowsDefaultCellStyle.BackColor = Color.White 49. 50. .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlu
e 51. 52. 53. Else ' Sin alternar 54. .AlternatingRowsDefaultCellStyle.BackColor = .RowsDefaultCe
llStyle.BackColor 55. End If 56. End With 57. 58. End Sub 59. End Class
Ejemplo para actualizar y guardar cambios realizados en un control DataGridview
El ejemplo tiene tres botones , uno para actualizar los cambios realizados en la grilla, otro para eliminar el registro seleccionado y otro para crear uno nuevo
Controles en un windows form
Un DataGridview
Tres controles Button ( btn_delete, btn_Update, btn_new) para eliminar ,
guardar y crear un nuevo registro
Cuatro button ( btn_first, btn_Previous, btn_next y btn_last) para moverse por
los registros de la tabla usando los métodos MoveFirst , MoveNext etc.. del
componente Bindingsource
Establecer la cadena de conexión y la instrucción sql para cargar la tabla en el
datagridview
Código fuente
Texto plano Imprimir
1. Option Explicit On 2. Option Strict On 3. 4. ' Espacios de nombres 5. ' ''''''''''''''''''''''''''''''''''''''''' 6. Imports System.Data.SqlClient 7. 8. Public Class Form1 9. 10. 'BindingSource 11. Private WithEvents bs As New BindingSource 12. 13. ' Adaptador de datos sql 14. Private SqlDataAdapter As SqlDataAdapter 15. 16. ' Cadena de conexión 17. Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _ 18. "Initial Catalog=demo_bd;" & _ 19. "Integrated Security=true" 20. 21. ' flag 22. Private bEdit As Boolean 23. 24. 25. ' actualizar los cambios al salir 26. ' '''''''''''''''''''''''''''''''''''''''' 27. Private Sub Form1_FormClosing( _ 28. ByVal sender As Object, _ 29. ByVal e As System.Windows.Forms.FormClosingEventArgs) _ 30. Handles Me.FormClosing 31. 32. If bEdit Then 33. 'preguntar si se desea guardar 34. If (MsgBox( _ 35. "Guardar cambios ?", _ 36. MsgBoxStyle.YesNo, _ 37. "guardar")) = MsgBoxResult.Yes Then 38. 39. Actualizar(False) 40. End If 41. End If 42. End Sub 43. 44. Private Sub Form1_Load( _ 45. ByVal sender As System.Object, _ 46. ByVal e As System.EventArgs) Handles MyBase.Load 47. 48. ' propiedades del datagrid 49. ' ''''''''''''''''''''''''''''''''''''' 50. With DataGridView1 51. ' alternar color de filas 52. .AlternatingRowsDefaultCellStyle.BackColor = Color.FloralWhite 53. .DefaultCellStyle.BackColor = Color.Beige 54. ' Establecer el origen de datos para el DataGridview
55. .DataSource = bs 56. End With 57. 58. ' botones 59. ' ''''''''''''''''''''''''''''''''''''' 60. btn_Update.Text = "Guardar cambios" 61. btn_delete.Text = "Eliminar registro" 62. btn_new.Text = "Nuevo" 63. 64. btn_first.Text = "<<" 65. btn_Previous.Text = "<" 66. btn_next.Text = ">" 67. btn_last.Text = ">>" 68. 69. ' cagar los datos 70. cargar_registros("Select * From alumnos Order by Apellido", DataGridView1) 71. 72. End Sub 73. 74. Private Sub cargar_registros( _ 75. ByVal sql As String, _ 76. ByVal dv As DataGridView) 77. 78. Try 79. ' Inicializar el SqlDataAdapter indicandole el comando y el con
nection string 80. SqlDataAdapter = New SqlDataAdapter(sql, cs) 81. 82. Dim SqlCommandBuilder As New SqlCommandBuilder(SqlDataAdapter) 83. 84. ' llenar el DataTable 85. Dim dt As New DataTable() 86. SqlDataAdapter.Fill(dt) 87. 88. ' Enlazar el BindingSource con el datatable anterior 89. ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 90. bs.DataSource = dt 91. 92. With dv 93. .Refresh() 94. ' coloca el registro arriba de todo 95. .FirstDisplayedScrollingRowIndex = bs.Position 96. End With 97. 98. bEdit = False 99. 100. Catch exSql As SqlException 101. MsgBox(exSql.Message.ToString) 102. Catch ex As Exception 103. MsgBox(ex.Message.ToString) 104. End Try 105. End Sub 106. 107. ' botón para guardar los cambios y llenar la grilla 108. Private Sub Button1_Click( _ 109. ByVal sender As System.Object, _ 110. ByVal e As System.EventArgs) Handles btn_Update.Click 111. 112. Actualizar() 113. 114. End Sub
115. 116. 117. ' Eliminar el elemento actual del BindingSource y actualizar 118. Private Sub btn_delete_Click( _ 119. ByVal sender As System.Object, _ 120. ByVal e As System.EventArgs) Handles btn_delete.Click 121. 122. If Not bs.Current Is Nothing Then 123. ' eliminar 124. bs.RemoveCurrent() 125. 126. 'Guardar los cambios y recargar 127. Actualizar() 128. Else 129. MsgBox("No hay un registro actual para eliminar", _ 130. MsgBoxStyle.Exclamation, _ 131. "Eliminar") 132. End If 133. 134. 135. End Sub 136. 137. Private Sub Actualizar(Optional ByVal bCargar As Boolean = True)
138. ' Actualizar y guardar cambios 139. 140. If Not bs.DataSource Is Nothing Then 141. SqlDataAdapter.Update(CType(bs.DataSource, DataTable)) 142. If bCargar Then 143. cargar_registros("Select * From alumnos Order by Apellido", Data
GridView1) 144. End If 145. End If 146. End Sub 147. 148. Private Sub btn_first_Click( _ 149. ByVal sender As System.Object, _ 150. ByVal e As System.EventArgs) _ 151. Handles btn_first.Click, btn_last.Click, btn_next.Click,
btn_Previous.Click 152. 153. ' Botones para moverse por los registros 154. ' ''''''''''''''''''''''''''''''''''''''''''''' 155. 156. If sender Is btn_Previous Then 157. bs.MovePrevious() 158. ElseIf sender Is btn_first Then 159. bs.MoveFirst() 160. ElseIf sender Is btn_next Then 161. bs.MoveNext() 162. ElseIf sender Is btn_last Then 163. bs.MoveLast() 164. End If 165. 166. End Sub 167. 168. Private Sub DataGridView1_CellEndEdit( _ 169. ByVal sender As Object, _ 170. ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
171. Handles DataGridView1.CellEndEdit
172. 173. bEdit = True 174. End Sub 175. 176. ' nuevo registro 177. Private Sub btn_new_Click( _ 178. ByVal sender As System.Object, _ 179. ByVal e As System.EventArgs) Handles btn_new.Click 180. 181. bs.AddNew() 182. 183. End Sub 184. End Class
64 - Cargar rango de Excel en DataGridView
Volver - Anterior - Siguiente
Simple ejemplo para cargar un rango de una hoja de Excel en un DataGridView
El siguiente es un simple código fuente para poder conectarse a una hoja de un libro, leer un rango de datos y mostrarlos o cargarlos en un control de tipo DataGridView.
Para el ejemplo colocar en un Form los siguientes controles:
Un TextBox : llamado txtRange ( Para indicar el rango a cargar en la grilla)
1. Option Explicit On 2. Option Strict On 3. 4. Public Class Form1 5. Private Sub Form1_Load( _ 6. ByVal sender As System.Object, _ 7. ByVal e As System.EventArgs) Handles MyBase.Load 8. 9. Button1.Text = "Cargar" 10. txtRange.Text = "A1:C15" 11. 12. End Sub 13. 14. Private Sub Button1_Click( _ 15. ByVal sender As System.Object, _ 16. ByVal e As System.EventArgs) Handles Button1.Click 17. 18. ' // Pasar valores para Leer el rango 19. loadRange("c:\book1.xls", "sheet1", txtRange.Text, DataGridView1) 20. 21. End Sub 22. 23. ' ---------------------------------------------------------------------------------- 24. ' // Subrutina para conectar al libro Excel y obtener el rango de datos 25. ' ---------------------------------------------------------------------------------- 26. Private Sub loadRange( _ 27. ByVal sFileName As String, _ 28. ByVal sSheetName As String, _ 29. ByVal sRange As String, _ 30. ByVal dv As DataGridView)
31. 32. Try 33. ' // Comprobar que el archivo Excel existe 34. If System.IO.File.Exists(sFileName) Then 35. 36. Dim objDataSet As System.Data.DataSet 37. Dim objDataAdapter As System.Data.OleDb.OleDbDataAdapter 38. ' // Declarar la Cadena de conexión 39. Dim sCs As String = "provider=Microsoft.Jet.OLEDB.4.0; " &
"data source=" & sFileName & "; Extended Properties=Excel 8.0;" 40. Dim objOleConnection As System.Data.OleDb.OleDbConnection 41. objOleConnection = New System.Data.OleDb.OleDbConnection(sC
s) 42. 43. ' // Declarar la consulta SQL que indica el libro y el rango de la hoja 44. Dim sSql As String = "select * from " & "[" & sSheetName &
"$" & sRange & "]" 45. ' // Obtener los datos 46. objDataAdapter = New System.Data.OleDb.OleDbDataAdapter(sSq
l, objOleConnection) 47. 48. ' // Crear DataSet y llenarlo 49. objDataSet = New System.Data.DataSet 50. 51. objDataAdapter.Fill(objDataSet) 52. ' // Cerrar la conexión 53. objOleConnection.Close() 54. 55. ' // Enlazar DataGrid al Dataset 56. With dv 57. .DataSource = objDataSet 58. .DataMember = objDataSet.Tables(0).TableName 59. End With 60. Else 61. MsgBox("No se ha encontrado el archivo: " & sFileName, MsgB
oxStyle.Exclamation) 62. End If 63. 64. Exit Sub 65. Catch ex As Exception 66. MsgBox(ex.Message, MsgBoxStyle.Critical) 67. End Try 68. 69. End Sub 70. End Class
Nota. Ejemplo probado con Excel 2000 y Visual basic 2005
Impresión o Impresión de un gráfico o Impresión de un texto o Impresión de un archivo
Bases de Datos o ADO.NET o Conexión
Creación de una Conexión o Adaptador de Datos
Creación de un Adaptador de Datos o DataSet
Generación de un Dataset o Data-aware o Controles Enlazados o Método Fill o Navegación de un Dataset o Manipulación de la Base de Datos o Bases de Datos y Datagrid o Modificación de la base de datos con DataGrid
Web o Web Forms o Arquitectura Tres Capas (Three-Tier)
Capa de Presentación - Presentation Layer Capa de Aplicación - Application Layer Capa de Datos - Data Layer
o State Management o Técnicas de Administración de Estados del Lado del Cliente
View State Query String Cookies
o Técnicas de Administración de Estados del Lado del Servidor Application State Sesion State Database Support
Sistemas Inteligentes
Impresión
Si requiere imprimir, Visual Basic .NET utiliza como mecanismo la Clase PrintDocument (agregando el control al formulario o a través de código), en vez de hacerlo con el objeto Printer como se hace en Visual Basic 6.
Para la interfaz de impresión es posible utilizar los controles de cuadros de diálogo como PrintDialog, PrintPreviewDialog y pageSetupDialog
Si requiere imprimir varias páginas deberá crear un manejador de eventos PrintPage que imprima un documento página a página.
La Clase PrintDocument dispone de objetos como PrinterSettings que define la impresión predeterminada para una impresora, el objetoPageSettings que define la impresión predeterminada para una página o el objeto PrintPageEventArgs, que define la información de eventos de la página a imprimir.
El espacio de nombres System.Drawing.Printing contiene la clase PrintDocument, al agregar un control PrintDocument a un formulario, algunos objetos se agregan de manera automática al proyecto, pero será necesario importar al principio del formulario:
Imports System.Drawing.Printing
Cuando es invocado el método PrintDocument, el evento PrintPage es invocado para cada página que se imprima. El métodoGraphics.MeasureString cuantifica el tamaño del string y determina el número de caracteres adecuado y líneas para el string especificado, fuente, tamaño máximo y formato. El
método Graphics.PrintString dibuja el string utilizando font, brush, destination point y format. La propiedadHasMorePages indica cuando una página adicional debería ser impresa.
Impresión de un gráfico
Importe la Clase System.Drawing.Printing al inicio del formulario:
Imports System.Drawing.PrintingPublic Class Form1...
Agregue un control PrintDocument (no es visible en su formulario, pero si debajo de este)
Escriba el código del manejador:
Private Sub imprimirImagen(ByVal sender As System.Object, ByVal ePrint As PrintPageEventArgs)
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnPrint.Click Try AddHandler printDoc.PrintPage, AddressOf Me.imprimirImagen printDoc.Print() Catch ex As Exception MsgBox("Ex : " & ex.ToString) End Try End Sub
Impresión de un texto
A diferencia del ejercicio anterior, conoceremos como imprimir un texto, sin agregar un control PrintDocument, pero si agregando en su lugar código y también en vez de un manejador de evento, utilizaremos un procedimiento:
Importar la clase:
Imports System.Drawing.Printing
Escribir en lugar del manejador de evento un procedimiento:
Private Sub ImprimirTexto(ByVal sender As System.Object, ByVal ePrint As PrintPageEventArgs) ePrint.Graphics.DrawString(txt.Text, New Font("Arial", 11, FontStyle.Regular), _
Brushes.Black, 100, 100) ePrint.HasMorePages = False End Sub
En lugar de agregar un control PrintDocument, lo haremos via código:
Dim prnTxt As New PrintDocument
Agregar una caja de texto
Agregar un botón, para imprimir el contenido de la caja de texto, en el evento clic del botón, escribir:
Private Sub bntPrnTxt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles bntPrnTxt.Click Try Dim prnTxt As New PrintDocument AddHandler prnTxt.PrintPage, AddressOf Me.ImprimirTexto prnTxt.Print() Catch ex As Exception MsgBox("Ex : " & ex.ToString) End Try End Sub
Importante, tenga en cuenta las limitaciones que se tienen, pues no se permite imprimir texto que sobrepase el margen derecho del papel, tampoco se ajustan automáticamente las líneas cuando se alcanza el borde del papel, por ejemplo si imprime un archivo que no tiene retornos de carro al final de las líneas será necesario escribir código que lo controle. Tampoco es posible imprimir más de una página de texto, pues lo que sobrepase una página se ignora, por lo tanto no se imprime.
Para controlar la impresión de varias páginas es necesario crear una página virtual, para ello utilice el evento PrintPage o el métodoGraphics.MeasureString.
Impresión de un archivo
Importar clases
Imports System.IOImports System.Drawing.Printing
Debajo del código generado automáticamente por Visual Basic .NET (Windows Form Designer generated code) escriba
Private OptPrnPage As New PageSettings Private StrToPrn As String Private FontPrn As New Font("Arial", 12)
Agregar un control OpenFileDialog
Agregar un control de texto enriquecido
Agregar un botón para abrir un archivo de texto y en el evento clic escribir
Private Sub btnOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnOpenFile.Click OFD.Filter = "txt|*.txt" OFD.ShowDialog() If OFD.FileName <> vbNullString Then Try Dim FS As New FileStream(OFD.FileName, FileMode.Open) RTB.LoadFile(FS, RichTextBoxStreamType.PlainText) FS.Close() StrToPrn = RTB.Text Catch ex As Exception MsgBox("Ex : " & ex.ToString) End Try End If End Sub
Agregar un control PrintDialog
Agregue un botón para mandar imprimir el archivo y en el evento clic escriba
Private Sub btnPrnFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnPrnFile.Click Try prnFile.DefaultPageSettings = OptPrnPage StrToPrn = RTB.Text PD.Document = prnFile Dim DR As DialogResult = PD.ShowDialog If DR = DR.OK Then prnFile.Print() End If Catch ex As Exception MsgBox("Ex : " & ex.ToString) End Try End Sub
Dé doble clic para agregar al control PrnFile (PrintDocument1) el código del evento clic
Private Sub PrnFile_PrintPage(ByVal sender As System.Object, ByVal e As _
System.Drawing.Printing.PrintPageEventArgs) Handles PrnFile.PrintPage Dim nChars As Integer
Dim nLines As Integer Dim sPage As String Dim sFormat As New StringFormat Dim rectAng As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, _
e.MarginBounds.Width, e.MarginBounds.Height) Dim MySize As New SizeF(e.MarginBounds.Width, e.MarginBounds.Height - FontPrn.GetHeight(e.Graphics)) sFormat.Trimming = StringTrimming.Word e.Graphics.MeasureString(StrToPrn, FontPrn, MySize, sFormat, nChars, nLines) StrToPrn = StrToPrn.Substring(0, nChars) e.Graphics.DrawString(sPage, FontPrn, Brushes.Black, rectAng, sFormat) If nChars < StrToPrn.Length Then StrToPrn = StrToPrn.Substring(nChars) e.HasMorePages = True Else e.HasMorePages = False StrToPrn = RTB.Text End If End Sub
Bases de Datos
Comenzamos con la novedad de que el nuevo estándar de Microsoft para trabajar con Bases de Datos es ADO.NET (Modelo de datos estándar para todos los programas en Microsoft Visual Studio .NET) el cual se basa en una nueva tecnología de acceso a datos de Microsoft llamada ADO+, este nuevo estándar sustituye a RDO y ADO. Desaparecen los controles Data y ADO Data
Anteriormente una base de datos se representaba en un programa como un objeto recordset, ahora será el objeto dataset que es una imagen no relacionada de la tabla de la base de datos a la que se accede.
El formato interno de ADO.NET es XML (Extensible Markup Language) el cual se diseño para el intercambio de datos estructurado a través de Internet y otros contextos.
ADO.NET ofrece acceso a un mayor de formatos de base de datos y fué diseñado para su utilización en Internet.
Visual Studio y ADO.NET incluyen las herramientas necesarias para acceder al formato de archivos Access (y otros formatos), por lo que no es necesario tenerlo instalado.
ADO.NET
ADO.NET es la arquitectura de acceso a datos para .NET Framework y provee los objetos Connection, DataAdapter, y DataSet para facilitar el acceso a datos en una base de datos.
ADO.NET
Base de Datos (archivo .mdb)
Connection (OleDbConnection)
DataAdapter
DataSet
Conexión
Un objeto Connection establece una liga de la aplicación al archivo de base de datos, también especifica el tipo y ubicación del archivo de base de datos.
Para establecer una conexión a una base de datos seleccione View/Server Explorer
El Explorador de Servidores es una herramienta gráfica a través de la cual es posible establecer conexiones a fuentes de datos basadas en Internet, Cliente/Servidor o Locales, así como también es posible examinar la estructura de las tablas de una base de datos.
Para realizar una conexión haga clic en el botón Connect to database y configure la conexión. Por ejemplo si trabaja con Access entonces seleccione como proveedor Microsoft Jet 4.0 OLE DB, el cual es un componente diseñado para conectarse a bases de datos de Microsoft Access.
De clic en el botón Probar Conexión
Si la conexión fue satisfactoria entonces podra navegar a través del Explorador de Servidores sobre los objetos de la base de datos.
Creación de una Conexión
El primer paso para la creación de un objeto Connection es agregar un control OleDbConnection a la forma, el cual no es visible dentro de la forma pero si esta contenido en la bandeja de componentes. Este control esta contenido en el grupo Data de la caja de herramientas.
El segundo paso es seleccionar el control y establacer su propiedad ConnectionString seleccionando New Connection, entonces se despliega la ventana Data Link Properties (Propiedades de Vínculo de Datos), el proveedor de base de datos a seleccionar depende del tipo de base de datos a la cual se está conectado, por ejemplo para Access 2000 o Access XP se selecciona el proveedor Jet 4.0 OLE DB Provider.
Después de seleccionar el proveedor de base de datos se especifica la ubicación del archivo de base de datos, y si es requerido un login y contraseña se proporcionan para poder probar la conexión dando clic en Probar Conexión, si la conexión fue satisfactoria entonces es posible utilizar el objetoConnection para enviar y recibir datos entre la aplicación y la base de datos.
Los formatos de datos son diferentes entre los dos programas, por lo que la trasferencia de datos podría requerir un DataAdapter.
Adaptador de Datos - dataAdapter
Una vez que se ha establecido la conexión con la base de datos es necesario crear un Adaptador de Datos el cual permitira extraer información específica de la base de datos además de servir como base al objeto dataset el cual es una representación de los datos que se manipularan en la aplicación.
Para crear un adaptador de datos simplemente arrastre desde el Explorador de Servidores el icono gráfico de una tabla hasta el diseñador de Windows Forms, con lo cual se crean los objetos Adaptador de Datos y Conector de Datos en la bandeja de componentes.
Otra manera de crear un adaptador de datos es seleccionar la sección Data de la caja de herramientas y agregar un control DataAdapter y unDataSet.
Creación de un Adaptador de Datos
Una vez que se establece la conexión, el siguiente paso es crear un DataAdapter (Adaptador de datos). Un DataAdapter realiza el trabajo de pasar la información entre la base de datos y la aplicación. Un comando SQL es parte de un DataAdapter.
¿Por qué si ya se establecio la conexión, se requiere de un Adaptador de Datos?, porque el Adaptador de Datos trabaja como un lenguaje intérprete ya que la base de datos almacena datos es un sentido que la aplicación no podría entender así como la aplicación almacena datos en el sentido de que la base de datos no podría entender, también contiene SQL que especifica que información se accesa a través de la conexión. El Adaptador de Datos entiende ambos formatos de datos y los traduce apropiadamente para que los reciba la aplicación.
De clic al grupo Data de la caja de herramientas y Agregue un control OleDbDataAdapter, de manera automática inicia el Asistente de configuración del Adaptador de Datos, al dar clic en siguiente la segunda ventana del Asistente requiere que se especifique la conexión a utilizar para este Adaptador de Datos, al dar clic en siguiente aparece la tercer ventana del Asistente donde es posible seleccionar el tipo de consulta que se hará a la base de datos, pero como se esta utilizando un control OleDbDataAdapter la única opción es utilizar Use SQL statements (sentencias SQL). Si la base de datos de la aplicación fuera Microsoft SQLServer entonces se utilizaria un control SQLDataAdapter el cual también permite trabajar con procedimientos almacenados, al dar clic en siguiente se presenta la cuarta ventana del Asistente donde será necesario escribir una consulta SQL, donde es posible utilizar el Constructor de consultas o las Opciones avanzadas, al dar clic en siguiente aparece la última ventana del Asistente donde se notifica el resultado de la configuración.
El Asistente crea un Adaptador de Datos con un nombre por default, probablemente OleDbDataAdapter1, es posible seleccionar el controlDataAdapter y cambiar el nombre a través de la propiedad Name.
DataSet
Una vez creado el adaptador de datos es necesario crear un objeto que represente los datos a utilizar en la aplicación, este objeto recibe el nombre deDataSet y constituye una representación de los datos proporcionados por la conexión y extraidos por el adaptador.
Un conjunto de datos puede contener información de una o varias tablas de la base de datos, resultado quizá de una instrucción SQL.
A diferencia de un RecordSet los DataSet solamente representan los datos de la base de datos. Cuando se modifica un DataSet no se modifican las tablas de la base de datos original ya que la modificación no se produce mientras no se envíe un comando que escriba los datos en la base de datos original.
Seleccione Data/Generate Dataset asigne un nombre al conjunto de datos y agreguelo al diseñador
Este DataSet o Conjunto de Datos aparece en la bandeja de componentes y además Visual Studio agrega un archivo llamado NombreDataSet.xsd al explorador de soluciones el cual representa el esquema de la base de datos en XML y describe las tablas, campos, tipos de datos, etc.
Generación de un Dataset
Una vez que se establece la Conexión y se crea un Adaptador de Datos, el siguiente paso es crear un Dataset. Un Dataset es una copia local temporal de la información en la tabla. ADO.NET soporta usos más avanzados que incluyen múltiples Datasets con múltiples tablas.
Para crear un Dataset, seleccione el Objeto Adaptador de Datos creado, de clic al botón derecho del mouse y seleccione Generate Dataset del menú emergente, aparece entonces un cuadro de dialogo para Generar el
Dataset, donde se especifica que se está creando un nuevo Dataset, puede utilizar como prefijo Ds para el nombre del Dataset.
Finalmente es probable que en este punto en su aplicación existan 3 componentes en la bandeja: Connection, DataAdapter y Dataset. Donde la Conexión es una tuberia entre la aplicación y la base de datos, el Adaptador de Datos es un intérprete entre la aplicación y la base de datos y el Dataset es la traducción de una copia local de los datos en la base de datos, ya que los datos en el Dataset son traducidos quizá ahora pueden ser accesados por la aplicación.
Data-aware
Un control data-ware o Control Enlazado es un control que puede ser ligado o vínculado a un Dataset, cuando el control es ligado automáticamente despliega la información que recibe del Dataset. Los controles data-ware tienen una propiedad DataBound.
Controles Enlazados
Un Control Enlazado es aquel que esta vínculado con la fuente de datos cuando sus propiedades DataBindings pueden ser seleccionados campos válidos del conjunto de datos. Entre los controles enlazados se encuentran TextBox, ComboBox, ListBox, ChackBox, RadioButton, DataGrid yPictureBox.
Agregue una caja de texto y en su sección DataBindings, en la propiedad Text seleccione un campor de la base de datos.
Agregue un botón y en el evento clic agregue:
Ds.Clear() 'nombre del control en la bandeja de componentesAdapter.Fill(Ds) 'nombre del control en la bandeja de componentes
El método Fill deberá cargar manualmente el adaptador y enlaza la caja de texto con la información del conjunto de datos.
Método Fill
Una vez que se utiliza y liga un control data-aware o enlazado, no despiegan información porque el Dataset inicialmente está vacío. El método Fill del objeto DataAdapter es utilizado para cargar el Dataset.
DataAdapter.Fill(Dataset)
Navegación de un Dataset
Cuando se utiliza un control data-aware se víncula o asocia su propiedad Databindings con un campo de una tabla de la base de datos y de está manera despliega el valor contenido en dicho campo en base al registro actual en el Dataset especificado. Al cambiar la posición del registro actual por consiguiente cambia el dato desplegado en el control data-aware empleado.
Cada formulario tiene un objeto BindingContext que mantiene el rastro de todos los recursos de datos asociados con la forma. Para referirse a una tabla dentro del Dataset utilice:
BindingContext(Dataset, "NombreTabla")
El objeto BindingContext tiene una propiedad Position que indica el registro actual y una propiedad Count que indica el Total de registros en el Dataset. El primer registro tiene la posición 0, por lo que el último registro tiene la posición 1 menos el valor de Count.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load DaContratos.Fill(DsContratos1) BindingContext(DsContratos1, "TDetDato_Serv_Param_Asoc").Position = 0 LblCount.Text = BindingContext(DsContratos1, "TDetDato_Serv_Param_Asoc").Count - 1 InfoReg() End Sub Private Sub BtnPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnPrev.Click If BindingContext(DsContratos1, "TDetDato_Serv_Param_Asoc").Position = 0 Then MsgBox("Primer Registro") Else BindingContext(DsContratos1, "TDetDato_Serv_Param_Asoc").Position -= 1 InfoReg() End If End Sub Private Sub BtnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnNext.Click If BindingContext(DsContratos1, "TDetDato_Serv_Param_Asoc").Position = _
BindingContext(DsContratos1, "TDetDato_Serv_Param_Asoc").Count - 1 Then MsgBox("Último Registro") Else BindingContext(DsContratos1, "TDetDato_Serv_Param_Asoc").Position += 1 InfoReg() End If End Sub Private Sub InfoReg() LblRegNum.Text = BindingContext(DsContratos1, "TDetDato_Serv_Param_Asoc").Position End Sub Private Sub BtnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnFirst.Click BindingContext(DsContratos1, "TDetDato_Serv_Param_Asoc").Position = 0 InfoReg() End Sub Private Sub BtnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
BindingContext(DsContratos1, "TDetDato_Serv_Param_Asoc").Count - 1 InfoReg() End Sub
Manipulación de la Base de Datos
Una vez que se establece la conexión y se relacionan los datos con un control que los visualice, es necesario crear controles a través de los cuales se manipulen los datos obtenidos.
Al momento de cargar los datos el control utilizado para visualizar los datos apunta al primer registro, pero ¿Que hay si se requiere ver un registro especifico o si se desea avanzar hacia el siguiente o retroceder al anterior?.
ADO.NET almacena la información del registro actual y el número total de registros a través del objeto CurrencyManager que tiene cada conjunto de datos (DataSet) y cada Windows Form tiene un objeto BindingContext que se encarga de almacenar la información de todos los objetosCurrencyManager del formulario.
Donde, "TParametro", es el nombre de la tabla a la que se accede, lblPos.Text controla la posición del registro actual.
Bases de Datos y DataGrid
Un control DataGrid presenta información a manera de tabla (renglones y columnas).
El acceso a datos es controlado por los objetos DataSet y DataAdapter
Para víncular un control DataGrid a una base de datos, se utilizan las propiedades DataSource y DataMember.
1. Establezca una conexión válida2. Arrastre una tabla de la base de datos al diseñador3. Genere un conjunto de datos (Data/Generate Dataset)4. Víncule el control DataGrid a la base de datos.
DataSource - DataSet.Tabla
Una recomendación es que al generar el conjunto de datos, escriba el nombre de la base de datos
5. En el evento Load del Formulario, escriba:6. Contratos1.Clear()7. OleAdapter.Fill(Contratos1)
Donde Contratos1 es el nombre del conjunto de datos (DataSet).
Modificación de la base de datos con DataGrid
Un objeto DataSet (conjunto de datos) contiene una copia original de la base de datos, si requiere modificar los datos se hará a través del objetoDataAdapter para almacenar los cambios.
Si la modificación de la base de datos se desea hacer a través de un control DataGrid entonces considere lo siguiente:
Si la propiedad ReadOnly del control DataGrid contiene el valor False es posible modificar la base de datos.
Si la propiedad ReadOnly del control DataGrid contiene el valor True no es posible modificar la base de datos.
Para almacenar los cambios realizados, escriba:
Try OleAdapter.Update(Contratos1)Catch ex As Exception MsgBox(ex.ToString)End Try
Tip, si cambia el valor de la propiedad BackColor del DataGrid se produce un efecto en el cual el color de fondo del primer renglón aparece con el color seleccionado y el renglón siguiente aparece en blanco.
Web
La versión inicial de Visual Basic .NET incluye Internet Explorer 6. Para hacer uso de las funciones de Internet Explorer en una aplicación Visual Basic .NET es necesario agregar una referencia a la biblioteca de objetos COM Microsoft Internet Controls (SHDocVw), para ello seleccioneproject/Add Reference.
El objeto Internet Explorer está contenido en la Clase InternetExplorer la cual es miembro de la biblioteca SHDocVw.
Quizá el método que utilizará con frecuencia sea Navigate el cual abre un documento cuya ubicación se especifica a través de uno de sus parámetros llamado URL, Flags especifica si se agregará al historial o al caché de Internet Explorer, el único parámetro obligatorio es URL los demás son opcionales.
Para visualizar un documento web siga estos pasos:
1. Agregue la referencia COM Microsoft Internet Controls2. Declare un objeto de tipo SHDocVw.InternetExplorer3. Cree una instancia de SHDocVw.InternetExplorer4. Utilice la propiedad Visible para ocultar o hacer visible IE5. Utilice el método Navigate para mostrar un documento en el IE.
Dim oIE As SHDocVw.InternetExploreroIE = New SHDocVw.InternetExploreroIE.Visible = True
Si todo marcha bien, al ejecutar su aplicación se deberá abrir el navegador Internet Explorer y visualizará en él el documento específicado.
Si requiere controlar los eventos de IE, entonces tendrá que especificarlo en la declaración a través de la palabra reservada WithEvents, además de declarar el objeto a nivel formulario:
Public WithEvents oIE As SHDocVw.InternetExplorer
Ahora tendrá que sobrecargar el evento que usted desee, por ejemplo:
Public WithEvents oIE As SHDocVw.InternetExplorer Private Sub btnOpenLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnOpenLoad.Click oIE = New SHDocVw.InternetExplorer oIE.Visible = True oIE.Navigate(txtURL.Text) End Sub Private Sub oIE_DocumentComplete(ByVal pDisp As Object, ByRef URL As Object) _
Handles oIE.DocumentComplete MsgBox("El documento ha sido cargado") End Sub
Web Forms
Web Forms es un nuevo modelo de programación para interfaces de usuario de Internet basado en ASP.NET que sustituye a WebClasses y elDiseñador de Web Forms sustituye al Diseñador de páginas DHTML. El Diseñador de Web Forms es parte de Visual Studio .NET (también disponible para C# .NET).
Web Forms es el componente de diseño de ASP.NET (plataforma de desarrollo Web para Microsoft rediseñada a partir de cero basándose en .NET Framework), que permite crear y administrar interfaces de usuario de Internet o páginas web.
Visual Studio soporta Web Forms para la creación rápida y fácil de interfaces-usuario para aplicaciones web ASP.NET, Web Forms combina la velocidad y facilidad de un entorno de Desarrollo Rápido de Aplicaciónes (RAD, Rapid Application Development) con el poder de la compilación de los lenguajes de programación.
Cada Web Form está compuesta de dos archivos:
1. Página Web Forms/User Interface Form (contiene páginas HTML y los controles para crear la interfaz de usuario .aspx)
2. Archivo de código correspondiente/Code-Behind (Módulo de código que contiene el código que corresponde a la página Web Forms .aspx.vb)
En Visual Studio es posible ver los archivos ASPX y VB.NET como dos vistas de la misma página. El servidor web compilará ambos archivos y crea una nueva clase que contiene HTML estático, controles-servidor ASP.NET y código de la forma compilado en conjunto, la clase genera el HTML que envia al cliente cada vez que la página es requerida.
Las Web Forms (requieren de .NET Framework en el servidor para ejecutarse en la máquina-servidor) son similares a Windows Forms (requieren de .NET Framework para ejecutarse en la máquina-cliente) pues ambos son event driven, es decir, que se puede responder a eventos que ocurren en los controles-servidor de la página HTML. Los manejadores de eventos para los controles-servidor son escritos en el código detrás de la página utilizando sintaxis VB.NET.
Una aplicación Web puede contener módulos de código (.vb), documentos HTML (.htm/html), información de configuración (Web.config) y (Global.asax), así como otros componentes.
Las aplicaciones ASP.NET contienen un archivo especial llamado Global.asax utilizado para establecer cualquier objeto global requerido por la aplicación web. El archivo es compilado con la primer petición a una página de la aplicación web. Cuando este archivo es modificado, el archivo es recompilado y la aplicación web reiniciara en la próxima petición de una página.
Para crear una aplicación Web de ASP.NET se utilizan los controles de las secciones HTML o Web Forms de la caja de herramientas.
Los controles Web Forms son controles de servidor, es decir, que se ejecutan y pueden ser programados en el servidor web. Los controles HTML son por default controles cliente, es decir, que se ejecutan en el navegador del usuario final, aunque es posible configurar estos controles HTML como controles de servidor dando el valor Server a su propiedad Runat.
Los Controles HTML son los controles comunes utilizados en el HTML, los Controles Web Forms son más potentes y poseen propiedades, métodos y eventos.
No es necesario que un usuario tenga la última versión del navegador ya que Visual Studio .NET contiene la propiedad targetSchema en el objetoDOCUMENT para especificar una versión del navegador y soporta Internet Explorer 3.02, 3.0, 5.0 y Navigator 4.0, por default tiene el valor de Internet Explorer 5.0, así que el valor seleccionado afecta el código HTML generado y las funciones disponibles en Visual Studio.
Si requiere crear una aplicación Web en Visual Basic .NET, cree un proyecto Aplicación Web ASP.NET (ASP.NET Web Application), también requiere deWindows 2000 o Windows XP Professional, IIS, Extensiones de FrontPage 2000 y bibliotecas .NET Framework, si tiene XP Home Edition no podrá crear
aplicaciones Web ASP.NET localmente, pero si podrá crearlas si accede a un Servidor Web Remoto configurado adecuadamente.
Se recomienda instalar IIS y Extensiones Front Page antes de instalar .NET Framework y Visual Studio .NET, si trata de instalar IIS y Extensiones Front Page después de .NET Framework deberá repararlo pues .NET Framework registra las extensiones a través de IIS.
Arquitectura Tres Capas (Three-Tier)
Aplicaciones sofisticadas que involucran bases de datos y son con frecuencia divididas en tres capas basadas en la partición lógica de servicios fundamentales:
Capa de Presentación/Presentation Layer, navegador en la máquina-cliente
Capa de Aplicación/Application Layer, servidor web IIS que contiene las páginas ASP.NET
Capa de Datos/Data Layer, servidor de base de datos que contiene los archivos de base de datos y servicios ADO.NET
Las aplicaciones de tres capas protegen los recursos del servidor de base de datos reduciendo el número de conexiones actuales a la base de datos. Las conexiones al servidor de base de datos se realizan por las aplicaciones del servidor en lugar de ser realizadas por las máquinas cliente. Los usuarios no requieren de conexiones individuales o persistentes al servidor de base de datos, lo cual no sólo protege los recursos de base de datos, también facilita el mantenimiento de cuentas y fortalece la seguridad de datos.
Capa de Presentación - Presentation Layer
La Capa de Presentación se ejecuta sobre la máquina del usuario (cliente) y provee de una interfaz de aplicación, un cliente robusto realiza procesos significativos con menos carga en la capa de aplicación, un cliente menos robusto tipicamente involucra un navegador (browser) que despliega HTML con procesos poco significativos y requiere de una mayor carga en la capa de aplicación.
Capa de Aplicación - Application Layer
La Capa de Aplicación provee varios módulos y servicios que son esenciales para la solución, incluyendo el procesamiento basado en las reglas de negocio. Si las reglas de negocio cambian solamente los servicios en la capa de aplicación necesitan ser cambiados para implementar los cambios a través del sistema.
La Capa de Aplicación también provee un mediador entre los manejadores de la capa de aplicación y la capa de datos. Los requerimientos del usuario para los servicios de datos son manejados por la capa de aplicación la cual puede reducir el número de conexiones a la base de datos, por ejemplo todos los usuarios pueden compartir una conexión entre la capa de aplicación y la capa de datos, antes que cada usuario (cliente) requiera de una conexión de datos.
Capa de Datos - Data Layer
La Capa de Datos es la responsable de todos los accesos a la base de datos requeridos por la solución, esta capa comunmente provee el soporte para agregar, eliminar, actualizar y recuperar información de la base de datos.
State Management
HTTP es un protocolo stateless (sin estado), es decir, cada petición de una nueva página web es procesada sin ningún conocimiento de peticiones de páginas previas.
State Management (administración de estados) se refiere a las técnicas en las cuales los desarrolladores mantienen el estado de una aplicación web a través de múltiples peticiones de páginas.
En ASP.NET existen varias opciones para que los desarrolladores mantengan el estado de un sitio web, algunas de ellas involucran mantener información en la máquina-cliente, otras en la máquina-servidor.
Técnicas de Administración de Estados del Lado del Cliente
Existen varias Técnicas de Administración de Estados del Lado del Cliente (Client-Side State Management Techniques) disponibles en ASP.NET, las cuales involucran almacenamiento de información en la máquina-cliente, un usuario puede manipular la información la cual puede resultar en un estado incorrecto y crear un compromiso potencial de seguridad, por ello que la administración de estados de lado del cliente debería ser limitado a aplicaciones no criticas o seguras y soluciones intranet:
View State
Una página web es re-creada en cada petición, sin esfuerzos de administración de estados, toda la información asociada con la página y los controles en las páginas podrían perderse. ASP.NET provee una facilidad llamada View State (estado de vista) que representa el estado de la página cuando fué procesada en el servidor. Cuando la página es enviada de regreso al servidor ASP.NET utiliza el View State para recuperar la información apropiada en la página. El View State es visible en el código HTML siendo un asunto potencial de seguridad.
Query String
Un Query String (Cadena de Consulta) es información que se agrega al final del URL. Un Query String tipicamente comienzan con el caracter ?seguido de información especifica para la aplicación, por ejemplo:
http://informatique.com.mx?login?usuario=gangeles
Un Query String puede ser utilizado para intercambiar datos entre el cliente y el servidor, de una página a otra. Un Query String no es seguro porque la información es visible en el navegador, además que la mayoria de los navegadores tienen una longitud máxima de 255 caracteres para el URL, lo cual limita la información que puede ser enviada utilizando un Query String.
Cookies
Una Cookie es un texto pequeño almacenado en la máquina-cliente, es decir, un archivo de texto y no un programa o plug-in, el navegador anexa laCookie en cada nueva petición HTTP antes que enviarla al servidor para que los datos puedan ser leidos y respondidos apropiedamente.
La información almacenada en una Cookie puede ser expuesta y por lo tanto no es lo mejor para mantener información, además los usuarios podrían deshabilitar la opción en sus navegadores para no utilizar Cookies, entonces la aplicación no debería ser dependiente de un dato en la Cookie.
Técnicas de Administración de Estados del Lado del Servidor
Existen también varias Técnicas de Administración de Estados del Lado del Servidor (Server-Side State Management Techniques) disponibles en ASP.NET. Ya que las opciones del lado del servidor almacenan información fuera del alcance del cliente la información es más segura. Los estados de administración del lado del servidor deberían ser incluidos en todas las aplicaciones que requieran soluciones seguras:
Application State
Application State (Estado de Aplicación), es la suma de todos los archivos, páginas y código que reside en el servidor. Cuando se ejecuta una aplicación web, ASP.NET mantiene información referente a la aplicación en el Application State, el cual es creado la primer vez que un cliente hace una petición de un URL dentro de la aplicación ASP.NET, el Application State se mantiene en la memoria del servidor hasta que un servidor web se apaga o hasta que la aplicación se modifique.
El Application State permite a los desarrolladores crear variables de aplicación (application variables) que pueden establecerse y leerse a través de la duración de vida de la aplicación. Una variable de aplicación se compone de la palabra reservada Application seguido entre paréntesis (y comillas) del nombre de la variable, por ejemplo: Application("UsuariosConectados"), estas variables se crean automáticamente en la primer referencia. Las variables de aplicación son de ámbito global y accesibles desde cualquier página de la aplicación web y sus valores son independientes de un usuario especifico.
Session State
Una sesión es el período de tiempo que un único navegador interactua con la aplicación web, cada vez que un nuevo navegador invoca una aplicación web, una nueva sesión es creada para el navegador. Cuando una nueva sesión es creada, ASP.NET mantiene información referente a la sesión en elSession State.
El Session State permite a los desarrolladores crear variables de sesión (session variables) que pueden establecerse y leerse a través de la duración de vida de la sesión. Las variables de sesión se componen de la palabra reservada Session seguido entre paréntesis (y comillas) del nombre de la variable, por ejemplo: Session("User"), las variables de sesión pueden ser accesadas desde cualquier página de la aplicación web por cada petición a la aplicación. Las sesiones y sus variables expiran después de veinte minutos de inactividad. Si el navegador hace una petición después del tiempo de expiración (20 minutos) la aplicación web crea una nueva sesión para el navegador.
Database Support
Los datos almacenados en las variables de aplicación y sesión podrían perderse, si la aplicación es interrumpida, para sobrevivir a estas interrrupciones, es estado de información debería ser almacenado en la base de datos.
Mantener un estado de información en la base de datos es también útil cuando la información a ser almacenada es significativa en tamaño, la dimensión del procesamiento y almacenamiento puede ser cargado en la capa de datos permitiendo mejorar el desempeño de la capa de aplicación.
Para una aplicación web profesional es muy común mantener un estado de información en al base de datos relacional por las siguientes razones:
Seguridad, la información del usuario almacenada en la base de datos es un nivel extra eliminado de las capa de presentación, haciendo que los datos sean menos disponibles para uso indebido. Si la base de datos contiene información importante puede ser protegida a través de un usuario y contraseña para evitar accesos no deseados.
Consultas, el almacenamiento de datos en la base de datos da a la aplicación el poder y funcionalidad de la base de datos en general, incluyendo la habilidad para consultar información específica.
Capacidad, las bases de datos son especialmente buenas para mantener cantidades grandes de información y los servicios de datos pueden fraccionarse a la capa de datos que reside en uno o más servidores de datos, permitiendo a la aplicación web evitar la disminución del desempeño.
Extracción de Datos, teniendo la capacidad de base de datos una aplicación, podría mantener referencias sobre cuantas veces el usuario ha visitado la aplicación web.
Sistemas Inteligentes
Los Sistemas Inteligentes se enfocan sobre el procesamiento y producción de conocimiento.
Desde la perspectiva de la computación los datos se refieren a números, caracteres o imagenes sin contexto, los datos por si solos no significan nada o carecen de significado, cuando los datos son procesados en un contexto se convierten en información, como la información es recopilada también puede ser procesada por patrones creando conocimiento. La inteligencia es la habilidad de adquirir conocimiento, finalmente la sabiduría es un comportamiento apropiado guiado por el conocimiento.
Un Sistema Inteligente extiende la tradicional función de la computación para también incluir la adquisición y aplicación de conocimiento.
Una estrategia para capturar y utilizar el conocimiento es a través de heurísticas, una heurística es una regla de conocimiento basada en la experiencia o que induce a buscar la solución.
Las heurísticas pueden ser utilizadas por los Sistemas Inteligentes para guíar el proceso de descubrimiento y a través de heurísticas-guía el comportamiento no es garantizado para ser optimo. Las heurísticas quizá sean de propósito general o dominio específico. Las heurísticas de propósito general a menudo suenan como el sentido común, es decir, en base a la experiencia que es la sabiduría. Las heurísticas de dominio específico suenan como reglas o estrategias que son problemas especificos, tipicamente es un comportamiento experto que incorpora conocimiento.
El uso del conocimiento heurístico para guiar el comportamiento es un tipo de sistema inteligente.
Una función heurística regresa un valor basado en un conocimiento heurístico, esta función puede ser utilizada para evaluar múltiples posibilidades y entonces seleccionar el mejor valor.
El aprendizaje involucra una modificación del comportamiento basado en la experiencia. Los sistemas que aprenden son comunmente clasificados como sistemas inteligentes.
Un sistema informático puede ser construido para que mejore a través del aprendizaje de prueba y error basado en el refuerzo positivo o negativo.
Nuestro agradecimiento a informatique por este manual
