Informatica
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 delComboBox el dataset
Paso 5 Se indica a la propiedad DisplayMember del combobox , el nombre del campo a visualizar
Código fuente
Texto planoImprimir
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.ToString
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
uscar un registro o fila en una grilla de tipo DataGridView
Simple código de ejemplo que usa el método Find del componente BindingSource para buscar un registro en un campo específico en una tabla
formulario
Controles
* Un control DataGridView llamado DataGridView1
* Un control Button llamado Button1 ( botón parabuscar )
* Un control textBox llamado textBox1 ( para ingresar el dato )
* Indicar el campo por el cual buscar ( Primer parámetro del método Find)
* Establecer la cadena de conexión a utilizar
Código fuente
Texto planoImprimir
1. Option Explicit On
2. Option Strict On
3.
4. Imports System.Data
5. Imports System.Data.SqlClient
6.
7.Public Class Form1
8.
9. ' ConnectionString para SQL server EXPRESS
10. Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _
11. "Integrated Security=True;" & _
12. "Initial Catalog=la_base_de_datos"
13.
14....
Regístrate para leer el documento completo.