El DataGridView es un control ActiveX de uso frecuente en las aplicaciones de Visual Basic a base de la unión y de la importación de datos desde una base de datos externa y luego la presentación de los datos en una hoja de cálculo -como formato . Antes de conectar el control DataGridView a través de código de programación , es necesario poner el control en su formulario de VB primero . Enlazar el control DataGridView requiere algunos conocimientos de programación VB . Una vez que se adquiere , conseguir que se haga sólo tarda unos sencillos pasos y líneas de código . Instrucciones
1
abierto Basic 6.
2
Visual Seleccione "EXE estándar " de la nueva lista de proyectos. Ahora se encuentra en el entorno de programación Visual Basic 6. Usted debe tener un formulario principal defecto en la pantalla para empezar a añadir los controles.
3
clic "Proyecto" seguido de " Componentes ".
4
Scroll la lista de componentes y buscar "Control Microsoft DataGridView. " Coloque una marca en la casilla junto a ella y haga clic en " Aceptar". Esto hará que el control DataGridView en su Cuadro de controles .
5
Seleccione el control DataGridView del cuadro de herramientas . Arrastrar y soltar en el formulario principal para empezar a usarlo .
6
Ir al menú superior y haga clic en "Proyecto" seguido de " Agregar módulo . " Escriba o copie y pegue el código siguiente en el módulo :
Private Sub GetData ( selectCommand ByVal como secuencia)
Prueba
"Especificar una cadena de conexión. Reemplace el valor dado por ' cadena de conexión válida para un Northwind de SQL Server muestra
' a
base de datos accesible al sistema.
ConnectionString As String = _
"Integrated Security = SSPI ; Persist Security Info = False; " + _
" Initial Catalog = Northwind , Data Source = localhost"
' Crear un nuevo adaptador de datos basado en el consulta especificada .
Me.dataAdapter = New SqlDataAdapter ( selectCommand , connectionString )
'Crear un generador de comandos para generar SQL de actualización, inserción y
' comandos de eliminación basado en SelectCommand . Estos se utilizan para
' actualizar la base de datos.
CommandBuilder Dim As New SqlCommandBuilder ( Me.dataAdapter )
' Rellenar una nueva tabla de datos y lo enlaza a BindingSource .
tabla Dim As New DataTable ()
table.Locale = = Tabla
' Cambiar el tamaño de las columnas DataGridView para ajustar el contenido recién cargada .
Me.dataGridView1.AutoResizeColumns (_
DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader )
Catch ex As SqlException
MessageBox.Show ( " Para ejecutar este ejemplo , cambie el valor de la " _
+ "la variable connectionString con una cadena de conexión que es " + _
< p > "válido para su sistema. " )
End Try End Sub