CRÉER, CONNECTER ET REMPLIR UNE BASE ACCESS
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
-
27 mai 2013 à 11:39
cs_colby Messages postés 126 Date d'inscription mardi 10 mai 2005 Statut Membre Dernière intervention 14 novembre 2022 - 23 mars 2018 à 11:53
cs_colby Messages postés 126 Date d'inscription mardi 10 mai 2005 Statut Membre Dernière intervention 14 novembre 2022 - 23 mars 2018 à 11:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/53470-creer-connecter-et-remplir-une-base-access
https://codes-sources.commentcamarche.net/source/53470-creer-connecter-et-remplir-une-base-access
23 mars 2018 à 11:53
Modifié le 23 mars 2018 à 11:16
Dim colonne As Integer Dim ligne As Integer ' http://vb.net-informations.com/datagridview/vb.net_datagridview_image.htm 'ajout colonne image Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim img As New DataGridViewImageColumn() Dim inImg As Image = Image.FromFile("C:\Users\Public\Pictures\Capture\Screenshots\hourglass-128.png") img.Image = inImg DataGridView1.Columns.Add(img) img.HeaderText = "Image" img.Name = "img" End Sub 'Cellule image vers PictureBox Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click PictureBox1.Image = CType(DataGridView1.Item(3, 3).Value, Image) End Sub 'inserer image dans cellule Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click DataGridView1.Item(2, 3) = New DataGridViewImageCell DataGridView1.Item(2, 3).Value = New Bitmap("C:\Users\Public\Pictures\Capture\Screenshots\hourglass-128.png") End Sub 'PictureBox vers cellule Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click DataGridView1.Item(2, 2) = New DataGridViewImageCell DataGridView1.Item(2, 2).Value = New Bitmap(PictureBox1.Image) End Sub 'insere image au clic sur la cellule Private Sub DataGridView1_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick ligne = DataGridView1.CurrentCell.RowIndex colonne = DataGridView1.CurrentCell.ColumnIndex DataGridView1.Item(colonne, ligne) = New DataGridViewImageCell DataGridView1.Item(colonne, ligne).Value = New Bitmap("C:\Users\Public\Pictures\Capture\Screenshots\hourglass-128.png") End Sub 'Cellule image vers PictureBox au double clic Private Sub DataGridView1_CellContentDoubleClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick If CType(DataGridView1.Item(colonne, ligne).Value, Image) Is Nothing Then Exit Sub ligne = DataGridView1.CurrentCell.RowIndex colonne = DataGridView1.CurrentCell.ColumnIndex PictureBox1.Image = CType(DataGridView1.Item(colonne, ligne).Value, Image) End SubVoilà
@+
23 mars 2018 à 11:08
Modifié le 22 mars 2018 à 13:48
Merci pour le commentaire.
Voir sur ce site à la fin, Champs d'image:
http://www.yevol.com/vbaccess/Lesson10b.htm
Pour les BDD, voir ce programme qui est plus abouti:
http://codes-sources.commentcamarche.net/source/55175-creer-et-connecter-une-base-access-sous-windows-8
@+ Le Pivert
22 mars 2018 à 13:02
Dim cmd As New OleDb.OleDbCommand connex.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\" & txtname.Text & ".mdb" ' on récupère la connexion dans l'objet cmd.Connection() = connex connex.Open() ' nouvelle requête de création de table, là c'est du SQL Access cmd.CommandText = "CREATE TABLE " & txttable_1.Text & "(ID_" & txttb1_col1.Text & " AUTOINCREMENT CONSTRAINT PKEY Primary Key," & txttb1_col2.Text & " VARCHAR(100)," & txttb1_col3.Text & " VARCHAR(100)," & txttb1_col4.Text & " VARCHAR(100))" 'pour colonne numériques mettre " INTEGER," à la place de " VARCHAR(100)," ' on lance la requête cmd.ExecuteNonQuery()'pour colonne numériques mettre " INTEGER," à la place de " VARCHAR(100),"
POUR UNE COLONNE DE TYPE "OBJET OLE" QUE METTRE A LA PLACE DE "VARCHAR(100).
Merci d'avance.
22 déc. 2015 à 15:33
Pour ceux qui ont Windows 7, 8, 10 en 64 bits et qui n'arrivent pas à faire fonctionner la source:
selon la version de visual basic que vous utilisez:
soit:
- Menu Générer / Gestionnaire de configurations...
- Dans la liste déroulante "Plateforme de la solution active", choisir: "Nouveau"
- Dans la liste déroulante "Tapez ou sélectionnez la nouvelle plateforme", choisir : "x86" puis cliquer sur "OK"
- Vérifier ensuite que la plateforme "x86" soit sélectionnée dans la liste des projets.
soit:
- Outils / Options cliquer sur "Affichez tous les paramètres" en bas à gauche,
- Dans l'arbrescence, sélectionner "Projets et solutions/Général",
- Activer l'option "Afficher les configurations de génération avancées"
Cdlt Le Pivert
27 mai 2013 à 11:39
Pour les possesseurs de Windows 7 et 8 voir cette source:
http://www.vbfrance.com/codes/CREER-CONNECTER-BASE-ACCESS-SOUS-WINDOWS_55175.aspx
Bonne programmation