[Débutant] ajouter des données dans une base access avec OleDb

Imports System.Data Imports System.Data.OleDb Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim SavInto As New OleDb.OleDbCommand Dim ConStr As String = _ "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _ Application.StartupPath & "\supplément SG.mdb" Dim Conn As New OleDbConnection(ConStr) SavInto.Connection = Conn SavInto.CommandType = CommandType.Text SavInto.CommandText = "INSERT INTO Principale(N° spc,N° SG,Val,Coul,Type,Perf,U,Code,Band,Paper/Gum,Date,Print,Date suppl)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "', '" & TextBox5.Text & "','" & ComboBox1.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "', '" & ComboBox2.Text & "','" & TextBox9.Text & "','" & ComboBox3.Text & "','" & TextBox10.Text & "') " Conn.Open() SavInto.ExecuteNonQuery() Conn.Close() MsgBox("Données ajoutées avec succés") Catch ex As Exception Exit Sub End Try TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox9.Text = "" TextBox10.Text = "" End Sub End Class

Bonjour,

Si je peux t'apporter quelque chose, voici un exemple de code que tu devras adapter à ton cas :

En c#

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
                 OleDbConnection MyConnection = new OleDbConnection(@"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ta base de données.accdb;Persist Security Info=False");
 
                 MyConnection.Open();
 
                   String my_querry = "INSERT INTO Ma_table (Num, NomPrenom) VALUES (@param1, @param2)";
 
                 using (OleDbCommand cmd = new OleDbCommand(my_querry, MyConnection))
                       {
                         //Création et déclaration des paramètres
 
                       cmd.Parameters.Add("@param1", OleDbType.Integer).Value = TextBox1.Text;
                        cmd.Parameters.Add("@param2", OleDbType.VarChar).Value = TextBox2.Text;
 
 
                         cmd.ExecuteNonQuery();
                       }
 
                        MyConnection.Close();

En vb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub SurroundingSub()
    Dim MyConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ta base de données.accdb;Persist Security Info=False")
    MyConnection.Open()
    Dim my_querry As String = "INSERT INTO ta_table (Num, NomPrenom) VALUES (@param1, @param2)"
 
    Using cmd As OleDbCommand = New OleDbCommand(my_querry, MyConnection)
        'Création et déclaration des paramètres
 
        cmd.Parameters.Add("@param1", OleDbType.[Integer]).Value = TextBox1.Text
        cmd.Parameters.Add("@param2", OleDbType.VarChar).Value = TextBox2.Text
        cmd.ExecuteNonQuery()
    End Using
 
    MyConnection.Close()
End Sub

Selon comment tu travail as-tu regarder avec une base de données SQLITE ?

En espérant que mes exemples te servent...