Sujet Précédent Sujet Suivant

HELP : Ajout dans une BD depuis VB

rpedro0921 Messages postés 1 Date d'inscription vendredi 21 mars 2014 Statut Membre Dernière intervention 21 mars 2014 - 21 mars 2014 à 00:53
tchalf Messages postés 7 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 28 juillet 2014 - 28 juil. 2014 à 17:59
Bonjour tout le monde ,

Bref , je suis débutant en VB et j'ai commencer par un tp d'ajout d'un Client dans une table Tclient(NumCli,NomCli,AdrCli,VilCli,TelCli) depuis VB , donc j'ai crée la form avec les textes boxes et tout , les conditions d'ajout c'est que le NumCli s'affiche directement dans la forme càd que l utilisateur ne peux pas choisir son numcli , il s'incrémente et s'affiche sans pouvoir le modifier . Puis la condition TelCli doit contenir 10 chiffres et commencer par 06 . La dernière condition c'est que tout les textes boxes soient rempli pour pouvoir ajouter . 

Public Class NewClient
 
Public Const chainedeconnexion As String = "Provider=SQLNCLI10;Data Source=BADR;Integrated Security=SSPI;Initial Catalog=TPSMI6"
 
Public DBConnexion As New System.Data.OleDb.OleDbConnection(chainedeconnexion)
 
Dim InsertCommand As New OleDb.OleDbCommand()
 
 
 
Private Sub NewClient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
InsertCommand.Connection = DBConnexion
 
End Sub
 
 
 
'Boutton Ajouter
 
Private Sub BtnNewClient_Click(sender As Object, e As EventArgs) Handles BtnNewClient.Click
 
If TxtNomClient.Text <> "" And TxtAdrClient.Text <> "" And TxtVilClient.Text <> "" And TxtTelClient.Text <> "" Then
 
If Len(TxtTelClient.Text) <> 10 Or Mid(TxtTelClient.Text, 1, 2) <> "06" Then
 
MessageBox.Show("Veuillez entrer un numéro de téléphone valide !", "ERREUR", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
 End If
 
DBConnexion.Open()
 
InsertCommand.CommandText = "insert into Tclient(NumCli,NomCli,AdrCli,VilCli,TelCli) select count(*)+1,'" + TxtNomClient.Text + "','" + TxtAdrClient.Text + "','" + TxtVilClient.Text + "','" + TxtTelClient.Text + "' from Tclient"
 
InsertCommand.ExecuteNonQuery()
 
MessageBox.Show("Nouveau Client Ajouté !", "Nouveau Client", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
DBConnexion.Close()
 
Me.Close()
 
End If
 
 
 
End Sub

1 réponse

Réponse 1 / 1
tchalf Messages postés 7 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 28 juillet 2014
28 juil. 2014 à 17:59
Salut,

Ta requête d'insertion de données semble erronée. Elle doit être du type :

INSERT INTO table (nom_colonne_1, nom_colonne_2, ...)
VALUES ('valeur 1', 'valeur 2', ...)

--
0
Rejoignez-nous