[VB6] Update Fichier Text comme source ODBC.
bonjour,
voici mon problème.
un fichier texte (formaté en style csv) , me sert de source de donnée.
Je l'attaque via :
Code:
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:
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:
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:
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. :wink:
