imagem - erro ao gravar path da imagem no BD


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: imagem - erro ao gravar path da imagem no BD

Lamattina

ASSIS
SP - BRASIL

ENUNCIADA !

Postada em 06/03/2008 17:08 hs

Boa tarde a todos.

Pessoal, seguinte:- Quanto gravo o path de uma imagem no BD (postgres) fica da seguinte forma: "C:▄este.jpg", onde o correto seria "C:Teste.jpg".

Já verifiquei e o retorno do cdialog e está correto.

----------------------------------------------------------------------------------

Na função update(parte):

"Imagem = '" & CDialogo.FileTitle & "'," & _

----------------------------------------------------------------------------------

Private Sub Image1_DblClick()

    On Error Resume Next
    With CDialogo
        .Filter = "Todas as Imagens| *.bmp;*.jpg;*.gif;*.wmf;*.emf"
        .ShowOpen

Image1.Picture = LoadPicture(.FileName)

End With

End Sub

----------------------------------------------------------------------------------

Alguém pode me dar uma luz?

Eduardo Lamattina

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 07/03/2008 12:27 hs

Lamattina veja como faço usando o Common Dialog

Private Sub cmdsalvarCaminho_Click()

On Error GoTo trataerro
' aqui você define o titulo do seu common dialog control
cmd1.DialogTitle = "Definir Caminho das Fotos"
' InitDir = o diretório que será aberto ao se abrir o common dialog control
cmd1.InitDir = "C:"

' FileName determina que a busca seja por todos o arquivos JPG e Bmp

cmd1.FileName = "*.jpg;*.mdb"
' Filter = filtra somente arquivos JPG e BMP
cmd1.Filter = "*.jpg;*.bmp"
' e agora sim abrir o common dialog
cmd1.ShowOpen
' ao se clicar em OK o caminho será salvo no textbox
Text1.Text = cmd1.FileName
trataerro:
Exit Sub

End Sub

ai basta você salvar o conteudo do arquivo text, tenta ai e diga se funcionou

Lamattina

ASSIS
SP - BRASIL

Postada em 07/03/2008 13:21 hs

Ok TREZE, vou testar e mando o resultado.

agradeço sua atenção

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 07/03/2008 13:49 hs

Lamattina só pra fechar com chave de ouro

eis o código do jeitinho que você deseja

Dim Prop As String
On Error Resume Next
' aqui você define o titulo do seu common dialog control
cmd1.DialogTitle = "Definir Caminho das Fotos"
' InitDir = o diretório que será aberto ao se abrir o common dialog control
cmd1.InitDir = "C:"
' FileName determina que a busca seja por todos o arquivos JPG e Bmp
cmd1.FileName = "*.jpg;*.gif"
' Filter = filtra somente arquivos JPG e BMP
Prop = "Arqs. MDB(*.jpg;*.wmf;*.bmp;*.gif;*.emf)

|*.jpg;*.wmf;*.bmp;*.gif;*.emf|Todos " & "Arqs. (*.*)|*.*"
cmd1.Filter = Prop
cmd1.FilterIndex = 1 ' indica a primeira opção
' e agora sim abrir o common dialog
cmd1.ShowOpen
' ao se clicar em OK o caminho será salvo no textbox
Text1.Text = cmd1.FileName

valeu até

Lamattina

ASSIS
SP - BRASIL

ENUNCIADA !

Postada em 11/03/2008 15:01 hs

Treze, tá perfeito...testei é funcionou...

Detalhe, quando eu defino um outro caminho que não seja o raiz dá pau.

Se eu informar que a imagem está no c:teste.jpg dá certo...agora se eu fizer assim: c:imagens este.jpg dá pau.

Exibindo o caminho num textbox fica perfeito em qualquer situação..quando eu mando gravar no postgres ele me ferra o caminho do arquivo, trocando "" por "▄" e ainda come a primeira letra do nome do arquivo.

Lamattina

ASSIS
SP - BRASIL

ENUNCIADA !

Postada em 11/03/2008 15:03 hs

Treze, tá perfeito...testei é funcionou...

Detalhe, quando eu defino um outro caminho que não seja o raiz dá pau.

Se eu informar que a imagem está no c:teste.jpg dá certo...agora se eu fizer assim: "c:imagens este.jpg" dá pau.

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR