Sauvegarde base Access

**feldi** · 30/05/2011, 17h08

Bonjour,

pour finir mon projet, je dois enregistrer des informations dans une base Access (base Access 2007) depuis mon programme vb.net (visual studio 2008).

Le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Imports System.Diagnostics
Imports System.IO
Imports System.IO.IOException
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports System.Data.Sql
 
Public Class FicheCollecte
   Private Sub btn_valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_valider.Click
    Try
                    Dim connexion As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\BDDContrat.accdb;Persist Security Info=False")
                    Dim cmd As IDbCommand
                    connexion.Open()
                    'Dim insertion As SqlCommand = New SqlCommand("Insert Into client Values ('','txt_nom.text','txt_prenom.text','txt_raisonSociale.text','txt_adresse.text','txt_commune.text','txt_codePostal.text', 'txt_telFixe.text','txt_telPort.text','txt_mail.text', 'txt_interlocuteur.text')")
                    cmd.CommandText = "Insert Into client Values ('','txt_nom.text','txt_prenom.text','txt_raisonSociale.text','txt_adresse.text','txt_commune.text','txt_codePostal.text', 'txt_telFixe.text','txt_telPort.text','txt_mail.text', 'txt_interlocuteur.text')"
                    If connexion.State = ConnectionState.Open Then
                        cmd.ExecuteNonQuery()
                    End If
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try
 
End sub