none
salvar imagem em pasta vinculado com código do cliente RRS feed

  • Pergunta

  • ola eu consigo salvar a imagem assim

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            'função abrir arquivos
            opgaleria.Filter = "JPG|*.jpg|JPEG|*.jpeg"
            opgaleria.ShowDialog()
            ' função salvar foto na pasta
            Dim DestinoArquivo As String
            NomeArquivo = opgaleria.FileName
            DestinoArquivo = " c:\" & IdLabel1.Text & ".jpg"
            FileCopy(NomeArquivo, DestinoArquivo)
        End Sub


    o banco e em access

    so q quando click em novo o codigo do cliente nao altera ao mesmo tempo
    para q quando adicionar na pasta a foto va com o codigo do cliente


    estou salvando os dados em oldb
    Dim st As String = "INSERT INTO Contatos(nome,endereco,fone,celular,email,nascimento)VALUES('" & tb1.Text & "','" & tb2.Text & "','" & tb3.Text & "','" & tb4.Text & "','" & tb5.Text & "','" & tb6.Text & "', ?)"
                        Dim cmd As New OleDbCommand(st, con)

    ai nao aparece o codigo do cliente para adicionar o foto com o codigo na foto tipo

    id cliente   01

    salva foto 01.jpg

    entao quando click em novo o id nao muda ou e 0 ou fica com ultimo id da consulta do cliente



    vc pode me ajudar?
    quinta-feira, 13 de janeiro de 2011 11:42

Todas as Respostas