1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104
|
Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Macon As OleDbConnection
Private CmdPhoto As OleDbCommand
Private DtAPhoto As OleDbDataAdapter
Private DsPhoto As DataSet
Private CmdBuildPhoto As OleDbCommandBuilder
Private StrSql As String = ""
Private RowNumber As Integer = 0
Private Sub BtQuiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtQuiter.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Macon = New OleDbConnection
StrSql = "select * from [les photos]"
Try
Macon.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;data source =" & My.Application.Info.DirectoryPath & "\MesPhotos.mdb"
Macon.Open()
CmdPhoto = New OleDbCommand(StrSql, Macon)
DtAPhoto = New OleDbDataAdapter(CmdPhoto)
DsPhoto = New DataSet
DtAPhoto.Fill(DsPhoto, "Les Photos")
If RowNumber < 0 Then Exit Sub
If RowNumber > DsPhoto.Tables("Les Photos").Rows.Count - 1 Then Exit Sub
TxtNum.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("numéro").ToString
TxtNom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Nom").ToString
TxtPrénom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("prénom").ToString
Dim monimage = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo").ToString
PicPhoto.Load(My.Application.Info.DirectoryPath & "\Photos\" & DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo"))
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "Gestion des Photos")
Exit Sub
Finally
'Macon.Close()
End Try
End Sub
Private Sub BtMoveFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtMoveFirst.Click
On Error GoTo err
RowNumber = 0
If RowNumber = -1 Then Exit Sub
TxtNum.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("numéro").ToString
TxtNom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Nom").ToString
TxtPrénom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("prénom").ToString
Dim monimage = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo").ToString
PicPhoto.Load(My.Application.Info.DirectoryPath & "\Photos\" & DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo"))
Exit Sub
err:
GerrerErreur()
End Sub
Private Sub BtMovePrevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtMovePrevious.Click
On Error GoTo err
RowNumber -= 1
If RowNumber = -1 Then Exit Sub
TxtNum.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("numéro").ToString
TxtNom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Nom").ToString
TxtPrénom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("prénom").ToString
Dim monimage = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo").ToString
PicPhoto.Load(My.Application.Info.DirectoryPath & "\Photos\" & DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo"))
Exit Sub
err:
GerrerErreur()
End Sub
Private Sub BtMoveNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtMoveNext.Click
On Error GoTo err
RowNumber += 1
If RowNumber > DsPhoto.Tables("Les Photos").Rows.Count - 1 Then Exit Sub
TxtNum.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("numéro").ToString
TxtNom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Nom").ToString
TxtPrénom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("prénom").ToString
Dim monimage = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo").ToString
PicPhoto.Load(My.Application.Info.DirectoryPath & "\Photos\" & DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo"))
Exit Sub
err:
GerrerErreur()
End Sub
Private Sub BtMoveLast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtMoveLast.Click
On Error GoTo err
RowNumber = DsPhoto.Tables("Les Photos").Rows.Count - 1
If RowNumber > DsPhoto.Tables("Les Photos").Rows.Count - 1 Then Exit Sub
TxtNum.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("numéro").ToString
TxtNom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Nom").ToString
TxtPrénom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("prénom").ToString
Dim monimage = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo").ToString
PicPhoto.Load(My.Application.Info.DirectoryPath & "\Photos\" & DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo"))
Exit Sub
err:
GerrerErreur()
End Sub
Sub GerrerErreur()
PicPhoto.Load(My.Application.Info.DirectoryPath & "\Photos\Error.jpg")
End Sub
End Class |
Partager