Ejecutar Aplicaciones y Filtrado de Tablas

INSTITUTO DE EDUCACIÓN SUPERIOR PÚBLICO Computación e Informática “DAVID SÁNCHEZ INFANTE” Unidad Didáctica: Programación Concurrente

Docente. Roni R. Aguilar Huaccha 1 San Pedro de Lloc

INS

TIT

UT

O SUPERIOR PE

D

AG

ÓG

ICO

SAN PEDRO

DE LLOC

EJECUTAR UN ARCHIVO EXE EN VISUAL BASIC 2012

Visual Basic es un lenguaje de programación orientado a objetos diseñado por Microsoft. Cuando un programador exporta la información a un archivo externo, como por ejemplo Excel, éste podría querer mostrar los datos exportados para el usuario. En ese caso, el archivo con datos exportados tendría que ser abierto.

Ejemplo: En este ejemplo se carga y ejecuta la aplicación Bloc de notas. Para ello hay que sabernos el nombre del archivo ejecutable del bloc de notas, que es “notepad”, como es un ejecutable se le agrega la extensión “.exe”.

Diseña el formulario con las respectivas aplicaciones, y llama a los programas según

los botones, el código para el botón del bloc de notas es:

System.Diagnostics.Process.Start("notepad.exe")

FILTRANDO TABLAS DEL SERVIDOR DE DATOS

DISEÑAR EL SIGUIENTE FORMULARIO:

Controles:

Button

Label

ComboBox

ListView

NOTA: para que funcione no cambiar el nombre de los objetos, caso

contrario tendría que adecuarse.

Tener en cuenta solo el nombre del SERVIDOR.



INS

TIT

UT

O SUPERIOR PE

D

AG

ÓG

ICO

SAN PEDRO

DE LLOC

ESCRIBIR EL SIGUIENTE CÓDIGO FUENTE:

Imports System.Data.SqlClient Public Class Form1 ' Declarar variable tipo cadena para el nombre de la base de datos Private name_bd As String = String.Empty ' Cadena de conexión para sql server express en modo local Private Const cs As String = "Data Source=CENCACI\DSI;" & "Integrated Security=True;" & "Initial Catalog=" ' función para llenar el ListView Public Sub cargar_ListView(ByRef ListView As ListView, ByVal sql As String, ByVal db As String) Try ' Crea y abre una nueva conexión Using cn As New SqlConnection(cs & db) cn.Open() 'propiedades del SqlCommand Dim comando As New SqlCommand With comando .CommandType = CommandType.Text .CommandText = sql .Connection = cn End With Dim da As New SqlDataAdapter ' Crear nuevo SqlDataAdapter Dim dataset As New DataSet ' Crear nuevo dataset da.SelectCommand = comando ' llenar el dataset da.Fill(dataset, "Tabla") ' Propiedades del ListView With ListView .Items.Clear() .Columns.Clear() .View = View.Details .GridLines = True .FullRowSelect = True ' añadir los nombres de columnas For c As Integer = 0 To dataset.Tables("tabla").Columns.Count - 1 .Columns.Add(dataset.Tables("tabla").Columns(c).Caption) Next End With



INS

TIT

UT

O SUPERIOR PE

D

AG

ÓG

ICO

SAN PEDRO

DE LLOC

' Añadir los registros de la tabla With dataset.Tables("tabla") For f As Integer = 0 To .Rows.Count - 1 Dim dato As New ListViewItem(.Rows(f).Item(0).ToString) ' recorrer las columnas For c As Integer = 1 To .Columns.Count - 1 dato.SubItems.Add(.Rows(f).Item(c).ToString()) Next ListView.Items.Add(dato) Next End With End Using ' errores Catch ex As Exception MsgBox(ex.Message.ToString) End Try End Sub ' Función que retorna un objeto DataTable para 'enlazarlo con el combobox y visualizar las tablas Private Function get_Tablas(ByVal la_base_de_datos As String) As DataTable Try ' nueva conexión a sql Using cn As New SqlConnection(cs) ' nuevo comando Dim comando As SqlCommand = New SqlCommand() ' Nuevo DataAdapter Dim da As SqlDataAdapter = New SqlDataAdapter() 'Nuevo DataTable Dim dt As DataTable = New DataTable() 'Asignación de propiedades para el comando With comando .Connection = cn .CommandType = CommandType.Text ' instrucción T-SQL para obtener las tablas .CommandText = "Use [" & la_base_de_datos & "] " & "Select * From INFORMATION_SCHEMA.TABLES " & "Where TABLE_TYPE = 'BASE TABLE'" da.SelectCommand = comando End With da.Fill(dt) ' retornar el dataTable Return dt End Using ' errores Catch ex As Exception



INS

TIT

UT

O SUPERIOR PE

D

AG

ÓG

ICO

SAN PEDRO

DE LLOC

MsgBox(ex.Message.ToString) End Try Return Nothing End Function Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Button1.Text = "Obtener tablas" ' Propiedades del ComboBox With ComboBox1 .ValueMember = "TABLE_CATALOG" .DisplayMember = "TABLE_NAME" End With End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged ' cargar los registros de la tabla indicada por el combobox cargar_ListView(ListView1, "Select * from [" & ComboBox1.Text.ToString & "]", name_bd) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click name_bd = InputBox("Escribir el nombre de la base de datos") If name_bd <> String.Empty Then Try ' Indicar la base de datos para recuperar 'y cargar las tablas en la lista ComboBox1.DataSource = get_Tablas(name_bd.Trim) Catch ex As Exception MsgBox(ex.Message.ToString) End Try End If End Sub End Class



INS

TIT

UT

O SUPERIOR PE

D

AG

ÓG

ICO

SAN PEDRO

DE LLOC

EJECUTANDO LA APLICACIÓN

Haz un clic en OBTENER y en cuadro de diálogo escribe el NOMBRE DE LA BASE DE DATOS y clic en aceptar y se mostrarán las tablas

de la base de datos, como en la figura siguiente:



INS

TIT

UT

O SUPERIOR PE

D

AG

ÓG

ICO

SAN PEDRO

DE LLOC

Ejecutar Aplicaciones y Filtrado de Tablas

Documents

Transcript of Ejecutar Aplicaciones y Filtrado de Tablas