Discussion :

[maroon1970]

salut tous le monde bon le problème c'est que je veux déclancher àpartir d'un seul boutton une requête d'ajout pour 2 table
j'ai éssayer ce code mais sa marche pas merci de m'aider

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        cmd.Connection = cn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "insert into vol_programme(numéro_vol,code_ville,code_ville_a,fréquence)values('" & TextBox1.Text & "','" & TextBox2.Text & "', '" & TextBox7.Text & "', '" & TextBox12.Text & "')"
        cmd.Connection = cn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "insert into depart(code_ville,nom,pays,date_depart,heure_depart)values('" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')"
        Try
            cmd.ExecuteNonQuery()
            MessageBox.Show("this flight is ready to take off", "WanaSoft", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

[Philippe Vialatte]

Salut

j'ai éssayer ce code mais sa marche pas merci de m'aider

Qu'est-ce que tu entends par "ca marche pas" ?

Exception ? -> laquelle, et quel message ?

Pas d'exception, pas de modifs de la base ?

Explosion de l'ordinateur, et déclenchement d'une alerte européenne (j'aime bien celle-la )?

Ceci dit, a premiere vue, je dirais que c'estr parce que tu n'as qu'un seul

Code :

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

cmd.ExecuteNonQuery()

[Kikos31]

salut tous le monde bon le problème c'est que je veux déclancher àpartir d'un seul boutton une requête d'ajout pour 2 table
j'ai éssayer ce code mais sa marche pas merci de m'aider
...
.CommandText = "insert into depart(code_ville,nom,pays,date_depart,heure_depart)values('" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')"

Salut,

Pvialatte à raison biensur, il te faut une cmd.executeNonQuery pour chacune des requettes. Sinon tu ne fait qu'initialiser des propriétés 2 fois de suite (les nouvelles valeurs écrasant les anciennes) avant d'executer la methode qui fait le boulot...

Mais en plus, c'est une trés mauvaise idée d'inserer directement les valeurs dans ta requette.Par exemple, tu peux avoir des problèmes avec les dates (ex : jj/mm ou mm/jj ?).

C'est pour ça que la classe command à une propriété parameters qui te permet de t'affranchir de ça :

Voici un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        Try
            Dim reqString As String = "insert into Liens(synoptique,lien,version) values (@synoptique,@lien,@version)"
            Using Cmd As New OleDb.OleDbCommand(reqString, Bdd)
                Cmd.Parameters.Add("@Synoptique", OleDb.OleDbType.VarChar).Value = nomfichier
                Cmd.Parameters.Add("@Lien", OleDb.OleDbType.VarChar).Value = champ
                Cmd.Parameters.Add("@Version", OleDb.OleDbType.UnsignedTinyInt).Value = version
                Cmd.ExecuteNonQuery()
            End Using
        Catch ex As Exception
            MsgBox("Erreur d'accès aux données :" & Environment.NewLine & ex.Message, MsgBoxStyle.Critical, "Extraction liens")
        End Try

Attention il faut bien prendre garde d'ajouter les paramètres dans le bon ordre et surtout de bien préciser leur type (varchar, integer, date...)

Enfin c'est comme tu veux hein