Discussion :

[speedtug]

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
 
        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]

[freddyboy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
filtre = "code_unique = '"
filtre = filtre & "LIKE gr1" & "'"
tableresult = DtResult.Select(filtre)

dis ns si cela fonctionne.

@+

[neguib]

Essayes avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[speedtug]

Merci pour les reponses

pour substring ca marche impec

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
...
Drsauv(i) = tableresult(i)
...

[neguib]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[speedtug]

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

a la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
...
Dtsauv.Rows.Add(ligne)
...

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

[neguib]

Oui excuses moi c'est normal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[speedtug]

Ok merci beaucoup ca marche