Bonjour à tous
Aidez moi à trouver le code pour les requêtes d'insertion et de modification
en j'ai essayé le code suivant:
strSql = "insert into moteur(`num_serie`,`type_moteur`,`constructeur`,`fournisseur`,`puissance`,`facteur_de_puissance`,`frequence`,`tension`,`masse`,`indice_protection`,`position_montage`,`hauteur_axe`,`diametre_axe`,`type_roulement_arbre`,`type_element_moteur`,`rapport_element_moteur`,`A`,`AA`,`AB`,`B`,`BB`,`M`,`N`,`P`,`LA`,`alpha`,`T`,`S`,`vitesse`,`courant`,`K`,`type_roulement_ventilateur`,`date_acquisition`,`date_enregistrement`,`type_fixation`,`C`) values('" & CStr(TextBoxNS.Text) & "','" & CStr(ComboBoxtypemoteur.Text) & "','" & CStr(TextBoxConstruct.Text) & "','" & CStr(TextboxFournisseur.Text) & "','" & CType(TextBoxPuissance.Text, Integer) & "','" & CType(TextBoxFP.Text, Integer) & "','" & CType(TextBoxfrequence.Text, Integer) & "','" & CType(TextBoxtension.Text, Integer) & "','" & CType(TextBoxmasseM.Text, Integer) & "','" & CType(TextBoxIP.Text, Integer) & "','" & CStr(ComboBoxpositionmontage.Text) & "','" & CType(TextBoxHauteuraxe.Text, Integer) & "','" & CType(TextBoxDiametrabre.Text, Integer) & "','" & CStr(ComboBox2.Text) & "','" & (ComboBoxtypefrein.Text) & "','" & CType(TextBoxinertie.Text, Integer) & "','" & CType(TextBoxA.Text, Integer) & "','" & CType(TextBoxAA.Text, Integer) & "','" & CType(TextBoxAB.Text, Integer) & "','" & CType(TextBoxB.Text, Integer) & "','" & CType(TextBoxBB.Text, Integer) & "','" & CType(TextBoxM.Text, Integer) & "','" & CType(TextBoxN.Text, Integer) & "','" & CType(TextBoxP.Text, Integer) & "','" & CType(TextBoxLA.Text, Integer) & "','" & CType(TextBoxAlpha.Text, Integer) & "','" & CType(TextBoxT.Text, Integer) & "','" & CType(TextBoxS.Text, Integer) & "','" & CType(TextBoxvitesse.Text, Integer) & "','" & CType(TextBoxcourant.Text, Integer) & "','" & CType(TextBoxK.Text, Integer) & "','" & CStr(ComboBox1.Text) & "','" & CType(Date_acquisition.Text, Date) & "','" & (RadioBtnfixationpatte.Text) & "','" & CType(DateEnregistrMoteur.Text, Date) & "','" & CType(TextBoxC.Text, Integer) & "',1)"
Call connection()
objetCommand = New OdbcCommand(strSql)
objetDataAdapter = New OdbcDataAdapter(objetCommand)
objetCommand.Connection() = objetConnection
objetCB = New OdbcCommandBuilder(objetDataAdapter)
objetDataAdapter.Fill(objetDataset, "moteur")
objetConnection.Close()
objetDataset.Clear()
La conversion de la chaîne "" en type 'Integer' n'est pas valide.
Merci de bien vouloir me répondre car c'est très urgent
Michel NOHAM
Afficher la suite