Los foros del Guille

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 

Ya está a la venta Novedades de Visual Basic 9.0

Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

09/nov/2005
Nuevo filtro en el código posteado para evitar malas intenciones.
Por supuesto, si encuentras fallos de seguridad, por favor postealo en el foro de Bugs, ya que es para beneficio de todos. Gracias.

  Foro: .NET VB Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 58124 - Link en DataGridView
IDAsuntoFechaNick 
58124 Link en DataGridView22/11/16 17:05Ziany   
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!



 
(c) Guillermo 'guille' Som, 2005-2017  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8762)
 
Usuarios activos: 118 - App. iniciada: 14/12/2017 7:42:09 GMT - La hora GMT del servidor es: 14/12/2017 20:49:52 GMT