Salut,
J'essai tant bien que mal de sauvegarder un document depuis une base, mais mon code est foireux.
Un p'tit coup de pouce SVP.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Try MysqlConn = New MySqlConnection MysqlConn.ConnectionString = "server=localhost;userid=root;password=root;database=root" ' recuperamos el documento de la base de datos y lo pasamos a un fichero Dim drDocumentos As MySqlDataReader Dim aBytDocumento() As Byte = Nothing 'Dim oFileStream As FileStream 'Dim loFila As DataGridViewRow = Me.dgrDatos.CurrentRow() Dim lsQuery As String = "Select documento From Formaciones Where id='" & TextBox9.Text & "'" Using loComando As New MySqlCommand(lsQuery, MysqlConn) MysqlConn.Open() drDocumentos = loComando.ExecuteReader(CommandBehavior.SingleRow) End Using Dim saveFileDialog1 As New SaveFileDialog saveFileDialog1.InitialDirectory = "C:\" saveFileDialog1.Title = "Save PDF Files" saveFileDialog1.CheckFileExists = True saveFileDialog1.CheckPathExists = True saveFileDialog1.DefaultExt = "pdf" saveFileDialog1.Filter = "Text files (*.pdf)|*.pdf" saveFileDialog1.FilterIndex = 2 saveFileDialog1.RestoreDirectory = True If drDocumentos.Read() Then aBytDocumento = CType(drDocumentos("documento"), Byte()) End If 'drDocumentos.Close() 'oFileStream = New FileStream("C:\TUCARPETA\TUFICHERO.PDF", FileMode.CreateNew, FileAccess.Write) 'oFileStream.Write(aBytDocumento, 0, aBytDocumento.Length) 'oFileStream.Close() MessageBox.Show("Documento generado con éxito", "Generar Documentos", MessageBoxButtons.OK, MessageBoxIcon.Information) 'End If Catch Exp As Exception MessageBox.Show(Exp.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Information) End Try End Sub
Partager