pb de remplissage de table

Question

bonjour tlm encore moi et pour un moment je pense :)
voila mon souci je n arrive pas a trouver l erreur (je debute) je voudrais 
remplir ma table fournisseur avec un insert j ai ma biblio de classe dedans 
ma requete et depuis mon bouton val je met pour que ca fonctionne 
le plus simple je vous passe le code si vous pouvez m aider merci d avance 

BOUTON


Private 
Sub btnValider_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles btnValider.Click



'declaration de variables



Dim Fourni, NomCom, PreCom, Adresse, Ville, CodePost, Fonction, Numero, Email _


, Modele, NumSerie, Lieu, Copie, Contrat, IdContrat, CoutLocMois 
As 
String



Dim idfournisseur 
As 
Integer



Dim ajout 
As 
New ClassCopieur.Class1


 



'idfournisseur = tbidfourni.Text


Fourni = TBajoutFourn.Text


NomCom = TBNomCom.Text


PreCom = TBPre.Text


Adresse = TBAd.Text


Ville = TBVil.Text


CodePost = TBCp.Text


Fonction = TBFon.Text


Numero = TBNum.Text


Email = TBEmail.Text


Modele = TBModele.Text


NumSerie = TBNumSerie.Text


Lieu = TBLieu.Text


Copie = TBCopie.Text


Contrat = CBContrat.Text


IdContrat = TBIDContrat.Text


CoutLocMois = TBCoutLocMois.Text


ajout.FourInsert(idfournisseur, Fourni, Adresse, Ville, CodePost, NomCom, PreCom, Fonction, Numero, Email)



If ajout.MessageError <> "" 
Then



Dim MonMessage 
As 
String = ajout.MessageError


MessageBox.Show(MonMessage)



End 
If


MessageBox.Show("La Mise &#224; jour a bien &#233;t&#233; effectu&#233;e")



End 
Sub

_______________________________________
ET LA DANS MA BIBLIO DE CLASSE


Public Function FourInsert(ByVal idfournisseur As Integer, ByVal Fourni As String, ByVal NomCom As String, ByVal PreCom As String, ByVal Adresse As String, _



ByVal Ville 
As 
String, 
ByVal CodePost 
As 
String, 
ByVal Fonction 
As 
String, 
ByVal Numero 
As 
String, 
ByVal Email 
As 
String)



' As String



Dim Connexion 
As 
New System.Data.SqlClient.SqlConnection



Dim MyCommand 
As 
New System.Data.SqlClient.SqlCommand



Dim DA 
As 
New System.Data.SqlClient.SqlDataAdapter


Connexion.ConnectionString = MaChaineConnexion



'Requete = ""


Requete = "INSERT INTO FOURNISSEUR VALUES ('" & idfournisseur & "'," & Fourni & "," & _


Adresse & ", '" & Ville & "','" & CodePost & "','" & NomCom & "','" & PreCom & "','" & Fonction & "','" & Numero & "','" & Email & "')"


 


 


MyCommand.Connection = Connexion


MyCommand.CommandText = Requete



Try


Connexion.Open()



'execution de la commande SQL d'insertion


MyCommand.ExecuteNonQuery()



Catch ex 
As SqlClient.SqlException


MessageError &= ex.Message



Catch ex 
As Exception


MessageError &= ex.Message



End 
Try



' Return Requete



End 
Function

J ESPERE QUE VOUS POURREZ M AIGUILLER UN PEU MERCI D AVANCE

sgrant · Answer

Salut

Mets des cotes &#224; Fourni et Adresse

Requete = "INSERT INTO FOURNISSEUR VALUES ('" & idfournisseur & "','" & Fourni & "','" & _


Adresse & "', '" & Ville & "','" & CodePost & "','" & NomCom & "','" & PreCom & "','" & Fonction & "','" & Numero & "','" & Email & "')"

Sinon si ca ne marche precise l' erreur stp


sg

mikoteam · Answer

voila en fait j ai pas de message d erreur c'est comme si c etait enregistr&#233;
mais rien j ai bien rajout&#233; les cotes mais ca change pas toujours rien 
dans ma base

sgrant · Answer

au fait n'oublie de fermer la connection : Connexion.close

ca me semble correct...

peux tu afficher le resultat de ta requete, la copier et de l'executer sur l'analyseur de requete de sqlserver...

sinon apre il falloir verifier si cette requete est bien lanc&#233;..


sg

Pb de remplissage de table

3 réponses

Discussions similaires