Valeurs dans DataGridView

Bonjour à tous,

Voilà, j'ai un DataGridView et j'aimerais pourvoir récupérer les valeurs de chaque cellules afin de créer une commande SQL pour les insérer dans une autre base de données.

Je ne sais pas si c'est la meilleur façon de procéder, mais c'est la seule idée qu'il m'est venue à l'esprit.

Je parcours donc chaque ligne et chaque colone puis je récupère les valeurs. Mais le problème concerne la fin de la commande SQL ou je dois mettre une parenthèse fermer et un point virgule.

Je m'explique, voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim i, j AsInteger Dim txt, nulle AsString txt = "INSERT INTO pslog VALUES ('" nulle = "NULL" For i = 0 ToMe.DataGridView.Rows.Count - 1 For j = 0 ToMe.DataGridView.Rows(0).Cells.Count - 1 IfMe.DataGridView.Rows(i).Cells(j).Value.ToString = ""Then txt = txt & "'NULL'," Else txt = txt & Me.DataGridView.Rows(i).Cells(j).Value.ToString & "','" EndIf Next j txt = txt & ");" MsgBox(txt) txt = "INSERT INTO pslog VALUES ('" Next i

---

Le variable NULL conerne les champs qui ne contiennent pas de données, donc je les remplace par NULL.

Lorsque j'éxécute mon application, j'obtiens ceci :

Citation:

---

INSERT INTO matable VALUES('A','B','C',');

---

J'essai de supprimer les caractères de fin qui me posent problèmes mais je n'y arrive pas.

Est-ce que quelqu'un pourrais m'aider svp ?

Merci à tous !!!

Bonjour,

obtenez-vous ce que vous voulez avec le code suivant ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim i, j As Integer Dim txt, nulle As String txt = "INSERT INTO pslog VALUES (" nulle = "NULL" For i = 0 To Me.DataGridView.Rows.Count - 1 For j = 0 To Me.DataGridView.Rows(0).Cells.Count - 1 If j > 0 Then txt = txt & "," EndIf txt = txt & "'" If Me.DataGridView.Rows(i).Cells(j).Value.ToString = "" Then txt = txt & "NULL'" Else txt = txt & Me.DataGridView.Rows(i).Cells(j).Value.ToString & "'" EndIf Next j txt = txt & ");" MsgBox(txt) txt = "INSERT INTO pslog VALUES (" Next i

---

Impec, merci beaucoup bouvda !!! :king:

Maintenant, j'aimerais pouvoir distinguer les chaines de caractères des entiers afin de ne pas mettre de ' entre les entiers, as tu une idée svp ?

Merci beaucoup !!!

Avec des :

Code:

---

1 2 3 4

If TypeOf mavariable Is Integer Then ... EndIf

---

C'est indiqué dans la FAQ ;).

Euhhh ok, merci mais je ne comprend pas trop comment insérer cette ligne dans mon cas ??? Excuse moi mais je débute :P

Peut être une autre solution ???

Merci

Il existe aussi la propriété ValueType de la cellule qui donne le type des données contenues.
Cela donnerait donc :

Code:

---

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 27

Dim i, j As Integer Dim txt, nulle As String txt = "INSERT INTO pslog VALUES (" nulle = "NULL" For i = 0 To Me.DataGridView.Rows.Count - 1 For j = 0 To Me.DataGridView.Rows(0).Cells.Count - 1 If j > 0 Then txt = txt & "," EndIf If Me.DataGridView.Rows(i).Cells(j).ValueType Is String Then txt = txt & "'" EndIf If Me.DataGridView.Rows(i).Cells(j).Value.ToString = "" Then txt = txt & "NULL" Else txt = txt & Me.DataGridView.Rows(i).Cells(j).Value.ToString EndIf If Me.DataGridView.Rows(i).Cells(j).ValueType Is String Then txt = txt & "'" EndIf Next j txt = txt & ");" MsgBox(txt) txt = "INSERT INTO pslog VALUES (" Next i

---