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
et la query est du genre :
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
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
1
2 Select * FROM [Monfichier.txt]
Mon problème c'est quand je veux faire le movenext.
Code : Sélectionner tout - Visualiser dans une fenêtre à part monrs.fields(1) = "OK"
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.![]()
Partager