Creer, connecter et remplir une base Access

Soyez le premier à donner votre avis sur cette source.

Vue 14 755 fois - Téléchargée 3 735 fois

Description

Vous pouvez créer 3 bases Access qui restent en mémoire et que vous pouvez appeler à tous moments. Dans chaque base création de 3 tables qui contiennent chacune 4 colonnes (dont ID).
Vous pouvez ajouter, modifier et supprimer des données. Tous se fait à partir d'un DataGrid.
Une aide est incluse.

Conclusion :


Merci à flymann pour le code de départ
http://www.vbfrance.com/codes/CONNEXION-BASE-ACCESS-CREATION-BASE-DONNEES-ACCESS-VB_43441.aspx

Pour les débutants se familiariser avec Access et le DataGrid

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Le Pivert
Messages postés
6434
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 décembre 2019
91 -
J'ai vu ton post a propos des images, j'ai fait cela si ça peut t'aider:

 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 Sub


Voilà
@+
cs_colby
Messages postés
111
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
23 mars 2018
> cs_Le Pivert
Messages postés
6434
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 décembre 2019
-
Merci encore.
cs_Le Pivert
Messages postés
6434
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 décembre 2019
91 -
Bonjour,

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
cs_colby
Messages postés
111
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
23 mars 2018
> cs_Le Pivert
Messages postés
6434
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 décembre 2019
-
Merci, tout est dit.
cs_colby
Messages postés
111
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
23 mars 2018
-
Salut, votre code est super pour nous les débutants. Seulement j'ai une question :

 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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.