GRAVAR TEXTO DO WORD EM BANCO DE DADOS MYSQL
Oi pessoal,
Tem como ler um arquivo do word, alterar alguns dados e depois salvar em banco de dados do mysql?
Se tiver, por favor postar aqui como fazê-lo.
Obrigado
Tem como ler um arquivo do word, alterar alguns dados e depois salvar em banco de dados do mysql?
Se tiver, por favor postar aqui como fazê-lo.
Obrigado
Ler o texto é simples, claro, dependendo da versão do word. Veja nesse link como funciona. Depois de lido é uma string normal e você pode gravar como qualquer outra coisa, que acredito que você já faz.
Da uma olhada...
Elmo01.... Imagino que vc queira gravar o texto formatado no word no BD
Eu faço isso no SQL Server... Vou te passar uma rotina que eu procurei montar aqui... procure adaptá-la a tua necessidade .. talvez ajude
Dim X As OpenFileDialog = New OpenFileDialog With {.Title = [Ô]Selecione o documento do Word a ser gravado.[Ô], .Filter = [Ô]Arquivos de modelo|*.DOC|Todos os Arquivos|*.*[Ô], .FilterIndex = 1}
If X.ShowDialog = Windows.Forms.DialogResult.OK Then
Using ConDB As SqlConnection = New SqlConnection(Dns)[ô] DNS = Sua string de conexão
ConDB.Open()
Dim St As String = [Ô]Update ArquivosDoc Set PathFile = @PathFile, Arquivo = @Arquivo Where PathFile = @PathFile [Ô] _
& [Ô]IF @@RowCount = 0 [Ô] _
& [Ô]Insert Into ArquivosDoc(PathFile, Arquivo) VALUES(@PathFile, @Arquivo)[Ô]
Using RstCmd As SqlCommand = New SqlCommand(St, ConDB)
RstCmd.Parameters.Add([Ô]@PathFile[Ô], SqlDbType.VarChar, 100).Value = X.FileName
RstCmd.Parameters.Add([Ô]@Arquivo[Ô], SqlDbType.VarBinary).Value = BblCpt.FileToArrayByte(X.FileName)
If RstCmd.ExecuteNonQuery = 0 Then
Throw New Exception([Ô]Erro na gravação dos dados. Nenhuma informação pode ser gravada...[Ô])
Else
MessageBox.Show([Ô]Gravação efetuada com sucesso!!![Ô], My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Using
End Using
End If
Public Function FileToArrayByte(NomeArq As String) As Byte()
Try
If Not File.Exists(NomeArq) Then Throw New Exception([Ô]O arquivo informado não existe ou não foi localizado....[Ô])
Dim Array As Byte() = Nothing
Using Stream As FileStream = New FileStream(NomeArq, FileMode.Open)
Array = New Byte(Stream.Length - 1) {}
Stream.Read(Array, 0, Convert.ToInt32(Stream.Length))
End Using
Return Array
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]Leitura de Arquivos[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Nothing
End Try
End Function
Essa rotina vai permitir gravar um arquivo formatado no banco de dados... se precisar ler o arquivo do banco de dados já formatado no word é só pedir
Eu faço isso no SQL Server... Vou te passar uma rotina que eu procurei montar aqui... procure adaptá-la a tua necessidade .. talvez ajude
Dim X As OpenFileDialog = New OpenFileDialog With {.Title = [Ô]Selecione o documento do Word a ser gravado.[Ô], .Filter = [Ô]Arquivos de modelo|*.DOC|Todos os Arquivos|*.*[Ô], .FilterIndex = 1}
If X.ShowDialog = Windows.Forms.DialogResult.OK Then
Using ConDB As SqlConnection = New SqlConnection(Dns)[ô] DNS = Sua string de conexão
ConDB.Open()
Dim St As String = [Ô]Update ArquivosDoc Set PathFile = @PathFile, Arquivo = @Arquivo Where PathFile = @PathFile [Ô] _
& [Ô]IF @@RowCount = 0 [Ô] _
& [Ô]Insert Into ArquivosDoc(PathFile, Arquivo) VALUES(@PathFile, @Arquivo)[Ô]
Using RstCmd As SqlCommand = New SqlCommand(St, ConDB)
RstCmd.Parameters.Add([Ô]@PathFile[Ô], SqlDbType.VarChar, 100).Value = X.FileName
RstCmd.Parameters.Add([Ô]@Arquivo[Ô], SqlDbType.VarBinary).Value = BblCpt.FileToArrayByte(X.FileName)
If RstCmd.ExecuteNonQuery = 0 Then
Throw New Exception([Ô]Erro na gravação dos dados. Nenhuma informação pode ser gravada...[Ô])
Else
MessageBox.Show([Ô]Gravação efetuada com sucesso!!![Ô], My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Using
End Using
End If
Public Function FileToArrayByte(NomeArq As String) As Byte()
Try
If Not File.Exists(NomeArq) Then Throw New Exception([Ô]O arquivo informado não existe ou não foi localizado....[Ô])
Dim Array As Byte() = Nothing
Using Stream As FileStream = New FileStream(NomeArq, FileMode.Open)
Array = New Byte(Stream.Length - 1) {}
Stream.Read(Array, 0, Convert.ToInt32(Stream.Length))
End Using
Return Array
Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]Leitura de Arquivos[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Nothing
End Try
End Function
Essa rotina vai permitir gravar um arquivo formatado no banco de dados... se precisar ler o arquivo do banco de dados já formatado no word é só pedir
Tópico encerrado , respostas não são mais permitidas