EXEMPLO CADASTRO COM FOTO VB 6 MYSQL

LUIZCARLOS 12/10/2012 09:44:56
#411894
galera, a turma fera do mysql + vb , gostaria de um exemplo de cadastro com foto mysql vb6. achei aqui ,um modelo em .net mas eu uso vb6. [Ô]Da uma força ai[Ô]
FILMAN 12/10/2012 15:44:14
#411942
Cara existe varios cadastro com foto aqui no site pegue um com qualquer banco e só adapte a conexão com o mysql e vai fazendo os testes dessa forma você ira aprender muito mais do que pegar um pronto e adaptar no seu projeto
LUIZCARLOS 14/10/2012 09:44:25
#412031
na verdade não,FILMAN gravar em banco access é bem diferente doque em mysql. mas tudo bem, vou continuar procurando

e quanto a mysql de fato eu só vi aqui no site somente um, e é em vb.net.
OMAR2011 14/10/2012 17:48:28
#412039
Vou enviar para seu Email um exemplo.
FEDERHEN 15/10/2012 08:08:00
#412052
Citação:

gravar em banco access é bem diferente doque em mysql



Não é recomentado gravar a imagem no banco, mas sim o caminho da imagem.

Uma boa técnica é criar uma pasta padrão onde serão armazenadas as imagens e o banco armazena apenas o caminho da pasta e o nome do arquivo.
MARCELO.TREZE 15/10/2012 08:32:52
#412053
Pergunta deseja gravar a imagem no banco, ou apenas o caminho?

eu tenho feito assim salvo primeiro a foto no HD e depois mando para o banco

   Dim RSimagem As ADODB.Recordset
    Dim MyStream As ADODB.Stream
    Set RSimagem = New ADODB.Recordset
    Set MyStream = New ADODB.Stream
    Dim xSQL As String, Caminho As String
    Caminho = [Ô]c:\sua foto.jpg[Ô]
    MyStream.Type = adTypeBinary
    xSQL = [Ô]SELECT re,foto FROM fotos[Ô]
    RSimagem.Open xSQL, Conexao, adOpenStatic, adLockOptimistic
    MyStream.Open
    MyStream.LoadFromFile caminho
    RSimagem.AddNew
    RSimagem!foto = MyStream.Read
    RSimagem.Update
    MyStream.Close
    RSimagem.Close
    Set RSimagem = Nothing


para alterar uma foto no banco seria assim

    Dim RSimagem As ADODB.Recordset
    Dim MyStream As ADODB.Stream
    Set RSimagem = New ADODB.Recordset
    Set MyStream = New ADODB.Stream
    Dim xSQL As String
     MyStream.Type = adTypeBinary
    xSQL = [Ô]SELECT re,foto FROM fotos WHERE re=[ô][Ô] & txtReg.Text& [Ô][ô][Ô]
    RSimagem.Open xSQL, Conexao, adOpenStatic, adLockOptimistic
    MyStream.Open
    MyStream.LoadFromFile caminho
    RSimagem!foto = MyStream.Read
    RSimagem.Update
    MyStream.Close
    RSimagem.Close
    Set RSimagem = Nothing


e por final para exibir uma foto que esta gravada no banco

   Dim RSimagem As New ADODB.Recordset
    Dim MyStream As New ADODB.Stream
    Dim cSQL As String
    With MyStream
        .Type = adTypeBinary
        cSQL = [Ô]SELECT re,foto FROM fotos WHERE re=[ô][Ô] & txtReg.Text & [Ô][ô] AND not isnull(foto)[Ô]
        RSimagem.Open cSQL, Conexao, adOpenStatic, adLockOptimistic
        If Not (RSimagem.BOF And RSimagem.EOF) Then
        .Open
        .Write RSimagem!foto
        .SaveToFile App.Path & [Ô]    mp.bmp[Ô], adSaveCreateOverWrite [txt-color=#007100][ô] salva aimagem em um arquivo temporário[/txt-color]
        .Close
        Picture1.Picture = LoadPicture(App.Path & [Ô]    mp.bmp[Ô]) [txt-color=#007100][ô]carrega esta imagem na Picture1[/txt-color]
        Kill (App.Path & [Ô]    mp.bmp[Ô]) [txt-color=#007100][ô] e apaga o arquitemporario[/txt-color]
        RSimagem.Close
        Set RSimagem = Nothing
        End If



repare que eu salva a imagem com um reg para poder localiza-la depois.

Ps: muitos colegas podem entrar e falar que é melhor salvar o caminho ao invés da imagem, sim isto é certo porém para banco local, no meu caso só salvo a imagem no banco pois este é um servidor web, e acesso esta imagem de qualquer lugar.
LUIZCARLOS 03/07/2014 07:34:33
#439317
MARCELO-TREZE como conectar e como mover registros[Ô]ex move last[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar