IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Accès aux données Discussion :

aider moi SVP


Sujet :

Accès aux données

  1. #1
    Candidat au Club
    Inscrit en
    Juillet 2007
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 3
    Par défaut aider moi SVP
    Slt Tous le monde j'ai un petit prob qui m'a rendu malade :
    je voudrai faire la mise à jour d'un champ ou plusieurs champs d'une table d'une BDD sqlserver alors mon problème c'est que ça marche dans un cas et dans l'autre ça ne marche pas sachant que les deux cas c'est la même chose

    premier Cas ou ça marche:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
     
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
            Dim employeRow As jawadDataSet.employeRow
            employeRow = JawadDataSet.employe.FindByN_emp(ComboBox1.Text)
     
     
            employeRow.nom = "toto"
            employeRow.prenom = "rien"
            employeRow.age = 22
            employeRow.date_emb = "26/03/2006"
            employeRow.sal = 80000
     
     
     
            EmployeTableAdapter.Update(JawadDataSet.employe)
     
        End Sub
    deuxième cas ou ça ne marche pas:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
     
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
            Dim employeRow As jawadDataSet.employeRow
            Dim ch(5) As object
     
            employeRow = JawadDataSet.employe.FindByN_emp(ComboBox1.Text)
     
            ch(1) = Nom1.Text
            ch(2) = Prenom1.Text
            ch(3) = Cint(Age1.Text)
            ch(4) = Cint(Sal1.Text)
            ch(5) = Cdate(Date_emb1.Text)
     
            employeRow.nom = ch(1)
            employeRow.prenom = ch(2)
            employeRow.age = ch(3)
            employeRow.date_emb = ch(5)
            employeRow.sal = ch(4)
     
     
            EmployeTableAdapter.Update(JawadDataSet.employe)
     
        End Sub
    Sachant que Nom1 et age1 .... sont des zones de texte
    je suis sûr que le code du 2ème cas est juste mais pourquoi ça ne marche pas
    dieu le sais
    alors j'attends vos réponse avec impatience
    votre ami soldierofgod

  2. #2
    Membre confirmé Avatar de guandal
    Profil pro
    Analyste programmeur
    Inscrit en
    Février 2006
    Messages
    127
    Détails du profil
    Informations personnelles :
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Analyste programmeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2006
    Messages : 127
    Par défaut
    est une collection d'objet ,
    sans trop cherché peut être qu'il faut indiquer à la sortie de quel type est ton objet:
    exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    employeRow.age = Cint(ch(3))
    .

  3. #3
    Candidat au Club
    Inscrit en
    Juillet 2007
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 3
    Par défaut
    non mon frère même en declarant chaque type tout seul ça ne marche pas alors
    c pas là le prob je crois
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
     
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
            Dim employeRow As jawadDataSet.employeRow
            Dim ch(2) As string
            dim t(2) as integer
            Dim d As Date
            employeRow = JawadDataSet.employe.FindByN_emp(ComboBox1.Text)
     
     
     
            ch(0) = Nom1.Text
            ch(1) = Prenom1.Text
            t(0) = CInt(Age1.Text)
            t(1) = CInt(Sal1.Text)
            d = CDate(Date_emb1.Text)
            employeRow.nom = ch(0)
            employeRow.prenom =ch(1)
            employeRow.age = t(0)
            employeRow.date_emb = d
            employeRow.sal = t(1)
     
     
            EmployeTableAdapter.Update(JawadDataSet.employe)
     
        End Sub
    Merci en tous cas pour ta reponse

  4. #4
    Candidat au Club
    Inscrit en
    Juillet 2007
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 3
    Par défaut
    Problème résolue merci

  5. #5
    Expert confirmé
    Avatar de smyley
    Profil pro
    Inscrit en
    Juin 2003
    Messages
    6 270
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 6 270
    Par défaut
    A l'avenir essaye quand même d'utiliser des titres plus explicites car avec "aider moi SVP" on a vraiment aucune idée du problème qui te tracasse et ce n'est pas très motivant ...

Discussions similaires

  1. aider moi svp
    Par Damish dans le forum ASP
    Réponses: 15
    Dernier message: 27/09/2006, 14h17
  2. aider moi svp mon ordinateur plante
    Par nouri.moudhffar dans le forum Windows XP
    Réponses: 15
    Dernier message: 04/08/2006, 22h05
  3. aider moi SVP
    Par FRIBGANE dans le forum ASP
    Réponses: 3
    Dernier message: 19/10/2005, 16h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo