Remplir base de données Access à partir de champs Vb 2010

**coder123** · 05/05/2014, 13h18

Bonjour,

Je suis nouveau sur le forum, je viens demander de l'aide.
Je voudrais savoir comment remplir ma base de données à partir de mes champs VB

J'ai déjà établi la connexion il me semble que tout marche bien

Voici mon 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
27
28
29
30
31
 
Imports System
Imports System.Data.OleDb
 
Public Class Form1
    Dim c As New OleDbConnection
    Dim sql As String
    Dim dtset As New DataSet
    Dim adaptContact As OleDbDataAdapter
    Dim bl As Boolean
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        c.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\solution_clients.mdb"
        Try
 
 
            c.Open()
            MsgBox("Données ajouté avec succès")
            c.Close()
        Catch ex As Exception
            Exit Sub
        End Try
 
    End Sub

Merci

**coder123** · 07/05/2014, 13h21

Pour les intéressé

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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TextBox1.Focus()
        Try
            Dim SavInto As New OleDb.OleDbCommand
            Dim ConStr As String = _
                "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
                Application.StartupPath & "\solution.mdb"
            Dim Conn As New OleDbConnection(ConStr)
            SavInto.Connection = Conn
            SavInto.CommandType = CommandType.Text
            SavInto.CommandText = "INSERT INTO main(client,entreprise)values ('" & TextBox1.Text & "','" & TextBox2.Text & "') "
            Conn.Open()
            SavInto.ExecuteNonQuery()
            Conn.Close()
            'MsgBox("Données ajouté avec succé")
            Me.Refresh()
            Form2.Show()
 
        Catch ex As Exception
            Exit Sub
        End Try
 
        TextBox1.Text = ""
        TextBox2.Text = ""
    End Sub