Tenho um Form para guardar registos. Cada registo tem um foto. Já coloquei o programa a guardar o caminho da foto na BD e a PictureBox a
mostrar a imagem que cada registo tem! Está a funcionar. Só que queria que ao navegar de registo em registo, que a PictureBox
automaticamente muda-se a imagem, nos botoes do primeiro, anterior, seguinte, ultimo.
'na funcao exibedados
nao sei como chamar a imagem
Private Sub ExibeDados()
'A rotina ExibeDados() exibe os valores dos campos da tabela clientes nos controles TextBox do formulário conforme o código abaixo:
TxtCliente.Text = ds.Tables(0).Rows(i)("NCliente").ToString()
Txtnome.Text = ds.Tables(0).Rows(i)("Nome").ToString()
Txtmorada.Text = ds.Tables(0).Rows(i)("Morada").ToString()
TxtLocalidade.Text = ds.Tables(0).Rows(i)("Localidade").ToString()
MTBCodigo.Text = ds.Tables(0).Rows(i)("Codigo_Postal").ToString()
MTBTelemovel.Text = ds.Tables(0).Rows(i)("Telemovel").ToString()
MTBContribuinte.Text = ds.Tables(0).Rows(i)("Contribuinte").ToString()
TxtEmail.Text = ds.Tables(0).Rows(i)("Email").ToString()
'picBlob.Image = ds.Tables(0).Rows(i)("Imagem")
Dim contr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Acer\Desktop\Base de Dados.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
' Cria uma nova ligação à base de dados
Dim db As New SqlConnection(contr)
Dim SQL As String = "SELECT * FROM Clientes where Nome ='" & Txtnome.Text & "'"
db.Open()
'Buscar a Imagem à Base de Dados
Dim cn As New SqlConnection(contr)
Dim cmd1 As New SqlCommand("SELECT NCliente, " & _
"Imagem FROM Clientes Where Nome ='" & Txtnome.Text & "' ORDER BY NCliente", cn)
Dim da As New SqlDataAdapter(cmd1)
'Dim ds As New DataSet()
da.Fill(ds, "Clientes")
Dim c As Integer = ds.Tables("Clientes").Rows.Count
If c > 0 Then
Dim bytImagem() As Byte = _
ds.Tables("Clientes").Rows(0)("Imagem")
Dim stmImagem As New MemoryStream(bytImagem)
picBlob.Image = Image.FromStream(stmImagem)
End If
