[VB.NET] filtre dans base de donnée

Code:

---

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

Dim i As Integer Dim tableresult() As DataRow Dim filtre As String     filtre = "code_unique = '" filtre = filtre & "gr1" & "'" tableresult = DtResult.Select(filtre)     For i = 0 To (tableresult.Length - 1) Dtsauv.NewRow() Drsauv(i) = tableresult(i) Next i UpdateConnexion_sauv("resultat")

---

J'ai cette partie de recherche de données dans une table access 'result' de toute les lignes qui commencent par "GR1"
et je veut les recopier dans une autre table access de nom 'sauv'

Petit probleme je ne recupere que les ligne qui sont gr1 et pas les lignes qui commence par gr1

et quand je veut les copier dans la table sauv ca me marque une erreur:
"La reference d'objet n'est pas definie a une instance d'ojet"[/code]

Citation:

---

Envoyé par speedtug

Petit probleme je ne recupere que les ligne qui sont gr1 et pas les lignes qui commence par gr1

---

il faut peut etre ajouter LIKE dans ton SQL.

Code:

---

1 2 3 4

filtre = "code_unique = '" filtre = filtre & "LIKE gr1" & "'" tableresult = DtResult.Select(filtre)

---

dis ns si cela fonctionne.

@+

Essayes avec

Code:

---

1 2 3 4

'... filtre = "SUBSTRING(code_unique, 1, 3) = 'gr1'" '...

---

Sinon debugges pas à pas et repère la ligne exacte qui lève l'exception en espionnant tous les objets tu pourras reperer celui qui se trouve à Nothing de façon anormale :wink:

Merci pour les reponses

pour substring ca marche impec

par contre j'ai toujours l'erreur sur la ligne

Code:

---

1 2 3 4

... Drsauv(i) = tableresult(i) ...

---

Oui mais quel est l'objet qui se retrouve anormalement à nothing à ce moment (Espions :wink: )
Intuitivement je dirai que tu dois faire plutôt

Code:

---

1 2 3 4 5 6 7 8

Dim ligne As DataRow '...etc.. For i = 0 To (tableresult.Length - 1) ligne = Dtsauv.NewRow() ligne = tableresult(i) Dtsauv.Rows.Add(ligne) Next i

---

L'erreur est deja plus compréhensible mais je n'ait pas trouvé de solution

a la ligne

Code:

---

1 2 3 4

... Dtsauv.Rows.Add(ligne) ...

---

Il y a l'erreur : Cette ligne appartient déjà à une autre table.

Oui excuses moi c'est normal

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim i As Integer Dim tableresult() As DataRow Dim filtre As String   filtre = "SUBSTRING(code_unique, 1, 3) = 'gr1'" tableresult = DtResult.Select(filtre) Dtsauv.Clear For i = 0 To (tableresult.Length - 1) Dtsauv.ImportRow(tableresult(i)) Next i UpdateConnexion_sauv("resultat")

---

Ok merci beaucoup ca marche