Dentro de nuestro proyecto debebos agregar un boton "EXAMINAR" y dentro de este boton debemos agregar el siguiente codigo y modificar ciertas partes para que se adecue a nuestras necesidades
Dim openFD As New OpenFileDialog() With openFD .Title = "Seleccionar archivos de Backup" .Filter = "*.sql|*.sql" 'filtro para el tipo de archivos a mostrar .Multiselect = False If .ShowDialog = Windows.Forms.DialogResult.OK Then Me.txtbackup.Text = .FileName 'Txt e almacenara la ruta del archivo End If End With
3 comentarios:
Muchas Gracias =D
Me sirvió mucho gracias. dejo código para lo que lo use: Examinar y Guardar Archivos en la Base de Datos.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim openFD As New OpenFileDialog()
With openFD
.Title = "Seleccionar archivos de Backup"
.Filter = "All files (*.*)|*.*" 'filtro para el tipo de archivos a mostrar
.Multiselect = False
If .ShowDialog = Windows.Forms.DialogResult.OK Then
Me.TextBox3.Text = .FileName 'Txt e almacenara la ruta del archivo
End If
End With
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
' Establecemos una conexión para conectarnos
' a la base de datos de SQL Server, utilizando
' la seguridad integrada de Windows NT.
Using cnn As New SqlConnection("Data Source= SYTEC-AZUL-PC\CONPRE;User ID=sa;Password= adminsa;Initial Catalog=Proyecto;Integrated Security=SSPI")
Dim cmd As SqlCommand = cnn.CreateCommand()
' Creamos la consulta T-SQL para insertar un nuevo registro.
'
cmd.CommandText = "INSERT INTO OPER_ACTIVIDAD_ARCHIVO (RUTA) VALUES (@blob)"
' Añadimos los parámetros.
'
'cmd.Parameters.AddWithValue("@id", Convert.ToInt32(txtIdBlob.Text))
' Leemos el archivo de Word.
cmd.Parameters.AddWithValue("@blob", ReadBinaryFile(TextBox3.Text))
cnn.Open()
Me.TextBox3.Clear()
Dim n As Integer = cmd.ExecuteNonQuery()
If (n > 0) Then
MessageBox.Show("Se ha grabado el documento satisfactoriamente.")
Else
MessageBox.Show("No se ha guardado ningún documento.")
End If
End Using
Catch ex As Exception
' Se ha producido un error.
MessageBox.Show(ex.Message)
End Try
End Sub
Private Shared Function ReadBinaryFile(ByVal fileName As String) As Byte()
' Comprobación de los valores de los parámetros.
If (String.IsNullOrEmpty(fileName)) Then _
Throw New ArgumentException("No se ha especificado ningún arhivo.", "fileName")
' Si no existe el archivo, abandono la función.
If (Not (IO.File.Exists(fileName))) Then Return Nothing
' Creamos un objeto Stream para poder leer el archivo especificado.
Using fs As New IO.FileStream(fileName, IO.FileMode.Open, IO.FileAccess.Read)
' Creamos un array de bytes, cuyo límite superior se corresponderá
' con la longitud en bytes de la secuencia menos una unidad.
Dim length As Integer = Convert.ToInt32(fs.Length - 1)
Dim data() As Byte = New Byte(length) {}
' Al leer la secuencia, se rellenará la matriz.
fs.Read(data, 0, length)
' Devolvemos el array de bytes.
Return data
End Using
End Function
Buen dato, Tambien puedes añadir en el .filter los archivos admitidos.
Saludos
Publicar un comentario