Urgent aider moi a envoyer les données d'une grille vb a une tab

Question

Bonjour, je cherche a enregistrer les données d'une grille vb a une base de données sqlserver aider moi s'il vous plait

Whismeril · Answer

Bonjour, 

Ceci est une réponse type, tous les points listés ci-dessous ne concernent pas forcément la conversation en cours, cependant il s'agit de conseils à appliquer pour maximiser les chances de réponses.

Merci de garder à l'esprit que CodeS-SourceS est une communauté d'entraide. Toutes les réponses sur le forum sont assurées par des bénévoles qui donnent de leur temps libre pour aider à résoudre les problèmes. La seule urgence pour eux est leur propre vie.

A noter également que nous ne faisons pas dans le "tout cuit". Soit tu trouves ton bonheur dans la partie sources du site, soit à l'aide de ton moteur de recherche favori. Ici, nous aidons volontiers sur une difficulté technique, précise et parfaitement isolée rencontrée dans le cours du développement. 

Penser à poster le morceau de code qui pose problème, voir ici comment utiliser la coloration syntaxique. S'il y a un message d'erreur retranscrivez le dans son intégralité, en précisant à quelle ligne apparait cette erreur.

Là des conseils d'écriture des messages et ici en particulier pour les devoirs scolaires ou PFE.


Merci donc de reformuler ta demande en respectant ces quelques points.

Zayann · Answer

Bonjour.
Qu'est ce que tu entends par "grille VB" ? Un composant datagridview ?
Quelles formes ont tes données ?
La base de donnée existe elle ?
As-tu créer la connexion avec la base de donnée ?
As tu une erreur ?
Quel est le contexte ?
 
--

ferdi2015 · Answer

oui je parle de datagridview
ma base existe
la connexion à été créer
l'erreur est que la conversion de la chaine "banque" en booléen n'est pas valide
voici mon code :  
 Connect()

            If Me.Grillestructure.Rows.Count > 0 Then

            End If
            Dim opt As String = ""
            Dim codepr As String = ""
            For i = 0 To Me.Grillestructure.Rows.Count - 1
                opt = Me.Grillestructure(1, i).Value
                If opt = True Then
                    codepr = Me.Grillestructure(0, i).Value
                    rqt = "INSERT INTO RECEVOIR(Reference_C,Instruction,Code_Struc) " _
                           & " VALUES(@Reference_C,@Instruction, @costr);"

                    mycomd = New SqlCommand(rqt, Connexion)
                    mycomd.Parameters.AddWithValue("@Reference_C", Referencetextbox.Text)
                    mycomd.Parameters.AddWithValue("@Instruction", TextInstruction.Text)
                    mycomd.Parameters.AddWithValue("@costr", codepr)

                    mydrv = mycomd.ExecuteReader
                    mydrv.Close()
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Exit Sub


        End Try

Zayann · Answer

Je ne comprend pas. 
Tu as une erreur ou il s'agit seulement de set un trou ou un false en fonction de la chaine de caractère "banque" ?

cgandco · Answer

bonjour,

Apparemment tu as un string dans 
Me.Grillestructure(1, i).Value

et tu le test par rapport à un boolean, alors ou tu as un problème d'indice, ou un problème de logique.

mais a mon avis un peu des deux.

Tu veux tester quoi en faisant 
If opt = True Then 

de plus plus tard tu devra faire un 
mycomd.ExecuteNonQuery 
et pas un

mycomd.ExecuteReader 

et au passage 
If Me.Grillestructure.Rows.Count > 0 Then 
End If

ne fait rien.

A ta place, je prendrais le temps de mettre de points d'arrêt et d'inspecter les valeurs de renvoyées en debug.

If Me.Grillestructure.Rows.Count > 0 Then 
End If 
Dim opt As String = "" 
Dim codepr As String = "" 
For i = 0 To Me.Grillestructure.Rows.Count - 1 
    opt = Me.Grillestructure(1, i).Value 
    If opt = True Then 
        codepr = Me.Grillestructure(0, i).Value 
        rqt = "INSERT INTO  RECEVOIR(Reference_C,Instruction,Code_Struc) "   & " VALUES(@Reference_C,@Instruction, @costr);"

mycomd = New SqlCommand(rqt, Connexion) 
        mycomd.Parameters.AddWithValue("@Reference_C", Referencetextbox.Text) 
        mycomd.Parameters.AddWithValue("@Instruction", TextInstruction.Text) 
        mycomd.Parameters.AddWithValue("@costr", codepr)

mydrv = mycomd.ExecuteReader 
        mydrv.Close() 
    End If 
Next 
Catch ex As Exception 
     MessageBox.Show(ex.Message) 
Exit Sub

End Try
 

bonne journée
Faites simple, aussi simple que possible, mais pas simpliste.
                                              A. Einstein.

cs_ShayW · Answer

Bonjour

l'erreur est que la conversion de la chaine "banque" en booléen n'est pas valide 


alors montre le bout de code  avec cette chaine

Urgent aider moi a envoyer les données d'une grille vb a une tab

6 réponses

Votre réponse

Discussions similaires