ERRO AO GRAVAR EM BANCO DE DADOS

USUARIO.EXCLUIDOS 29/08/2007 12:16:56
#233235
Pessoal que já falei desse assunto aqui no fórum, mas será que alguém tem algum exemplo de como eu posso gravar em banco de dados arquivos:

.DOC
.XLS
.FRM

Estou desenvolvendo um sistema em VBA-Excel para gerenciamento de projetos, e precisarei salvar esses arquivos em um campo da tabela

Por exemplo
Na etapa de especificação Funcional(Documento Word) o usuário deverá salvar este documento na tabela TB_especificao_funcional

Obs: Estou falando de um banco Access

Galera desde já, obrigado!
USUARIO.EXCLUIDOS 29/08/2007 12:23:45
#233237
Cara nao tem vb 6 ai?
RODRIGOGBGOMES 29/08/2007 12:53:25
#233245
é vba sei nao... mais via vbzao... o stream resolve tudo.
USUARIO.EXCLUIDOS 29/08/2007 12:58:52
#233249
Nao entendi a resposta cara rss.
RODRIGOGBGOMES 29/08/2007 15:21:22
#233295
cara, se qr salvar arquivos ".doc" ".XLS" e/ou outros usando stream é fácil... saca?
USUARIO.EXCLUIDOS 29/08/2007 15:33:42
#233301
Rodrigo,

Como nunca fiz isso, vc tem um exemplo para eu ver? Lembrando que estou desenvolvendo em VBA-Excel por não poder utilizar o Visual Basic.

Fico no aguardo!
RODRIGOGBGOMES 29/08/2007 15:46:28
#233306
eu... mando pra vc ... guenta ai q vou anexar aqui.
USUARIO.EXCLUIDOS 29/08/2007 15:57:11
#233307
Nossa cara viajei pensei que era o FEAR que tinha respondido, mal ae Rodrigo
RODRIGOGBGOMES 29/08/2007 16:00:35
#233308
Public mystream As ADODB.Stream
Public Function CarregaStreamFoto(NumeroField As Integer) As String
If Not IsNull(rsFotos.Fields(NumeroField)) Then
Set mystream = Nothing
Set mystream = New ADODB.Stream
mystream.Type = adTypeBinary
mystream.Open
mystream.Write rsFotos.Fields(NumeroField)
mystream.SaveToFile App.Path & "\Fotos\stream.jpg", adSaveCreateOverWrite
CarregaStreamFoto = App.Path & "\Fotos\stream.jpg"
mystream.Close
Set mystream = Nothing
End If
End Function
Public Function SalvaStreamFoto(CaminhoFoto As String)
If Not CaminhoFoto = "" Then
    Set mystream = Nothing
    Set mystream = New ADODB.Stream
    mystream.Type = adTypeBinary
    mystream.Open
    mystream.LoadFromFile CaminhoFoto
End If
End Function



cara to te mandando as funções do jeito q uso hoje... agora é so vc adequar as suas necessidades... lembrando q nao sei se tem jeito em VBA...

ÃÂ' LOCOBOY, esquenta nao irmão, comigo tem erro não. abço.
USUARIO.EXCLUIDOS 29/08/2007 16:03:47
#233309
Vou tentar, se funcionar encerro o fórum creditando a você a solução ok.
USUARIO.EXCLUIDOS 30/08/2007 10:41:54
#233383
Rodrigo,

Não rolou.
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar