Sección de códigos , trucos y ejemplos para visual basic

489 - Ver tablas en un control TabStrip

Ejemplo en Visual basic 6.0 que recupera el esquema de tablas de una base de datos para visualizar las mismas mediante un control TabStrip, y los registros de la tabla se visualizan en un control Microsoft Hierarchical Flexgrid

Descargar código fuente

vista previa del proyecto

Código fuente

( Un control MsHflexgrid1 en un array y un control TabStrip llamado TabStrip1)

Option Explicit ' Controles y referencias: '''''''''''''''''''''''''''''''''''''''''''''''' ' - TabsTrip ' - MSHFlexGrid1(0) ' - Referencia a ADO '''''''''''''''''''''''''''''''''''''''''''''''' Private Declare Function SetErrorMode _ Lib "kernel32" ( _ ByVal wMode As Long) As Long Private Declare Sub InitCommonControls Lib "Comctl32" () '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Cadena de conexión a usar ( usa la base de datos Nwind .mdb de visual basic ) Private Const CS_ACCESS As String = _ "Provider=Microsoft.Jet.OLEDB.4.0" & _ ";Data Source=C:\Archivos de programa\" & _ "Microsoft Visual Studio\VB98\NWIND.MDB; " & _ "Persist Security Info=False" Private Function get_Tabla( _ cn As ADODB.Connection, _ Tabla As String) As ADODB.Recordset ' Crear un nuevo recordset Dim rs As New ADODB.Recordset ' cargar la tabla rs.Open "[" & Tabla & "]", cn, adOpenStatic, adLockReadOnly ' retornar el recordset Set get_Tabla = rs Set rs = Nothing End Function Private Sub Cargar_Tablas(ConnectionString As String) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim arrTables() As String Dim i As Integer Screen.MousePointer = vbHourglass cn.Open ConnectionString Set rs = cn.OpenSchema(adSchemaTables, Array( _ Empty, Empty, Empty, "TABLE")) rs.MoveFirst ' almacenar los nombres de tablas en el vector Do Until rs.EOF ReDim Preserve arrTables(i) arrTables(i) = rs!Table_Name rs.MoveNext ' siguiente i = i + 1 Loop With TabStrip1 .Tabs.Clear ' eliminar todos los tabs ' recorrer el vector For i = 0 To UBound(arrTables) If i = 0 Then TabStrip1.Tabs.Add , arrTables(i), arrTables(i) ' agregar el tab 1 Else ' cargar un nuevo Flexgrid Load MSHFlexGrid1(i) ' agregar el tab .Tabs.Add , arrTables(i), arrTables(i) End If ' Enlazar la grilla al recordset Set MSHFlexGrid1(i).DataSource = get_Tabla(cn, arrTables(i)) ' establecer el ancho de los campos Dim j As Integer For j = 0 To MSHFlexGrid1(i).Cols - 1 MSHFlexGrid1(i).ColWidth(j) = 2000 Next MSHFlexGrid1(i).Visible = True Next End With If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close Set rs = Nothing End If If Not cn Is Nothing Then If cn.State = adStateOpen Then cn.Close Set cn = Nothing End If Screen.MousePointer = vbDefault End Sub Private Sub Form_Initialize() SetErrorMode 2 InitCommonControls End Sub Private Sub Form_Load() MSHFlexGrid1(0).FixedCols = 0 Call Cargar_Tablas(CS_ACCESS) End Sub ' mostrar el FlexGrid al hacer clic en la ficha del TabStrip Private Sub TabStrip1_Click() MSHFlexGrid1(TabStrip1.SelectedItem.Index - 1).ZOrder End Sub

Recursos vb - enlaces relacionados

Buscar en Recursos vb