Informatica

Solo disponible en BuenasTareas
  • Páginas : 8 (1952 palabras )
  • Descarga(s) : 0
  • Publicado : 14 de noviembre de 2010
Leer documento completo
Vista previa del texto
imple 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 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....
tracking img