Problème d'ajout vb.net

Version imprimable

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 :cry:

Code:

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

07/06/2008, 01h20
Philippe Vialatte

Salut

Citation:

Envoyé par maroon1970

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

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:

cmd.ExecuteNonQuery()

Citation:

Envoyé par 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 :cry:
...
.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:

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 ;)