[VB6] Update Fichier Text comme source ODBC.

**Actarus69** · 07/03/2006, 12h58

bonjour,

voici mon problème.

un fichier texte (formaté en style csv) , me sert de source de donnée.
Je l'attaque via :

Code :

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

1
2
Cnx.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
             "DBQ=" & aPath & ";Extensions=txt;Persist Security Info=False;"

voici l'ouverture de la query

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
 
Public Function execQuery(laquery As String) As ADODB.Recordset
' $ To execute a query
    Dim rs As ADODB.Recordset
    i = 0
    Set rs = New ADODB.Recordset
    i = 1
    rs.Open laquery, Cnx, 3, 3
    i = 2
    Set execQuery = rs
 
Exit Function
 
Erreur:
    If i = 1 Then
        rs.Open laquery, Cnx
        Set execQuery = rs
    ElseIf 1 = 2 Then
        Set execQuery = rs
    End If
End Function

et la query est du genre :

Code :

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

1
2
 
Select * FROM [Monfichier.txt]

en faite une fois mon fichier texte dans mon recordset , je boucle sur chaque enregistrement et sur certains je réaloue la valeur d'un champ du style:

Code :

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

 monrs.fields(1) = "OK"

Mon problème c'est quand je veux faire le movenext.

Apparement il n'accepte pas que je modifie une valeur.

Ma question : peux-t-on quand on se sert d'un fichier texte comme source ODBC , faire de l'update ou se trouve-t-on réduit à ne faire que de la lecture ?

Merci.

PS si je ne suis pas clair , ne pas hésiter à me le dire.