Olá VBzadores!!!
Pessoal eu ainda não tinha trabalhado com IMAGENS no BD até o presente momento, agora não tem mais jeito.
Tô fazendo um sisteminha pra uma escolinha de futebol e na tela de MATRICULAR ALUNOS eles querem uma opção de colocar a foto do aluno, a ideia é a seguinte:
1º) Quando for fazer a matricula do aluno já inseria foto e já INCLUI no bd de dados.
2º) Quando for fazer alguma alteração nos dados da matricula do aluno, verificar tambem alteração na foto (caso tenha alterado).
3º) Se caso excluir o aluno do BD, excluir tambem a foto do mesmo.
RESUMINDO: Quero criar uma rotina de INCLUIR, ALTERAR e EXCLUIR os dados juntamente com a foto.
EU JÁ TENHO MINHA ROTINA DA QUAL BUSCO A FOTO NO HD E COLOCO NUM PICTUREBOX, POREM, PARA INCLUIR, ALTERAR E EXCLUIR NUM FUNCIONE NEM A PAU, USO ACCESS, NO ACCESS JÁ DETERMINEI O CAMPO COMO Objeto OLE, MAS ATÉ AGORA NADA!
MINHA ROTINA ATÉ O MOMENTO É ESSA:
'####INICIO - rotina para INCLUSÃO no bd########
Dim AreaTrabalho As Workspace
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "DADOS.Mdb", False, False)
query = "Select * From MATRICULAS where CAMPO_NUM_MATRICULA = '" & TEXT_NUM_MATRICULA & "'"
Set dyn = xxbco.OpenRecordset(query)
If dyn.EOF Then
dyn.AddNew
dyn("CAMPO_NUM_MATRICULA") = TEXT_NUM_MATRICULA
dyn("CAMPO_NOME_ALUNO") = TEXT_NOME_ALUNO
dyn("CAMPO_FOTO") = PICTUREBOX1
dyn.Update
MsgBox "Inclusão feita com sucesso!", vbOKOnly + vbInformation, "Atenção!"
Else
MsgBox "MATRICULA JÁ ESTÁ CADASTRADA! INCLUSÃO NÃO FOI FEITA.", vbOKOnly + vbCritical, "Atenção!"
Exit Sub
End If
xxbco.Close
'####FIM - rotina para INCLUSÃO no bd########
'####INICIO - rotina para ALTERAR no bd########
Dim AreaTrabalho As Workspace
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "DADOS.Mdb", False, False)
query = "Select * From MATRICULAS where CAMPO_NUM_MATRICULA = '" & TEXT_NUM_MATRICULA & "'"
Set dyn = xxbco.OpenRecordset(query)
If Not dyn.EOF Then
dyn.Edit
dyn("CAMPO_NUM_MATRICULA") = TEXT_NUM_MATRICULA
dyn("CAMPO_NOME_ALUNO") = TEXT_NOME_ALUNO
dyn("CAMPO_FOTO") = PICTUREBOX1
dyn.Update
MsgBox "Alteração feita com sucesso!", vbOKOnly + vbInformation, "Atenção!"
Command3 = True 'botão limpar
Else
MsgBox "Alteração [NÃO] foi feita!", vbOKOnly + vbCritical, "Atenção!"
Exit Sub
End If
xxbco.Close
'####FIM - rotina para ALTERAR no bd########
'####INICIO - rotina para EXCLUIR no bd########
Dim AreaTrabalho As Workspace
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "DADOS.Mdb", False, False)
query = "Select * From MATRICULAS where CAMPO_NUM_MATRICULA = '" & TEXT_NUM_MATRICULA & "'"
Set dyn = xxbco.OpenRecordset(query)
If Not dyn.EOF Then
dyn.Delete
MsgBox "Exclusão feita com sucesso!", vbOKOnly + vbInformation, "Atenção!"
Else
MsgBox "Exclusão [NÃO] foi feita!", vbOKOnly + vbCritical, "Atenção!"
Exit Sub
End If
xxbco.Close
'####FIM - rotina para EXCLUIR no bd########
POR FAVOR ME AJUDEM!!!
