Hola a todos,
Quisiera su ayuda para lograr un objetivo.
Estoy trabajando con VB.Net y SQL.
Mi aplicación llama desde un botón datos de una tabla de SQL, este botón llena un DataGridView con estos datos.
Objetivo:
Quiero que desde mi aplicación, se puedan copiar y abrir archivos, y que en este DataGridView se visualice el nombre del archivo copiado, y que sirva como link de donde se guardo el archivo para poder abrirlo.
Resultados actuales:
Se visualiza la ruta donde esta guardado, no el nombre. Al darle clic no abre el archivo.
Código:
Para agregar el archivo:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
En Public Class:
Dim miarchivo As String = ""
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Botón buscar archivo:
OpenFileDialog1.InitialDirectory = "C:\"
OpenFileDialog1.RestoreDirectory = True
If OpenFileDialog1.ShowDialog = DialogResult.Cancel Then
Return
Else
miarchivo = OpenFileDialog1.FileName
miarchivo = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
MsgBox("El archivo seleccionado es: " & miarchivo)
txtarchivo.Text = OpenFileDialog1.FileName
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Botón guardar:
Dim rutaorigen As String = txtarchivo.Text
Dim destino As String = System.Environment.CurrentDirectory & "/Contratos\" & miarchivo
''aqui tengo mas codigo(conexion, seleccionar datos de tabla...)
comando.Parameters.AddWithValue("@archivo", destino)
''aqui tengo mas codigo(ejecutar en query, cerrar conexion...)
If txtarchivo.Text = "" Then
Else
FileCopy(rutaorigen, destino)
MsgBox("Exito al añadir el archivo")
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Para consultar:
En el botón para llenar el DataGridView pongo select tabla1.columna1,
tabla1.columna2,
tabla1.ARCHIVOS
from tabla1
where......
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Para llenar el DGV:
'' sql es la variable tipo string donde hice el select
Dim da As New SqlClient.SqlDataAdapter(sql, conexion)
Dim cmd As New SqlClient.SqlCommandBuilder(da)
Dim ds As New DataSet
da.Fill(ds, "tabla1")
dgv1.DataSource = ds
dgv1.DataMember = "tabla1"
conexion.Close()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
También me gustaría hacer algo similar en un LinkLabel.
Eso es todo, por favor espero me ayuden.
Saludos!