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

359 - Adox - ver consultas SQL almacenadas

Ejemplo que usa Ado y Adox para poder listar y ver las consultas almacenadas en una base de datos

Formulario

vista del formulario para ver las consultas sql almacenadas

El ejemplo tiene dos funciones. Una llamada " Listar_Consultas_Sql " y otra " Ver_Consulta "

La primera, obtiene los nombres de las query y las lista en un ListBox o ComboBox. Se le debe enviar como parámetro la cadena de conexión y el control List o combo, por ejemplo :

    Cstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
              "Source=C:\Archivos de programa\Microsoft " & _
              "Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
    
    Call Listar_Consultas_Sql(Cstring, List1)

La otra función devuelve el query :

Ver_Consulta(" Nombre de la consulta almacenada", "Conexión Ado activa" )

.. devolviendo la consulta almacenada por medio de la propiedad CommandText del objeto Adodb.Command

Controles y referencias

Agregar la referencia a Ado ( Microsoft Activex data objects )
La referencia a Adox ( Microsoft Ado Ext 2.8 for DDL and Security )
Un control Listbox o combo
Un Control CommandButton

Código fuente en el formulario

Option Explicit ' variable para la conexión ado '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim cn As ADODB.Connection ' función que obtiene los nombres de las consultas _ sql almacenadas en la base de datos indicada '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function Listar_Consultas_Sql(ConnectionString As String, _ ListBox As Object) On Error GoTo Error_Function Dim rs As ADODB.Recordset If ConnectionString = vbNullString Or ListBox Is Nothing Then Exit Function End If With cn .ConnectionString = ConnectionString ' abre la conexión a la base de datos .Open End With ' nuevo recordset para obtener los nombres de las query Set rs = New ADODB.Recordset ' abre el recordset para obtener el _ conjunto de consultas sql almacendas Set rs = cn.OpenSchema(adSchemaTables) ListBox.Clear ' recorre el recordset Do While Not (rs.EOF) If (rs!TABLE_TYPE) = "VIEW" Then ' Agrega el nombre de la consulta al listbox o combo ListBox.AddItem rs!TABLE_NAME End If ' siguiente rs.MoveNext Loop ' cierra el recordset If rs.State = adStateOpen Then rs.Close End If Exit Function ' error Error_Function: End Function ' botón que agrega las query de la base de datos en el listbox '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Dim Cstring As String Cstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _ "Source=C:\Archivos de programa\Microsoft " & _ "Visual Studio\VB98\NWIND.MDB;Persist Security Info=False" ' carga las consultas Call Listar_Consultas_Sql(Cstring, List1) End Sub ' devuelve el sql '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function Ver_Consulta(Nombre_Consulta As String, _ cn As ADODB.Connection) As String Dim Obj_ADOX_Catalog As ADOx.Catalog Dim Obj_Command As New ADODB.Command Set Obj_ADOX_Catalog = New ADOx.Catalog ' conexión activa Set Obj_ADOX_Catalog.ActiveConnection = cn Set Obj_Command = New ADODB.Command ' referencia al query Set Obj_Command = Obj_ADOX_Catalog.Views(Nombre_Consulta).Command ' retorna la consulta sql con CommandText Ver_Consulta = Obj_Command.CommandText End Function Private Sub Form_Load() ' nueva conexión Set cn = New ADODB.Connection Command1.Caption = " Listar consultas sql " End Sub Private Sub List1_Click() ' muestra un MsgBox xon el query indicado MsgBox Ver_Consulta(List1.Text, cn), vbInformation, List1.Text End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb