modification de données sur une base access

Je désire modifier une donnée via le code dans vb6 sur une base access mais j'ai une erreur : Erreur d'exécution 3251, l'opération demandée par l'application n'est pas prise en charge par le fournisseur.
voici mon code :


Option Explicit
Dim maconnexion As New ADODB.Connection
Dim monrec As New ADODB.Recordset

Private Sub Form_Load()
With macoconnexion
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "c:/mes documents/essai2.mdb"
.Open
End With
With monrec
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Source = "select * from clients where code = 'aaaaa'"
.ActiveConnection = maconnexion
.Open
End With

Text1.Text = monrec.Fields(1)
End Sub

Private Sub BTN_modifier_Click()
monrec.Fields("societe") = CStr(Text1.Text)
monrec.update
end sub

merci pour votre réponse

Salut
Si tu veux modfifier tes champs, dans ton bouton tu place le code .edit suivi de .update sur ton recordset,
maintenant , ya plusieurs truc qu'il ya pas ds ton code...
tu arrive a afficher tes champs sans Pb?
y a une methode infaillible pour que sa tourne sans pb c'est :


Dim monrec As ADODB.Recordset
Dim maconnexion As ADODB.Connection
Dim SQL As String
Dim Path As String
Dim connect As String

Il faut initialiser ton recordset et ta connection:

Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection

tu connecte ta base et VB, le path utilisé, permet de rendre ton application portative:

Path = App.Path & "\essai2.mdb"
connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path & ";Persist Security Info=False"
With maconnection
.ConnectionString = connect
.Open
End With

Ta requette SQL:

SQL="select * from clients where code = 'aaaaa'"

Tu ouvre ta base suivant la requette, et tu laisse cette configau chargement de ton form, ca permet de ne pas pouvoir modifier tes donnee sans faire expres...:

monrec.Open SQL, cn, adOpenStatic, adLockReadOnly, adCmdText

tu recupere les champs qui t'interresse:

Text1.Text = monrec!(tu place ici le nom de ta colonne, par ex: identifiant ou client)

tu ferme ton recordset et tu reinitialise tout pour rien garder en memoire:

monrec.Close
Set maconnexion = Nothing
maconnexion.Close
Set maconnexion = Nothing

Maintenant ou place tu ce code?? fait gaffe suivant ou tu le place defois il reconnait pas ton recordset dans tes boutons, dans ce cas tu le declare en tant que public avec ta connection et tu initialise seulement dans ton load, comme sa no soucy!!

Pour ton bouton:

Private Sub BTN_modifier_Click()


Sa rend tout tes champs modifiable:
monrec.edit

T'as plus qu'a suavegarder dans ta base:
monrec.update

end sub

Voilou! J'espere que sa a pu te donner un coup de pouce!!

Ou une autre solution ;) se mettre au SQL !!

SQL = "UPDATE clients SET societe='" & Text1.text & "' WHERE code='aaaa' ;" Base.Execute SQL

By Renfield

thomas_reynald@msn.com

Aucune touche n'a ete blessee lors de la saisie de ce texte..........

bonjour!
besoin d'aide, très urgent.
en executant mon programme pour faire une recherche d'enregistrement, j'ai rencontré l'erreur suivant  : erreur d'execution '3251': "le fournisseur actuel ne prend pas en charge l'interface nécessaire pour la fonctionnalité d'index". voici le code:

Dim rc As New ADODB.Connection
Dim ecole As New ADODB.Recordset
Dim reglement As New ADODB.Recordset
Dim str, eco As String
Private Sub Command1_Click()
'Dim ecole As TableDef
Set rc = New ADODB.Connection
str = "provider=microsoft.jet.oledb.4.0;Data source=E:\miche\rc.mdb"
rc.Open str
'Set ecole = New ADODB.Recordset
eco = "select * from ecole where nom_ecole=''"
ecole.Open eco, rc, adOpenKeyset, adLockOptimistic
ecole.Index = "nom_ecole"
ecole.Seek "=", Text1
ecole.MoveFirst
Do While Not ecole.EOF
    If Text1 = ecole.Fields(1) Then
        MsgBox ("recherche réussite")
        Text2 = ecole.Fields(2)
        Text3 = ecole.Fields(3)
        Text4 = ecole.Fields(4)
        Text5 = ecole.Fields(5)
        Text6 = ecole.Fields(6)
        Text7 = ecole.Fields(7)
        Text8 = ecole.Fields(8)
        Text9 = ecole.Fields(9)
        Text10 = ecole.Fields(10)
        Text11 = ecole.Fields(11)
    Else
        MsgBox ("recherche échoué,verifier le nom,école inconnue")
        Text1 = ""
        Text1.SetFocus
    End If
    ecole.MoveNext
Loop
rc.Close
End Sub
Merci de votre aide.

code étrange....


essaies ce genre de chose :

Dim rc As New ADODB.Connection
Dim ecole As New ADODB.Recordset
Dim reglement As New ADODB.Recordset

Private Sub Command1_Click()
Dim str As String, eco As String

Set rc = New ADODB.Connection
rc.Open "provider=microsoft.jet.oledb.4.0;Data source=E:\miche\rc.mdb"

eco = "select * from ecole where nom_ecole='" & Text1 & "'"
ecole.Open eco, rc

Do While Not ecole.EOF
        MsgBox ("recherche réussite")
        Text2 = ecole.Fields(2)
        Text3 = ecole.Fields(3)
        Text4 = ecole.Fields(4)
        Text5 = ecole.Fields(5)
        Text6 = ecole.Fields(6)
        Text7 = ecole.Fields(7)
        Text8 = ecole.Fields(8)
        Text9 = ecole.Fields(9)
        Text10 = ecole.Fields(10)
        Text11 = ecole.Fields(11)

    ecole.MoveNext
Loop
rc.Close
End Sub



Renfield
Admin CodeS-SourceS- MVP Visual Basic

Bonjour!
Ca marche.
merci beaucoup.
a+