Parametre ADODCRésolu

Question

Bonjour &#224; tous,



Sous Vb6, J'ai un datagrid, un adodc et une base de donn&#233;es Access.



Lorsque je param&#232;tre en dur l'adodc et que je fais pointer le datagrid dessus, je peux sans aucun code suppl&#233;mentaire modifier directement les donn&#233;es de la table afficher dans le datagrid.

L'ennuis, c'est que la requ&#234;te que je veux vraiment utiliser poss&#232;de un
param&#232;tre qui vient d'un autre formulaire. Par cons&#233;quent, je param&#232;re
l'adodc du datagrid par le code en faisant cela:

Public sub Connexion()

    sql "SELECT * FROM Table Where ((Table.Num) '" &  Saisie.Num  & "');"

    Set rst  = New ADODB.Recordset

    Set cnn =  New ADODB.Connection

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\bd.mdb" & _

            ";Persist Security Info=False"

    rst.CursorLocation = adUseClient

    rst.Open sql, cnn, adOpenDynamic, adLockOptimistic

    Set rst.ActiveConnection = Nothing

     Set Adodc1.Recordset = rst 

    cnn.Close
End sub



Ca marche tr&#232;s bien, l'ennuis, c'est que maintenant, il m'est impossible de modifier les donn&#233;es de la table!
Je peux changer le texte, mais rien n'est sauv&#233;, j'ai mis les options
Allow &#224; true mais &#231;a ne fait rien, j'ai m&#234;me essay&#233; de faire un bouton
Enregistrer dans lequel je mets

    Adodc1.Recordset.Update

    Adodc1.Recordset(3)  = DataGrid1.Columns(3)

Mais rien n'est mis &#224; jour!

Quelqu'un aurait-il une id&#233;e, ou m&#234;me la solution?

Merci pour votre aide.
TBBUIM

tbbuim1 · Accepted Answer

C'&#233;tait tout simple en fait!

Il faut enlever les lignes

Set rst.ActiveConnection =  Nothing

cnn.close

Ainsi on peut modifier les donn&#233;es directement dans le datagrid

 Public sub Connexion()

     sql "SELECT * FROM Table Where ((Table.Num) '" &  Saisie.Num  & "');"

     Set rst  = New ADODB.Recordset

     Set cnn = New ADODB.Connection

     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\bd.mdb" & _

             ";Persist Security Info=False"

     rst.CursorLocation = adUseClient

     rst.Open sql, cnn, adOpenDynamic, adLockOptimistic

     'Set rst.ActiveConnection = Nothing

     Set Adodc1.Recordset = rst

     'cnn.Close

End sub

TBBUIM

nuelo · Answer

comment connecté une base de données oracle 8i à visual basic 6.0?

Parametre ADODC

2 réponses

Discussions similaires