Cadastro com FOTO ACCESS->VB6

[GuilhermeTI 0]

Entao em uma parte do codigo eu fiz oque você falow tirei o add new e coloquei o FIND mas nao deu em nada

 

Private Sub cmdfoto_Click()
Dim FSO As New FileSystemObject
Dim strLOCAL As String
Dim bytARQUIVO() As Byte

  Screen.MousePointer = vbHourglass

  Erase bytARQUIVO()

  ReDim bytARQUIVO(0)

  strLOCAL = LocalAondeAImagemSeEncontra
  
  If FSO.FileExists(strLOCAL) Then 'Verifica se o arquivo existe no disco

	  Open strLOCAL For Binary As #1

	  ReDim bytARQUIVO(LOF(1))

	  Get #1, , bytARQUIVO()

	  Close #1

	Else

	  Screen.MousePointer = vbDefault

	  Erase bytARQUIVO()

	  Exit Sub

	End If

   membroscad.Find "nome = 'fulano'", start:=1
	membroscad![ca_arquivo] = bytARQUIVO()
membroscad.Update

  Screen.MousePointer = vbDefault

  Erase bytARQUIVO()
End Sub

agora na linha que você falou

membroscad.Find "nome = 'fulano'", start:=1

eu irei ter que colocar nome por nome na programação ????? por favor pq é urgente pq nao ta fazendo nada !!!

[Claudio Neto 3]

Não, você não precisa escrever nome por nome.

 

Você pode fazer assim:

 

membroscad.find "nome = '" & txtmembro.text & "'", start:=1

 

Mas olha só, o find serve para selecionar de sua tabela um membro específico por nome para você adicionar a foto dele.

 

Mas caso você não vá procurar o membro pelo nome, você utiliza o que for que vai usar.

 

Se você for utilizar setas de navegação (.movenext e .moveprevious), ai você também nem precisa do .find.

 

E caso vá mesmo utilizar o .find, deixe-o antes de todo o código.

 

Olha só, estou percebendo que está meio difícil você conseguir se entender ai né. Se quiser, me passe seu e-mail que te mando um projetinho pronto com isso como modelo para você ver o funcionamento.

[GuilhermeTI 0]

é eu queria conseguir fazer o codigo funcionar mas eu nao entendo quase nada mas se você pudesse me explicar passa a passo pra eu entender a logica eu agradaceria caso o contrario passa o projeto counter.gui12@gmail.com valew

[HIDEO 0]

Bom dia pessoal,

 

sou iniciante no ramo da programação e estou querendo efetuar um sistema de cadastro de alunos com foto (VB6 + SQL SERVER EXPRESS 2008)

 

Podem me ajudar?

[Nilson Cl. 0]

Bom Dia Hideo

 

Segue um link para baixar um exemplo como grava no banco imagems.

 

 

http://www.ncmd.com.br/download/SalvaImagemvb6.zip

 

Qualquer duvida so mandar

 

 

t+