Jump to content
Fórum Script Brasil

joseprogramming

Membros
  • Posts

    1
  • Joined

  • Last visited

About joseprogramming

joseprogramming's Achievements

0

Reputation

  1. Boa tarde ! Tudo bem com voces? Preciso de uma pequena ajuda, eu estou a fazer um sistema para ginasio que é para apresentar na escola, quero este sistema o cadastro dos atletas seja com imagem mas eu fiquei meio confuso e não estou a conseguir fazer o codigo para a imagem, alguém me pode ajudar? Vou postar aqui o codigo : vou meter a bold, italico e vermelho onde preciso de ajuda, muito obrigado ! Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If validar() = False Then Exit Sub Else Dim adapter_atletas As New pombalenseDataSetTableAdapters.AtletasTableAdapter Try Dim verificar_registo = From Atletas In Me.PombalenseDataSet.Atletas Where (Atletas.NomeAtleta = NomeAtletaTextBox.Text) If verificar_registo.Count > 0 Then MsgBox("Já existe um registo com estes dados") Else adapter_atletas.Insert(NomeAtletaTextBox.Text, DataNascimentoDateTimePicker.Text, MoradaTextBox.Text, EmailTextBox.Text, ModalidadeComboBox.Text, FotoPictureBox) Me.Validate() Me.AtletasBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.PombalenseDataSet) MsgBox("Registo adicionado com sucesso!", MsgBoxStyle.Information, Me.Text) End If Catch ex As Exception MsgBox(ex.Message) IDAtletaTextBox.SelectAll() IDAtletaTextBox.Focus() End Try End If limpar() End Sub
×
×
  • Create New...