1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Rs.Open "select * from routeur,Equipement,CELLULE,marques,port where routeur.id_port = port.id_port and Equipement.num_serie=routeur.num_serie and CELLULE.id_cellule = Equipement.id_cellule and marques.code_marque =Equipement.code_marque ", cnn, adOpenKeyset, adLockOptimistic
Rs.AddNew
Rs.Fields("num_serie") = série.Text
Rs.Fields("nom") = nom.Text
Rs.Fields("nom_marque") = Combo1.Text
Rs.Fields("date_acquisition") = DTPicker1.Value
Rs.Fields("vitesse") = vitesse.Text
Rs.Fields("adresse_ip") = adresse.Text
Rs.Fields("type_port") = Combo2.Text
Rs.Fields("NOM_CELLULE") = Combo3.Text
mg = MsgBox("routeur ajouté avec succé", vbOKOnly + vbCritical, "ajouter routeur")
Rs.Update
Rs.Close |
Partager