Carteira

[Bela 0]

Olá!

 

Tenho um modelo de carteira feito no Coreldraw e queria mesclar alguns dados de cadastro com esta carteira como que eu posso fazer isso.

[Rogério Orlando 0]

Seja mais precisa no que quer!

São dados de uma tabela que quer mesclar com outra?

Se for mostre quais são e quais dados quer mesclar.

[Bela 0]

Seja mais precisa no que quer!

São dados de uma tabela que quer mesclar com outra?

Se for mostre quais são e quais dados quer mesclar.

 

 

Não é um carteira de identificação tipo uma identidade só que para pegar essa imagem feita no Coreldraw e imprimir esta imagem com dados de uma tabela de cadastro de pessoas como eu posso fazer isso

 

 

 

[gabrieldb 5]

Você já tem alguma coisa pronta ?

[Bela 0]

já tenho a carteira feita no coreldraw e um programa de cadastro no visual basic

[Rogério Orlando 0]

Parece que não quer mostrar seu banco de dados, nem a imagem de sua carteira!

Mesmo assim vou tentar adivinhar o que quer.

 

No seu programa, através de um botão ou de um enter no campo de vínculo, faça aparecer os dados do produto.

 

 

Private Sub cmdLocalizarRE_Click()
strSql = "SELECT * FROM tabela WHERE campo =" dado para vínculo "
' identifica a pesquisa

Call abrirBD1("banco de dados", strSql)
' abre um banco de dados e executa a instrução da variável
If rsMySQL.BOF = True And rsMySQL.EOF = True Then   ' se não localizar o registro trás  o msgbox.
    MsgBox " registro não localizado", vbInformation
    txtRE.SetFocus
    lblQtde.Caption = "0000"
    Exit Sub
End If

'Set grid.DataSource = rsMySQL ' exibe todos os resultados na grid
Call preencher

foto = Trim$(campo de vínculo.Text)
Call ImagemPM

Salve sua foto da carteira com o mesmo nome do "campo de vínculo".

Daí como no exemplo abaixo faça com que a foto seja apresentada no objeto.

 

Sub ImagemPM()
  Dim caminho As String
    
  caminho = Dir(App.Path & "\fotos\" & foto & ".jpg", 0)
  
  If caminho <> "" Then
    imgPM.Picture = LoadPicture(App.Path & "\fotos\" & foto & ".jpg")
  Else
    imgPM.Picture = LoadPicture(App.Path & "\fotos\semfoto.jpg")' salve outra foto com este nome para os casos em que não existir foto da carteira, pois se não dará erro.
  End If

 

Espero ter ajudado.