Insertion dans un datagrid

Question

Bonjour,

Je veux inc&#233;rer 2 valeurs dans 2 colonne pr&#233;cise sur un recordset precis mais je n'y arrive pas.... besoin d'aide et d esuggestion. J'utilise ADO et Access 2000. Voici mon code;

Private Sub addBtn_Click()
Dim rstrunk As ADODB.Recordset
Dim SQLstmt As String
Dim connbd1 As ADODB.Connection
Dim MaVarDossierProjet As String
Dim MaBase  As String


Label7(35) = Label100


MaVarDossierProjet = Label7(35).Caption
MaBase = "\bd1.mdb"


DbFile = MaVarDossierProjet & MaBase



       Set connbd1 = New ADODB.Connection
       connbd1.CursorLocation = adUseClient
       connbd1.ConnectionString = _
             "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & DbFile & ";" & _
             "Persist Security Info=False"



      connbd1.Open



'******************************************************************************
      SQLstmt = "SELECT [troncon], [Extr&#233;mit&#233;1], [Extr&#233;mit&#233;2] FROM [trunk]where troncon= "" & Combo7 & """


'******************************************************************************
'      Get the Records
      Set rstrunk = New ADODB.Recordset
      rstrunk.Open SQLstmt, connbd1, adOpenStatic, adLockOptimistic, _
           adCmdText

Set DataGrid7.DataSource = rstrunk


With rstrunk
.Fields("Extr&#233;mit&#233;1") = Combo8
.Fields("Extr&#233;mit&#233;2") = Combo13
End With


End Sub

saharbiahmed · Answer

VITAMINE A

il faut mettre l'instuction suivante pour mettre a jour le recordset :

With rstrunk
.Fields("Extr&#233;mit&#233;1") = Combo8
.Fields("Extr&#233;mit&#233;2") = Combo13

.UpDate                 '<=======

End With

Insertion dans un datagrid

1 réponse

Discussions similaires