1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
Set con2 = New ADODB.Connection
con2.CursorLocation = adUseServer
con2.Open "mabase"
con2.BeginTrans
'remplir mon recordset pour les modifications
Set rs_option = New ADODB.Recordset
'rs_option.CursorLocation = adUseServer
rs_option.ActiveConnection = con2
'rs_option.Properties("IrowsetIdentity") = True
rs_option.Open "SELECT * FROM ligne_option_type WHERE id_materielle = " & m_id_mat, con, adOpenKeyset, adLockPessimistic, adCmdText
'MsgBox rs_option.RecordCount
'remplir combobox des options
rs_option.AddNew
rs_option!id_materielle = m_id_mat
rs_option!id_option_d1_type = dc_option.BoundText
rs_option!valeur = "1"
rs_option.AddNew
rs_option!id_materielle = m_id_mat
rs_option!id_option_d1_type = dc_option.BoundText
rs_option!valeur = "2"
con2.RollbackTrans |
Partager